X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=labels%2Flabel-create-csv.pl;h=1b0c02c97a3f493dab09624448cb12566b41bb08;hb=8e71489c33115254a8a95be7a4b1a82b605918c9;hp=6e2263f5d318104467a78972ce5ce479565da8ed;hpb=2202ee78c3abf41aa46d131036b1a4162c8faf35;p=koha_fer

diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl
index 6e2263f5d3..1b0c02c97a 100755
--- a/labels/label-create-csv.pl
+++ b/labels/label-create-csv.pl
@@ -26,8 +26,8 @@ use Text::CSV_XS;
 use Data::Dumper;
 
 use C4::Debug;
-use C4::Creators 1.000000;
-use C4::Labels 1.000000;
+use C4::Creators;
+use C4::Labels;
 
 my $cgi = new CGI;
 
@@ -72,7 +72,6 @@ else {
 
 my $csv = Text::CSV_XS->new();
 
-CSV_ITEMS:
 foreach my $item (@$items) {
     my $label = C4::Labels::Label->new(
                                     batch_id            => $batch_id,
@@ -85,11 +84,10 @@ foreach my $item (@$items) {
     }
     else {
         warn sprintf('Text::CSV_XS->combine() returned the following error: %s', $csv->error_input);
-        next CSV_ITEMS;
     }
 }
 
-exit(1);
+__END__
 
 =head1 NAME
 
@@ -122,3 +120,4 @@ Fifth Floor, Boston, MA 02110-1301 USA.
 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