|
Lines 390-395
if ($op eq ""){
Link Here
|
| 390 |
} |
390 |
} |
| 391 |
$imported++; |
391 |
$imported++; |
| 392 |
} |
392 |
} |
|
|
393 |
|
| 394 |
# If all bibliographic records from the batch have been imported we modifying the status of the batch accordingly |
| 395 |
SetImportBatchStatus( $import_batch_id, 'imported' ) |
| 396 |
if @{ GetImportRecordsRange( $import_batch_id, undef, undef, 'imported' )} |
| 397 |
== @{ GetImportRecordsRange( $import_batch_id )}; |
| 398 |
|
| 393 |
# go to basket page |
399 |
# go to basket page |
| 394 |
if ( $imported ) { |
400 |
if ( $imported ) { |
| 395 |
print $input->redirect("/cgi-bin/koha/acqui/basket.pl?basketno=".$cgiparams->{'basketno'}."&duplinbatch=$duplinbatch"); |
401 |
print $input->redirect("/cgi-bin/koha/acqui/basket.pl?basketno=".$cgiparams->{'basketno'}."&duplinbatch=$duplinbatch"); |
|
Lines 450-455
sub import_batches_list {
Link Here
|
| 450 |
}; |
456 |
}; |
| 451 |
} else { |
457 |
} else { |
| 452 |
# if there are no more line to includes, set the status to imported |
458 |
# if there are no more line to includes, set the status to imported |
|
|
459 |
# FIXME This should be removed in the future. |
| 453 |
SetImportBatchStatus( $batch->{'import_batch_id'}, 'imported' ); |
460 |
SetImportBatchStatus( $batch->{'import_batch_id'}, 'imported' ); |
| 454 |
} |
461 |
} |
| 455 |
} |
462 |
} |
| 456 |
- |
|
|