my $csv = Text::CSV_XS->new();
-CSV_ITEMS:
foreach my $item (@$items) {
my $label = C4::Labels::Label->new(
batch_id => $batch_id,
}
else {
warn sprintf('Text::CSV_XS->combine() returned the following error: %s', $csv->error_input);
- next CSV_ITEMS;
}
}
-exit(1);
+__END__
=head1 NAME
Koha is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+=cut