Attachment #170413 for bug #37615

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

Lines 1012-1021 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt (-4 / +4 lines)
1012	[%- END -%]	1012	[%- END -%]
1013	[%- cardnumbers = PROCESS batch_list results=results batch_type='cardnumber' \| trim \| html %]	1013	[%- cardnumbers = PROCESS batch_list results=results batch_type='cardnumber' \| trim \| html %]
1014	[% IF !batch_borrowernumbers && cardnumbers %]	1014	[% IF !batch_borrowernumbers && cardnumbers %]
1015	[% SET batch_cardnumbers = cardnumbers.length %]	1015	[% SET batch_cardnumbers = 1 %]
1016	[% FOR b IN cardnumbers.split("\n") %]	1016	<textarea style="display:none;" name="cardnumberlist" id="cardnumberlist">
1017	<input type="hidden" name="cardnumber" value="[% b \| uri %]" />	1017	[%- cardnumbers \| html -%]
1018	[% END -%]	1018	</textarea>
1019	[% END %]	1019	[% END %]
1020		1020
1021	</form>	1021	</form>

Lines 66-73 if ( $op eq 'cud-show' ) { Link Here

(-)a/tools/modborrowers.pl (-3 lines)
66	if( my $cardnumberlist = $input->param('cardnumberlist') ){	66	if( my $cardnumberlist = $input->param('cardnumberlist') ){
67	# User submitted a list of card numbers	67	# User submitted a list of card numbers
68	push @patronidnumbers, split( /\s\n/, $cardnumberlist );	68	push @patronidnumbers, split( /\s\n/, $cardnumberlist );
69	} elsif ( my @cardnumbers = $input->multi_param('cardnumber') ) {
70	@patronidnumbers = @cardnumbers;
71	} elsif ( my $cardnumberuploadfile = $input->param('cardnumberuploadfile') ){	69	} elsif ( my $cardnumberuploadfile = $input->param('cardnumberuploadfile') ){
72	# User uploaded a file of card numbers	70	# User uploaded a file of card numbers
73	binmode $cardnumberuploadfile, ':encoding(UTF-8)';	71	binmode $cardnumberuploadfile, ':encoding(UTF-8)';
74	-

Return to bug 37615