[Koha-cvs] koha/misc bulkupdate.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        07/06/25 09:37:26

Modified files:
        misc           : bulkupdate.pl 

Log message:
        don't escape '-' in regexp.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/bulkupdate.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: bulkupdate.pl
===================================================================
RCS file: /sources/koha/koha/misc/bulkupdate.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- bulkupdate.pl       19 Jun 2007 15:58:23 -0000      1.2
+++ bulkupdate.pl       25 Jun 2007 09:37:26 -0000      1.3
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: bulkupdate.pl,v 1.2 2007/06/19 15:58:23 toins Exp $
+# $Id: bulkupdate.pl,v 1.3 2007/06/25 09:37:26 toins Exp $
 
 
 =head1 bulkupdate.pl 
@@ -30,11 +30,11 @@
 use MARC::Record;
 use Getopt::Long;
 
-my ( $process_marcxml, $process_isbn, $help) = (0,0,0);
+my ( $no_marcxml, $no_isbn, $help) = (0,0,0);
 
 GetOptions(
-    'noisbn'    => \$process_isbn,
-    'noxml'     => \$process_marcxml,
+    'noisbn'    => \$no_isbn,
+    'noxml'     => \$no_marcxml,
     'h'       => \$help,
     'help'    => \$help,
 );
@@ -55,7 +55,7 @@
 }
 
 my $cpt_isbn = 0;
-if(not $process_isbn){
+if(not $no_isbn){
 
     my $query_isbn = "
         SELECT biblioitemnumber,isbn FROM biblioitems WHERE isbn IS NOT NULL
@@ -75,7 +75,7 @@
         # suppression des tirets de l'isbn
         my $isbn    = $data->[1];
         if($isbn){
-            $isbn =~ s/\-//g;
+            $isbn =~ s/-//g;
             
             #update 
             my $sth = $dbh->prepare($update_isbn);
@@ -86,7 +86,7 @@
     print "$cpt_isbn updated";
 }
 
-if(not $process_marcxml){
+if(not $no_marcxml){
     
     my $query_marcxml = "
         SELECT biblioitemnumber,marcxml FROM biblioitems WHERE isbn IS NOT NULL
@@ -109,17 +109,17 @@
         my $marcxml = $data->[1];
         
         eval{
-            my $record = MARC::Record->new_from_xml($marcxml,'UTF-8');
+            my $record = MARC::Record->new_from_xml($marcxml);
             my @field = $record->field('010');
            foreach my $field (@field){
                    my $subfield = $field->subfield('a');
                    if($subfield){
                        my $isbn = $subfield;
-                       $isbn =~ s/\-//g;
+                    $isbn =~ s/-//g;
                        $field->update('a' => $isbn);
                    }
            }
-           $marcxml = $record->as_xml('UTF-8');
+           $marcxml = $record->as_xml;
            # Update
            my $sth = $dbh->prepare($update_marcxml);
            $sth->execute($marcxml,$biblioitemnumber);