View | Details | Raw Unified | Return to bug 29771
Collapse All | Expand All

(-)a/circ/article-request-slip.pl (-1 / +1 lines)
Lines 30-36 use Koha::Patrons; Link Here
30
30
31
my $cgi = CGI->new;
31
my $cgi = CGI->new;
32
32
33
my @ids = split( ',', $cgi->param('id') );
33
my @ids = split( ',', scalar $cgi->param('id') );
34
34
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36
    {
36
    {
(-)a/circ/waitingreserves.pl (-1 / +1 lines)
Lines 75-81 $template->param( all_branches => 1 ) if $all_branches; Link Here
75
75
76
if ($cancelBulk) {
76
if ($cancelBulk) {
77
    my $reason   = $input->param("cancellation-reason");
77
    my $reason   = $input->param("cancellation-reason");
78
    my @hold_ids = split ',', $input->param("ids");
78
    my @hold_ids = split( ',', scalar $input->param("ids") );
79
    my $params   = {
79
    my $params   = {
80
        reason   => $reason,
80
        reason   => $reason,
81
        hold_ids => \@hold_ids,
81
        hold_ids => \@hold_ids,
(-)a/reserve/request.pl (-1 / +1 lines)
Lines 124-130 elsif ( $action eq 'toggleSuspend' ) { Link Here
124
}
124
}
125
elsif ( $action eq 'cancelBulk' ) {
125
elsif ( $action eq 'cancelBulk' ) {
126
    my $cancellation_reason = $input->param("cancellation-reason");
126
    my $cancellation_reason = $input->param("cancellation-reason");
127
    my @hold_ids            = split ',', $input->param("ids");
127
    my @hold_ids            = split( ',', scalar $input->param("ids"));
128
    my $params              = {
128
    my $params              = {
129
        reason   => $cancellation_reason,
129
        reason   => $cancellation_reason,
130
        hold_ids => \@hold_ids,
130
        hold_ids => \@hold_ids,
(-)a/tools/batch_delete_records.pl (-1 / +1 lines)
Lines 85-91 if ( $op eq 'form' ) { Link Here
85
        }
85
        }
86
    } else {
86
    } else {
87
        # The user enters manually the list of id
87
        # The user enters manually the list of id
88
        push @record_ids, split( /\s\n/, $input->param('recordnumber_list') );
88
        push @record_ids, split( /\s\n/, scalar $input->param('recordnumber_list') );
89
    }
89
    }
90
90
91
    for my $record_id ( uniq @record_ids ) {
91
    for my $record_id ( uniq @record_ids ) {
(-)a/tools/batch_record_modification.pl (-1 / +1 lines)
Lines 113-119 if ( $op eq 'form' ) { Link Here
113
        }
113
        }
114
    } else {
114
    } else {
115
        # The user enters manually the list of id
115
        # The user enters manually the list of id
116
        push @record_ids, split( /\s\n/, $input->param('recordnumber_list') );
116
        push @record_ids, split( /\s\n/, scalar $input->param('recordnumber_list') );
117
    }
117
    }
118
118
119
    for my $record_id ( uniq @record_ids ) {
119
    for my $record_id ( uniq @record_ids ) {
(-)a/tools/inventory.pl (-2 / +1 lines)
Lines 182-188 if ( ($uploadbarcodes && length($uploadbarcodes) > 0) || ($barcodelist && length Link Here
182
            push @uploadedbarcodes, grep { /\S/ } split( /[$split_chars]/, $barcode );
182
            push @uploadedbarcodes, grep { /\S/ } split( /[$split_chars]/, $barcode );
183
        }
183
        }
184
    } else {
184
    } else {
185
        push @uploadedbarcodes, split(/\s\n/, $input->param('barcodelist') );
185
        push @uploadedbarcodes, split(/\s\n/, scalar $input->param('barcodelist') );
186
        $uploadbarcodes = $barcodelist;
186
        $uploadbarcodes = $barcodelist;
187
    }
187
    }
188
    for my $barcode (@uploadedbarcodes) {
188
    for my $barcode (@uploadedbarcodes) {
189
- 

Return to bug 29771