[Koha-cvs] koha/misc bulkupdate.pl

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	07/07/12 15:33:31

Modified files:
	misc           : bulkupdate.pl 

Log message:
	optimisation + encoding set.
	FIXME : unimarc hard coded.

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

Patches:
Index: bulkupdate.pl
===================================================================
RCS file: /sources/koha/koha/misc/bulkupdate.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- bulkupdate.pl	25 Jun 2007 09:37:26 -0000	1.3
+++ bulkupdate.pl	12 Jul 2007 15:33:31 -0000	1.4
@@ -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.3 2007/06/25 09:37:26 toins Exp $
+# $Id: bulkupdate.pl,v 1.4 2007/07/12 15:33:31 toins Exp $
 
 
 =head1 bulkupdate.pl 
@@ -109,20 +109,24 @@
         my $marcxml = $data->[1];
         
         eval{
-            my $record = MARC::Record->new_from_xml($marcxml);
+            my $record = MARC::Record->new_from_xml($marcxml,'UTF-8','UNIMARC');
             my @field = $record->field('010');
+            my $flag = 0;
 	    foreach my $field (@field){
                 my $subfield = $field->subfield('a');
                 if($subfield){
                     my $isbn = $subfield;
                     $isbn =~ s/-//g;
                     $field->update('a' => $isbn);
+                    $flag = 1;
                 }
 	    }
+            if($flag){
 	    $marcxml = $record->as_xml;
 	    # Update
 	    my $sth = $dbh->prepare($update_marcxml);
 	    $sth->execute($marcxml,$biblioitemnumber);
+            }
         };
         if($@){
             print "\n /!\\ pb getting $biblioitemnumber : $@";