=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
scalar $input->param('deliveryplace'),
scalar $input->param('billingplace'),
scalar $input->param('is_standing') ? 1 : undef,
+ scalar $input->param('create_items')
);
} else { #New basket
$basketno = NewBasket(
scalar $input->param('deliveryplace'),
scalar $input->param('billingplace'),
scalar $input->param('is_standing') ? 1 : undef,
+ scalar $input->param('create_items')
);
}
print $input->redirect('basket.pl?basketno='.$basketno);