warning commented

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 11f0d1b..105b26b 100755 (executable)
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -337,7 +337,7 @@ $tagslib = &MARCgettagslib($dbh,1,$itemtype);
 my $record=-1;
 my $encoding="";
 $record = MARCgetbiblio($dbh,$bibid) if ($bibid);
-warn "R".$record->as_formatted;
+# warn "R".$record->as_formatted;
 ($record,$encoding) = MARCfindbreeding($dbh,$breedingid) if ($breedingid);
 
 $is_a_modif=0;