X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=misc%2FbatchupdateISBNs.pl;h=8cc8c6ac20754224324debad378fcd448e1a4f46;hb=4913d3a1d7a024b846bbeafe98bbd133d2798533;hp=2752aabc3d426de200de652a49c7b100af618d7a;hpb=f45f85a227b3fc53eef3d8557205181a3ce74ad4;p=koha_gimpoz

diff --git a/misc/batchupdateISBNs.pl b/misc/batchupdateISBNs.pl
index 2752aabc3d..8cc8c6ac20 100755
--- a/misc/batchupdateISBNs.pl
+++ b/misc/batchupdateISBNs.pl
@@ -24,6 +24,7 @@
 =cut
 
 use strict;
+#use warnings; FIXME - Bug 2505
 BEGIN {
     # find Koha's Perl modules
     # test carefully before changing this
@@ -127,7 +128,7 @@ if(not $no_marcxml){
                 }
 	    }
             if($flag){
-                $marcxml = $record->as_xml;
+                $marcxml = $record->as_xml_record('UNIMARC');
                 # Update
                 my $sth = $dbh->prepare($update_marcxml);
                 $sth->execute($marcxml,$biblioitemnumber);