bugfixes on unimarc 100 handling (the field used for encoding)

[koha.git] / cataloguing / addbiblio.pl

diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index 20fec7b..a5ceee7 100755 (executable)
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@@ -108,7 +108,6 @@ sub MARCfindbreeding {
     #                  $record->insert_fields_ordered($record->field('010'));
             }          
         }
-        warn "AVANT : ".$record->as_formatted;
         if ($record->subfield(100,'a')) {
             my $f100a=$record->subfield(100,'a');
             my $f100 = $record->field(100);
@@ -121,7 +120,6 @@ sub MARCfindbreeding {
                 $record->insert_fields_ordered($f100);
             }
         }
-        warn "APRES: ".$record->as_formatted;
         if (ref($record) eq undef) {
             return -1;
         } else {