| 1 |
637 |
ahitrov |
<fieldset> |
| 2 |
|
|
<legend>Отчет по купонам</legend> |
| 3 |
|
|
<form name="searchdoc" action="coupons_report.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 => $status, style=>'width:100%;font-size:8pt;' &></td> |
| 7 |
|
|
<%doc> |
| 8 |
|
|
<tr><td><b>Сортировать:</b></td></tr> |
| 9 |
|
|
<tr><td><& "/contenido/components/select.msn", name=>'sort', values => \@sorts, style=>'width:100%;font-size:8pt;' &></td> |
| 10 |
|
|
<tr><td height="5"></td></tr> |
| 11 |
|
|
</%doc> |
| 12 |
|
|
<tr><td><b>Диапазон дат:</b></td></tr> |
| 13 |
|
|
<tr><td><& "/contenido/components/inputs/date.msn", name => 'from' &></td></tr> |
| 14 |
|
|
<tr><td><& "/contenido/components/inputs/date.msn", name => 'to' &></td></tr> |
| 15 |
|
|
<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 |
|
|
my @status_values = ( |
| 35 |
|
|
'', 'Без учета статуса', |
| 36 |
|
|
'1', 'Активные', |
| 37 |
|
|
'0', 'Неактивные', |
| 38 |
|
|
'3', 'Использованные', |
| 39 |
|
|
'2', 'Прототипы', |
| 40 |
|
|
'4', 'Обработанные', |
| 41 |
|
|
); |
| 42 |
|
|
|
| 43 |
|
|
</%once> |
| 44 |
|
|
<%args> |
| 45 |
|
|
|
| 46 |
|
|
$status => '' |
| 47 |
|
|
|
| 48 |
|
|
</%args> |
| 49 |
|
|
<%init> |
| 50 |
|
|
|
| 51 |
|
|
my @props = webshop::Coupon->new($keeper)->structure; |
| 52 |
|
|
my ($prop_status) = grep { $_->{attr} eq 'status' } @props; |
| 53 |
|
|
|
| 54 |
|
|
my @coupons = ('' => 'без учета купонов'); |
| 55 |
|
|
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"; |
| 56 |
|
|
my $que = $keeper->SQL->prepare($sql); |
| 57 |
|
|
$que->execute(); |
| 58 |
|
|
while ( my $ln = $que->fetchrow_hashref ) { |
| 59 |
|
|
push @coupons, ($ln->{id}, $ln->{name}); |
| 60 |
|
|
} |
| 61 |
|
|
|
| 62 |
|
|
</%init> |