=cut
-use strict;
-use warnings;
-use List::Util;
+use Modern::Perl;
use C4::Context;
-use C4::Auth;
+use C4::Auth qw( checkauth );
-use C4::Biblio;
use C4::Output;
use Koha::Acquisition::Bookseller::Contacts;
use Koha::Acquisition::Booksellers;
use CGI qw ( -utf8 );
-my $input=new CGI;
+my $input=CGI->new;
checkauth( $input, 0, { acquisition => 'vendors_manage' }, 'intranet' );
my %contact_info;
foreach (qw(id name position phone altphone fax email notes orderacquisition claimacquisition claimissues acqprimary serialsprimary)) {
- $contact_info{$_} = [ $input->param('contact_' . $_) ];
+ $contact_info{$_} = [ $input->multi_param('contact_' . $_) ];
}
for my $cnt (0..scalar(@{$contact_info{'id'}})) {