[Koha-cvs] koha/cataloguing addbiblio.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Bruno Toumi <btoumi>    07/02/06 15:51:56

Modified files:
        cataloguing    : addbiblio.pl 

Log message:
        add possibility to filter isbn for duplicate  field 10 

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbiblio.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.14.2.25&r2=1.14.2.26

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.14.2.25
retrieving revision 1.14.2.26
diff -u -b -r1.14.2.25 -r1.14.2.26
--- addbiblio.pl        31 Jan 2007 16:22:53 -0000      1.14.2.25
+++ addbiblio.pl        6 Feb 2007 15:51:56 -0000       1.14.2.26
@@ -1,6 +1,6 @@
 #!/usr/bin/perl 
 
-# $Id: addbiblio.pl,v 1.14.2.25 2007/01/31 16:22:53 btoumi Exp $
+# $Id: addbiblio.pl,v 1.14.2.26 2007/02/06 15:51:56 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -96,17 +96,19 @@
     $sth->execute($id);
     my ($file,$marc,$encoding) = $sth->fetchrow;
     if ($marc) {
-#         $marc =~ s/frey0103/frey50  /;
         my $record = MARC::Record->new_from_usmarc($marc);
-#         warn "REC : $marc = ".$record->as_formatted;
-       if ($record->subfield('010','a')){
-       my $f010a=$record->subfield('010','a');
-       my $f010 = $record->field('010');
-       $record->delete_field($f010);
-       my $newisbn = $f010a;
+       if ($record->field('010')){ 
+       foreach my $field ($record->field('010'))
+               {
+                       foreach my $subfield ($field->subfield('a')){
+                               my $newisbn = $field->subfield('a');
        $newisbn =~ s/-//g;
-       $f010->update('a' => $newisbn);
-       $record->insert_fields_ordered($f010);
+                               $field->update( 'a' => $newisbn );
+                               
+                                               
+                       }
+#                      $record->insert_fields_ordered($record->field('010'));
+               }               
        }
        
     if ($record->subfield(100,'a')){