Revision 545 (by ahitrov, 2016/01/27 12:39:21) Additional order statuses

 
<fieldset>
<legend>Выбор заказов по статусу</legend>

        <table width="100%" border="0" cellpadding="3" cellspacing="0" class="tlistdocs">
        <tr bgcolor="#efefef">
	        <th align="center" width="1%">ID</th>
	        <th>Основной статус</th>
	</tr>

% foreach my $case ( @cases ) {
%	next	if !$case->[0] || $case->[0] > 5;
%	my $style = $status && $case->[0] == $status ? 'inverted' : '';
	<tr class="<% $style %>">
		<td><% $case->[0] %></td>
		<td><table cellpadding="0" cellspacing="0" border="0">
			<tr valign="top">
				<td width="10">&nbsp;</td>
				<td><a href="./?ost=<% $case->[0] %>"><% Encode::encode('utf-8', ucfirst(Encode::decode('utf-8',$case->[1]))) %></a></td>
			</tr>
			</table>
		</td>
	</tr>


% }
        <tr bgcolor="#efefef">
	        <th align="center" width="1%">ID</th>
	        <th>Дополнительный статус</th>
	</tr>
% foreach my $case ( @cases ) {
%	next	if $case->[0] < 6;
%	my $style = $status && $case->[0] == $status ? 'inverted' : '';
	<tr class="<% $style %>">
		<td><% $case->[0] %></td>
		<td><table cellpadding="0" cellspacing="0" border="0">
			<tr valign="top">
				<td width="10">&nbsp;</td>
				<td><a href="./?ost=<% $case->[0] %>"><% Encode::encode('utf-8', ucfirst(Encode::decode('utf-8',$case->[1]))) %></a></td>
			</tr>
			</table>
		</td>
	</tr>


% }

        </table>

</fieldset>
<%args>

	$status	=> undef

</%args>
<%init>

   my ($prop) = grep { $_->{attr} eq 'status' } webshop::Order->new( $keeper->{webshop} )->structure;
   my @cases = @{$prop->{cases}};

</%init>