|
Lines 30-36
use Encode;
Link Here
|
| 30 |
use C4::Context; |
30 |
use C4::Context; |
| 31 |
use C4::Auth qw( get_template_and_user ); |
31 |
use C4::Auth qw( get_template_and_user ); |
| 32 |
use C4::Output qw( output_html_with_http_headers ); |
32 |
use C4::Output qw( output_html_with_http_headers ); |
| 33 |
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction ); |
33 |
use C4::ImportBatch qw( GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction ); |
| 34 |
use C4::Matcher; |
34 |
use C4::Matcher; |
| 35 |
use C4::Search qw( FindDuplicate ); |
35 |
use C4::Search qw( FindDuplicate ); |
| 36 |
use C4::Biblio qw( |
36 |
use C4::Biblio qw( |
|
Lines 417-424
sub import_batches_list {
Link Here
|
| 417 |
foreach my $batch (@$batches) { |
417 |
foreach my $batch (@$batches) { |
| 418 |
if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ && $batch->{'record_type'} eq 'biblio') { |
418 |
if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ && $batch->{'record_type'} eq 'biblio') { |
| 419 |
# check if there is at least 1 line still staged |
419 |
# check if there is at least 1 line still staged |
| 420 |
my $stagedList=GetImportRecordsRange($batch->{'import_batch_id'}, undef, 1, $batch->{import_status}, { order_by_direction => 'ASC' }); |
420 |
my $import_records_count = Koha::Import::Records->search({ |
| 421 |
if (scalar @$stagedList) { |
421 |
import_batch_id => $batch->{'import_batch_id'}, |
|
|
422 |
status => $batch->{import_status} |
| 423 |
})->count; |
| 424 |
if ( $import_records_count ) { |
| 422 |
push @list, { |
425 |
push @list, { |
| 423 |
import_batch_id => $batch->{'import_batch_id'}, |
426 |
import_batch_id => $batch->{'import_batch_id'}, |
| 424 |
num_records => $batch->{'num_records'}, |
427 |
num_records => $batch->{'num_records'}, |
| 425 |
- |
|
|