@@ -, +, @@ browser. --- circ/article-request-slip.pl | 2 +- circ/waitingreserves.pl | 2 +- reserve/request.pl | 2 +- tools/batch_delete_records.pl | 2 +- tools/batch_record_modification.pl | 2 +- tools/inventory.pl | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) --- a/circ/article-request-slip.pl +++ a/circ/article-request-slip.pl @@ -30,7 +30,7 @@ use Koha::Patrons; my $cgi = CGI->new; -my @ids = split( ',', $cgi->param('id') ); +my @ids = split( ',', scalar $cgi->param('id') ); my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { --- a/circ/waitingreserves.pl +++ a/circ/waitingreserves.pl @@ -75,7 +75,7 @@ $template->param( all_branches => 1 ) if $all_branches; if ($cancelBulk) { my $reason = $input->param("cancellation-reason"); - my @hold_ids = split ',', $input->param("ids"); + my @hold_ids = split( ',', scalar $input->param("ids") ); my $params = { reason => $reason, hold_ids => \@hold_ids, --- a/reserve/request.pl +++ a/reserve/request.pl @@ -129,7 +129,7 @@ elsif ( $action eq 'toggleSuspend' ) { } elsif ( $action eq 'cancelBulk' ) { my $cancellation_reason = $input->param("cancellation-reason"); - my @hold_ids = split ',', $input->param("ids"); + my @hold_ids = split( ',', scalar $input->param("ids")); my $params = { reason => $cancellation_reason, hold_ids => \@hold_ids, --- a/tools/batch_delete_records.pl +++ a/tools/batch_delete_records.pl @@ -85,7 +85,7 @@ if ( $op eq 'form' ) { } } else { # The user enters manually the list of id - push @record_ids, split( /\s\n/, $input->param('recordnumber_list') ); + push @record_ids, split( /\s\n/, scalar $input->param('recordnumber_list') ); } for my $record_id ( uniq @record_ids ) { --- a/tools/batch_record_modification.pl +++ a/tools/batch_record_modification.pl @@ -113,7 +113,7 @@ if ( $op eq 'form' ) { } } else { # The user enters manually the list of id - push @record_ids, split( /\s\n/, $input->param('recordnumber_list') ); + push @record_ids, split( /\s\n/, scalar $input->param('recordnumber_list') ); } for my $record_id ( uniq @record_ids ) { --- a/tools/inventory.pl +++ a/tools/inventory.pl @@ -182,7 +182,7 @@ if ( ($uploadbarcodes && length($uploadbarcodes) > 0) || ($barcodelist && length push @uploadedbarcodes, grep { /\S/ } split( /[$split_chars]/, $barcode ); } } else { - push @uploadedbarcodes, split(/\s\n/, $input->param('barcodelist') ); + push @uploadedbarcodes, split(/\s\n/, scalar $input->param('barcodelist') ); $uploadbarcodes = $barcodelist; } for my $barcode (@uploadedbarcodes) { --