|
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 |
} |