View | Details | Raw Unified | Return to bug 29111
Collapse All | Expand All

(-)a/acqui/addorderiso2709.pl (-7 lines)
Lines 378-389 if ($op eq ""){ Link Here
378
            my @serials      = $input->multi_param('serial');
378
            my @serials      = $input->multi_param('serial');
379
            my @ind_tag   = $input->multi_param('ind_tag');
379
            my @ind_tag   = $input->multi_param('ind_tag');
380
            my @indicator = $input->multi_param('indicator');
380
            my @indicator = $input->multi_param('indicator');
381
            my $item;
382
            push @{ $item->{tags} },         $tags[0];
383
            push @{ $item->{subfields} },    $subfields[0];
384
            push @{ $item->{field_values} }, $field_values[0];
385
            push @{ $item->{ind_tag} },      $ind_tag[0];
386
            push @{ $item->{indicator} },    $indicator[0];
387
            my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag );
381
            my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag );
388
            my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );
382
            my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );
389
            for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) {
383
            for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) {
390
- 

Return to bug 29111