% 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->ext_id %>;;;;;;<% $bi->number %>;<% $bi->price %>
% }
% if ( $order->sum_delivery ) {
Доставка;1177;;;;;;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>