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

(-)a/members/readingrec.pl (-2 / +1 lines)
Lines 92-98 if ($input->param('op') eq 'export_barcodes') { Link Here
92
    my $borrowercardnumber = GetMember( borrowernumber => $borrowernumber )->{'cardnumber'} ;
92
    my $borrowercardnumber = GetMember( borrowernumber => $borrowernumber )->{'cardnumber'} ;
93
    my $delimiter = ":";
93
    my $delimiter = ":";
94
    $delimiter = "\n";
94
    $delimiter = "\n";
95
    binmode( STDOUT, ":utf8" );
95
    binmode( STDOUT, ":encoding(UTF-8)");
96
    print $input->header(
96
    print $input->header(
97
        -type       => 'application/octet-stream',
97
        -type       => 'application/octet-stream',
98
        -charset    => 'utf-8',
98
        -charset    => 'utf-8',
99
- 

Return to bug 6751