Lines 243-249
if ($op eq ""){
Link Here
|
243 |
} |
243 |
} |
244 |
|
244 |
|
245 |
# Create orderlines from MarcItemFieldsToOrder |
245 |
# Create orderlines from MarcItemFieldsToOrder |
246 |
while(my ($budget_id, $infos) = each $budget_hash) { |
246 |
while(my ($budget_id, $infos) = each %$budget_hash) { |
247 |
if ($budget_id) { |
247 |
if ($budget_id) { |
248 |
my %orderinfo = ( |
248 |
my %orderinfo = ( |
249 |
biblionumber => $biblionumber, |
249 |
biblionumber => $biblionumber, |
Lines 391-397
if ($op eq ""){
Link Here
|
391 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
391 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
392 |
my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); |
392 |
my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); |
393 |
$order->add_item( $itemnumber ); |
393 |
$order->add_item( $itemnumber ); |
394 |
} |
394 |
} |
395 |
} else { |
395 |
} else { |
396 |
SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); |
396 |
SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); |
397 |
} |
397 |
} |
Lines 623-629
sub import_biblios_list {
Link Here
|
623 |
locationloop => \@locations, |
623 |
locationloop => \@locations, |
624 |
itypeloop => \@itypes, |
624 |
itypeloop => \@itypes, |
625 |
ccodeloop => \@ccodes, |
625 |
ccodeloop => \@ccodes, |
626 |
notforloanloop => \@notforloans, |
626 |
notforloanloop => \@notforloans, |
627 |
); |
627 |
); |
628 |
batch_info($template, $batch); |
628 |
batch_info($template, $batch); |
629 |
} |
629 |
} |