Lines 279-285
if ($op eq ""){
Link Here
|
279 |
push @{ $item->{field_values} }, $field_values[0]; |
279 |
push @{ $item->{field_values} }, $field_values[0]; |
280 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
280 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
281 |
push @{ $item->{indicator} }, $indicator[0]; |
281 |
push @{ $item->{indicator} }, $indicator[0]; |
282 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator ); |
282 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); |
283 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
283 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
284 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
284 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
285 |
my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); |
285 |
my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); |