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

(-)a/acqui/addorderiso2709.pl (-7 lines)
Lines 277-288 if ($op eq ""){ Link Here
277
            my @serials      = $input->param('serial');
277
            my @serials      = $input->param('serial');
278
            my @ind_tag   = $input->param('ind_tag');
278
            my @ind_tag   = $input->param('ind_tag');
279
            my @indicator = $input->param('indicator');
279
            my @indicator = $input->param('indicator');
280
            my $item;
281
            push @{ $item->{tags} },         $tags[0];
282
            push @{ $item->{subfields} },    $subfields[0];
283
            push @{ $item->{field_values} }, $field_values[0];
284
            push @{ $item->{ind_tag} },      $ind_tag[0];
285
            push @{ $item->{indicator} },    $indicator[0];
286
            my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator );
280
            my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator );
287
            my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );
281
            my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );
288
            for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) {
282
            for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) {
289
- 

Return to bug 13182