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

(-)a/members/readingrec.pl (-1 / +1 lines)
Lines 83-88 if ( $op eq 'export_barcodes' ) { Link Here
83
      map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
83
      map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues};
84
    my $borrowercardnumber =
84
    my $borrowercardnumber =
85
      GetMember( borrowernumber => $borrowernumber )->{'cardnumber'};
85
      GetMember( borrowernumber => $borrowernumber )->{'cardnumber'};
86
    $borrowercardnumber //= '';
86
    my $delimiter = "\n";
87
    my $delimiter = "\n";
87
    binmode( STDOUT, ":encoding(UTF-8)" );
88
    binmode( STDOUT, ":encoding(UTF-8)" );
88
    print $input->header(
89
    print $input->header(
89
- 

Return to bug 14482