Lines 1117-1124
sub create_items_and_generate_order_hash {
Link Here
|
1117 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
1117 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
1118 |
for ( my $qtyloop = 1 ; $qtyloop <= $fields->{c_quantity} ; $qtyloop++ ) { |
1118 |
for ( my $qtyloop = 1 ; $qtyloop <= $fields->{c_quantity} ; $qtyloop++ ) { |
1119 |
my ( $biblionumber, undef, $itemnumber ) = |
1119 |
my ( $biblionumber, undef, $itemnumber ) = |
1120 |
AddItemFromMarc( $fields->{marcrecord}, $fields->{biblionumber} ); |
1120 |
AddItemFromMarc( $record, $fields->{biblionumber} ); |
1121 |
$order->add_item($itemnumber); |
1121 |
$order->add_item($itemnumber); |
|
|
1122 |
push @itemnumbers, $itemnumber; |
1122 |
} |
1123 |
} |
1123 |
} |
1124 |
} |
1124 |
} |
1125 |
} |
1125 |
- |
|
|