Revision 798 (by ahitrov, 2020/07/17 19:43:13) |
barcode
|
% foreach my $bi ( @{$order->{list}} ) {
% my $item = $keeper->get_document_by_id($bi->item_id, class => $state->{webshop}->item_document_class);
% next unless ref $item;
% my $name = $bi->name;
% if ( $name =~ /;/ ) {
% $name =~ s/"/""/sgi;
% $name = '"'.$name.'"';
% }
<% Encode::encode('windows-1251', Encode::decode('utf-8', $name)) %>;<% $item->barcode %>;;;;;;<% $bi->number %>;<% $bi->price %>
% }
% if ( $order->sum_delivery ) {
Доставка;2000011770013;;;;;;1;<% $order->sum_delivery %>
% }
<%args>
$id => undef
</%args>
<%init>
&abort404 unless $id && $id =~ /^\d+$/;
my $order = $keeper->{webshop}->get_orders( id => $id, list => 1 );
&abort404 unless ref $order;
$r->content_type ("text/csv; charset=windows-1251");
</%init>