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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt (-4 / +4 lines)
Lines 1012-1021 Link Here
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>
(-)a/tools/modborrowers.pl (-3 lines)
Lines 66-73 if ( $op eq 'cud-show' ) { Link Here
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