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

(-)a/C4/Biblio.pm (+2 lines)
Lines 2317-2322 $auth_type contains : Link Here
2317
2317
2318
sub TransformHtmlToXml {
2318
sub TransformHtmlToXml {
2319
    my ( $tags, $subfields, $values, $indicator, $ind_tag, $auth_type ) = @_;
2319
    my ( $tags, $subfields, $values, $indicator, $ind_tag, $auth_type ) = @_;
2320
    # NOTE: The parameter $ind_tag is NOT USED -- BZ 11247
2321
2320
    my $xml = MARC::File::XML::header('UTF-8');
2322
    my $xml = MARC::File::XML::header('UTF-8');
2321
    $xml .= "<record>\n";
2323
    $xml .= "<record>\n";
2322
    $auth_type = C4::Context->preference('marcflavour') unless $auth_type;
2324
    $auth_type = C4::Context->preference('marcflavour') unless $auth_type;
(-)a/acqui/addorder.pl (-1 / +1 lines)
Lines 307-314 if ( $orderinfo->{quantity} ne '0' ) { Link Here
307
            my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
307
            my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
308
                                    $itemhash{$item}->{'subfields'},
308
                                    $itemhash{$item}->{'subfields'},
309
                                    $itemhash{$item}->{'field_values'},
309
                                    $itemhash{$item}->{'field_values'},
310
                                    $itemhash{$item}->{'ind_tag'},
311
                                    $itemhash{$item}->{'indicator'},
310
                                    $itemhash{$item}->{'indicator'},
311
                                    $itemhash{$item}->{'ind_tag'},
312
                                    'ITEM');
312
                                    'ITEM');
313
            my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
313
            my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
314
            my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$$orderinfo{biblionumber});
314
            my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$$orderinfo{biblionumber});
(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
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 );
(-)a/acqui/finishreceive.pl (-2 / +2 lines)
Lines 149-156 if ($quantityrec > $origquantityrec ) { Link Here
149
            my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
149
            my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
150
                                          $itemhash{$item}->{'subfields'},
150
                                          $itemhash{$item}->{'subfields'},
151
                                          $itemhash{$item}->{'field_values'},
151
                                          $itemhash{$item}->{'field_values'},
152
                                          $itemhash{$item}->{'indicator'},
152
                                          $itemhash{$item}->{'ind_tag'},
153
                                          $itemhash{$item}->{'ind_tag'},
153
                                          $itemhash{$item}->{'indicator'},'ITEM');
154
                                          'ITEM' );
154
            my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
155
            my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
155
            my (undef,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber);
156
            my (undef,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber);
156
            $order->add_item( $itemnumber );
157
            $order->add_item( $itemnumber );
157
- 

Return to bug 11247