X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=misc%2FbatchCompareMARCvsFrameworks.pl;h=9bbcde46df2982a428c281d5e2bdee71b4e1cbb2;hb=36efd0d4d0cfe5bbdcd9a4b48e0e417a59aaa63a;hp=e255602fd64eb3429eb3226b5fc8e27f2d76c29f;hpb=b4f39e5c5877e55baff8cfe4dba02c9475a2547e;p=koha_fer

diff --git a/misc/batchCompareMARCvsFrameworks.pl b/misc/batchCompareMARCvsFrameworks.pl
index e255602fd6..9bbcde46df 100755
--- a/misc/batchCompareMARCvsFrameworks.pl
+++ b/misc/batchCompareMARCvsFrameworks.pl
@@ -3,6 +3,7 @@
 
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this
@@ -69,7 +70,7 @@ my $i=0;
 while ( my $record = $batch->next() ) {
     $i++;
     foreach my $MARCfield ($record->fields()) {
-    next if $MARCfield->tag()<=010;
+    next if $MARCfield->is_control_field(); # tag num < 10
         if ($MARCfield) {
             foreach my $fields ($MARCfield->subfields()) {
                 if ($fields) {