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

(-)a/labels/label-create-csv.pl (-1 / +4 lines)
Lines 71-76 if (@label_ids) { Link Here
71
71
72
my $csv = Text::CSV_XS->new( { formula => "empty" } );
72
my $csv = Text::CSV_XS->new( { formula => "empty" } );
73
73
74
# Add BOM for UTF-8 encoded CSV
75
print "\xEF\xBB\xBF";
76
binmode STDOUT, ':encoding(UTF-8)';
77
74
foreach my $item (@$items) {
78
foreach my $item (@$items) {
75
    my $label = C4::Labels::Label->new(
79
    my $label = C4::Labels::Label->new(
76
        batch_id      => $batch_id,
80
        batch_id      => $batch_id,
77
- 

Return to bug 39327