$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'},
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");