From 668adbff676a88df05f583902649d69719247bc4 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 3 Apr 2011 15:11:47 +0200 Subject: [PATCH] skip records with tag 260 --- koha-import.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/koha-import.pl b/koha-import.pl index 1682e34..d347edb 100755 --- a/koha-import.pl +++ b/koha-import.pl @@ -94,6 +94,9 @@ while ( my $row = $sth->fetchrow_hashref ) { warn_dump($row, $xml); my @tag_260 = grep { $_->{tag} eq '260' } @{ $xml->{datafield} }; + + next unless @tag_260; + warn_dump @tag_260 if $ENV{DEBUG}; foreach my $sf ( @{ $tag_260[0]->{subfield} } ) { -- 2.20.1