[Koha-cvs] koha/acqui.simple addbiblio.pl [rel_2_2]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Joshua Ferraro <kados>	06/08/02 12:52:47

Modified files:
	acqui.simple   : addbiblio.pl 

Log message:
	remove warns

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui.simple/addbiblio.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.52.2.50&r2=1.52.2.51

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui.simple/Attic/addbiblio.pl,v
retrieving revision 1.52.2.50
retrieving revision 1.52.2.51
diff -u -b -r1.52.2.50 -r1.52.2.51
--- addbiblio.pl	25 Jul 2006 16:22:13 -0000	1.52.2.50
+++ addbiblio.pl	2 Aug 2006 12:52:46 -0000	1.52.2.51
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbiblio.pl,v 1.52.2.50 2006/07/25 16:22:13 tipaul Exp $
+# $Id: addbiblio.pl,v 1.52.2.51 2006/08/02 12:52:46 kados Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -104,7 +104,7 @@
 				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 @@
 							$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));