| 1 |
797 |
ahitrov |
% foreach my $bi ( @{$order->{list}} ) { |
| 2 |
|
|
% my $item = $keeper->get_document_by_id($bi->item_id, class => $state->{webshop}->item_document_class); |
| 3 |
|
|
% next unless ref $item; |
| 4 |
|
|
% my $name = $bi->name; |
| 5 |
|
|
% if ( $name =~ /;/ ) { |
| 6 |
|
|
% $name =~ s/"/""/sgi; |
| 7 |
|
|
% $name = '"'.$name.'"'; |
| 8 |
|
|
% } |
| 9 |
798 |
ahitrov |
<% Encode::encode('windows-1251', Encode::decode('utf-8', $name)) %>;<% $item->barcode %>;;;;;;<% $bi->number %>;<% $bi->price %> |
| 10 |
797 |
ahitrov |
% } |
| 11 |
|
|
% if ( $order->sum_delivery ) { |
| 12 |
798 |
ahitrov |
Доставка;2000011770013;;;;;;1;<% $order->sum_delivery %> |
| 13 |
797 |
ahitrov |
% } |
| 14 |
|
|
<%args> |
| 15 |
|
|
|
| 16 |
|
|
$id => undef |
| 17 |
|
|
|
| 18 |
|
|
</%args> |
| 19 |
|
|
<%init> |
| 20 |
|
|
|
| 21 |
|
|
&abort404 unless $id && $id =~ /^\d+$/; |
| 22 |
|
|
|
| 23 |
|
|
my $order = $keeper->{webshop}->get_orders( id => $id, list => 1 ); |
| 24 |
|
|
&abort404 unless ref $order; |
| 25 |
|
|
|
| 26 |
|
|
$r->content_type ("text/csv; charset=windows-1251"); |
| 27 |
|
|
|
| 28 |
|
|
</%init> |