Code cleaning :

[koha.git] / serials / serials-edit.pl

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index 2277174..4da3c76 100755 (executable)
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -202,7 +202,7 @@ if ($op eq 'serialchangestatus') {
           $index = $i if ($itemhash{$item}->{'serial'} eq $serialids[$i]);
         }
         if ($status[$index]==2){
-          my $xml = MARChtml2xml( $itemhash{$item}->{'tags'},
+          my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
                                   $itemhash{$item}->{'subfields'},
                                   $itemhash{$item}->{'field_values'},
                                   $itemhash{$item}->{'ind_tag'},
@@ -212,7 +212,7 @@ if ($op eq 'serialchangestatus') {
           if ($item=~/^N/){
             #New Item
             # if autoBarcode is ON, calculate barcode...
-            my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.barcode");
+            my ($tagfield,$tagsubfield) = &GetMarcFromKohaField($dbh,"items.barcode");
             if (C4::Context->preference('autoBarcode')) {
               unless ($record->field($tagfield)->subfield($tagsubfield)) {
                 my $sth_barcode = $dbh->prepare("select max(abs(barcode)) from items");