From 8da7a813d21a2de74ad996e5e10f14de99e6fc73 Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Wed, 2 Aug 2006 12:52:46 +0000
Subject: [PATCH] remove warns

---
 acqui.simple/addbiblio.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 4759aa7afa..51c6be0ef4 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -104,7 +104,7 @@ sub MARCfindbreeding {
 				my $auth_fields = C4::Context->preference("z3950AuthorAuthFields");
 				my @auth_fields= split /,/,$auth_fields;
 				my $field;
-				warn $record->as_formatted;
+				#warn $record->as_formatted;
 				if ($record->field($tag)){
 					foreach my $tmpfield ($record->field($tag)->subfields){
 #						foreach my $subfieldcode ($tmpfield->subfields){
@@ -116,7 +116,7 @@ sub MARCfindbreeding {
 							$field=MARC::Field->new($tag,"","",$subfieldcode=>$subfieldvalue) if ($subfieldcode ne $subfield);
 						}
 					}
-					warn $field->as_formatted;
+					#warn $field->as_formatted;
 #					}
 				}
 				$record->delete_field($record->field($tag));
-- 
2.39.5