Line # Revision Author
1 422 ahitrov <fieldset>
2 <legend>Отчет по заказам</legend>
3 <form name="searchdoc" action="orders.html" method="GET" target="_blank">
4 <table width="100%" border="0" cellpadding="0" cellspacing="6" class="tform">
5 <tr><td><b>Выберите статус:</b></td></tr>
6 <tr><td><& "/contenido/components/select.msn", name=>'status', values => \@status_values, check => 4, style=>'width:100%;font-size:8pt;' &></td>
7 <tr><td><b>Сортировать:</b></td></tr>
8 <tr><td><& "/contenido/components/select.msn", name=>'sort', values => \@sorts, style=>'width:100%;font-size:8pt;' &></td>
9 <tr><td height="5"></td></tr>
10 <tr><td><b>Диапазон дат:</b></td></tr>
11 <tr><td><& "/contenido/components/inputs/date.msn", name => 'from' &></td></tr>
12 <tr><td><& "/contenido/components/inputs/date.msn", name => 'to' &></td></tr>
13 438 ahitrov <tr><td><b>По купону:</b></td></tr>
14 <tr><td><& "/contenido/components/select.msn", name=>'coupon', values => \@coupons, style=>'width:100%;font-size:8pt;' &></td>
15 422 ahitrov <tr><td><b>Отобразить:</b></td></tr>
16 <tr><td><& "/contenido/components/select.msn", name=>'show', values => \@shows, style=>'width:100%;font-size:8pt;' &></td>
17 <tr><td><input type="submit" value="Отобрать" class="btn"></td></tr>
18 </table>
19 </form>
20 </fieldset>
21
22 <%once>
23
24 my @sorts = (
25 'id' => 'по номеру заказа',
26 'uid' => 'по пользователю',
27 );
28
29 my @shows = (
30 'html' => 'В виде HTML',
31 'tsv' => 'Tab-separated текст',
32 );
33
34 </%once>
35 <%args>
36
37
38 </%args>
39 <%init>
40
41 my @props = webshop::Order->new($keeper)->structure;
42 my ($prop_status) = grep { $_->{attr} eq 'status' } @props;
43 my @status_values = map { $_->[0] => $_->[1] } @{$prop_status->{cases}};
44 438 ahitrov $status_values[1] = 'без учета статуса';
45 422 ahitrov
46 438 ahitrov my @coupons = ('' => 'без учета купонов');
47 my $sql = "select id, name from webshop_coupons where class = 'webshop::Coupon' and ( status in (0, 4) or (status in (1,3) and pid = 0) ) order by status = 1 desc, status, dtime desc";
48 my $que = $keeper->SQL->prepare($sql);
49 $que->execute();
50 while ( my $ln = $que->fetchrow_hashref ) {
51 push @coupons, ($ln->{id}, $ln->{name});
52 }
53
54 422 ahitrov </%init>