|
Lines 72-78
else {
Link Here
|
| 72 |
|
72 |
|
| 73 |
my $csv = Text::CSV_XS->new(); |
73 |
my $csv = Text::CSV_XS->new(); |
| 74 |
|
74 |
|
| 75 |
CSV_ITEMS: |
|
|
| 76 |
foreach my $item (@$items) { |
75 |
foreach my $item (@$items) { |
| 77 |
my $label = C4::Labels::Label->new( |
76 |
my $label = C4::Labels::Label->new( |
| 78 |
batch_id => $batch_id, |
77 |
batch_id => $batch_id, |
|
Lines 85-95
foreach my $item (@$items) {
Link Here
|
| 85 |
} |
84 |
} |
| 86 |
else { |
85 |
else { |
| 87 |
warn sprintf('Text::CSV_XS->combine() returned the following error: %s', $csv->error_input); |
86 |
warn sprintf('Text::CSV_XS->combine() returned the following error: %s', $csv->error_input); |
| 88 |
next CSV_ITEMS; |
|
|
| 89 |
} |
87 |
} |
| 90 |
} |
88 |
} |
| 91 |
|
89 |
|
| 92 |
exit(1); |
90 |
__END__ |
| 93 |
|
91 |
|
| 94 |
=head1 NAME |
92 |
=head1 NAME |
| 95 |
|
93 |
|
|
Lines 122-124
Fifth Floor, Boston, MA 02110-1301 USA.
Link Here
|
| 122 |
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 |
120 |
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 |
| 123 |
A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
121 |
A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
| 124 |
|
122 |
|
|
|
123 |
=cut |