Bug 9456: (follow-up) remove whitespaces and tab

[koha.git] / misc / batchupdateISBNs.pl

diff --git a/misc/batchupdateISBNs.pl b/misc/batchupdateISBNs.pl
index 2752aab..8cc8c6a 100755 (executable)
--- 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);