[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));