Line # Revision Author
1 198 ahitrov <& "/contenido/components/header.msn" &>
2
3 <style>
4 <!--
5 .inverted td { font-weight:bold; color:white; background-color:#8093B0; }
6 .inverted td a { color:white; font-weight:bold; }
7 //-->
8 </style>
9
10 <table width="100%" cellspacing="0" cellpadding="0" border="0">
11 <tr valign="top">
12 <td width="35%">
13
14 <& /contenido/webshop/components/block_order_status_changer.msn, status => $ost &>
15
16 </td>
17 <td width="1%">&nbsp;</td>
18 <td width="65%">
19
20 <fieldset>
21 <legend>Заказы со статусом "<span style="color:yellow"><% $current_status->[1] %></span>"</legend>
22
23 % if ( $total ) {
24
25 <div style="font-size:75%; font-family:Arial;">
26 <& /inc/pages_.msn, p=>$p, n=>$size, total=>$total, params=>\%filter_params, &>
27 <div style="height:5px"><spacer type="block" height="5"></div>
28 </div>
29
30 <& /contenido/webshop/components/order_browse.msn, documents => \@documents, columns => \@columns, filter => \%filter_params, status => $ost, %ARGS &>
31
32 <div style="font-size:75%; font-family:Arial;">
33 <& /inc/pages_.msn, p=>$p, n=>$size, total=>$total, params=>\%filter_params, &>
34 <div style="height:5px"><spacer type="block" height="5"></div>
35 </div>
36
37 % } else {
38 <h4 align="center"><i>---- Нет документов -----</i></h4>
39 % }
40
41
42 </td>
43 <td width="1%">&nbsp;</td>
44 </tr>
45 </table>
46
47 </body>
48 </html>
49 <%args>
50
51 $ost => 1
52 $p => 1
53
54 </%args>
55 <%init>
56
57 my %filter_params;
58
59 my (@documents, $total);
60 $filter_params{ost} = $ost if $ost != 1;
61 my $size = 40;
62
63 @documents = $keeper->get_documents(
64 class => 'webshop::Order',
65 status => $ost,
66 limit => $size,
67 offset => ($p-1)*$size,
68 );
69 $total = $keeper->get_documents(
70 class => 'webshop::Order',
71 status => $ost,
72 count => 1,
73 );
74 my @structure = webshop::Order->new( $keeper->{webshop} )->structure;
75 my @columns = sort { $a->{column} <=> $b->{column} }
76 grep { $_->{column} } @structure;
77 push @columns, {attr => '_act_', rusname => 'Действия'};
78 my ($status_map) = grep { $_->{attr} eq 'status' } @structure;
79 my ($current_status) = grep { $_->[0] == $ost } @{$status_map->{cases}};
80
81 </%init>