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 |
- |
|
|