| 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 |
|
|
<tr><td><b>Отобразить:</b></td></tr> |
| 14 |
|
|
<tr><td><& "/contenido/components/select.msn", name=>'show', values => \@shows, style=>'width:100%;font-size:8pt;' &></td> |
| 15 |
|
|
<tr><td><input type="submit" value="Отобрать" class="btn"></td></tr> |
| 16 |
|
|
</table> |
| 17 |
|
|
</form> |
| 18 |
|
|
</fieldset> |
| 19 |
|
|
|
| 20 |
|
|
<%once> |
| 21 |
|
|
|
| 22 |
|
|
my @sorts = ( |
| 23 |
|
|
'id' => 'по номеру заказа', |
| 24 |
|
|
'uid' => 'по пользователю', |
| 25 |
|
|
); |
| 26 |
|
|
|
| 27 |
|
|
my @shows = ( |
| 28 |
|
|
'html' => 'В виде HTML', |
| 29 |
|
|
'tsv' => 'Tab-separated текст', |
| 30 |
|
|
); |
| 31 |
|
|
|
| 32 |
|
|
</%once> |
| 33 |
|
|
<%args> |
| 34 |
|
|
|
| 35 |
|
|
|
| 36 |
|
|
</%args> |
| 37 |
|
|
<%init> |
| 38 |
|
|
|
| 39 |
|
|
my @props = webshop::Order->new($keeper)->structure; |
| 40 |
|
|
my ($prop_status) = grep { $_->{attr} eq 'status' } @props; |
| 41 |
|
|
my @status_values = map { $_->[0] => $_->[1] } @{$prop_status->{cases}}; |
| 42 |
|
|
|
| 43 |
|
|
</%init> |