=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
);
#parameters:
-my $booksellerid = scalar $input->param('booksellerid');
-my $basketno = scalar $input->param('basketno');
+my $booksellerid = $input->param('booksellerid');
+my $basketno = $input->param('basketno');
my $basket;
-my $op = scalar $input->param('op');
-my $is_an_edit = scalar $input->param('is_an_edit');
+my $op = $input->param('op');
+my $is_an_edit = $input->param('is_an_edit');
if ( $op eq 'add_form' ) {
my @contractloop;
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);