Attachment #128910 for bug #29771

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

Lines 30-36 use Koha::Patrons; Link Here

(-)a/circ/article-request-slip.pl (-1 / +1 lines)
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	{

Lines 75-81 $template->param( all_branches => 1 ) if $all_branches; Link Here

(-)a/circ/waitingreserves.pl (-1 / +1 lines)
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,

Lines 124-130 elsif ( $action eq 'toggleSuspend' ) { Link Here

(-)a/reserve/request.pl (-1 / +1 lines)
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,

Lines 85-91 if ( $op eq 'form' ) { Link Here

(-)a/tools/batch_delete_records.pl (-1 / +1 lines)
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 ) {

Lines 113-119 if ( $op eq 'form' ) { Link Here

(-)a/tools/batch_record_modification.pl (-1 / +1 lines)
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 ) {

Lines 182-188 if ( ($uploadbarcodes && length($uploadbarcodes) > 0) \|\| ($barcodelist && length Link Here

(-)a/tools/inventory.pl (-2 / +1 lines)
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