Lines 329-337
sub import_batches_list {
Link Here
|
329 |
|
329 |
|
330 |
my @list = (); |
330 |
my @list = (); |
331 |
foreach my $batch (@$batches) { |
331 |
foreach my $batch (@$batches) { |
332 |
if ($batch->{'import_status'} eq "staged") { |
332 |
if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ ) { |
333 |
# check if there is at least 1 line still staged |
333 |
# check if there is at least 1 line still staged |
334 |
my $stagedList=GetImportRecordsRange($batch->{'import_batch_id'}, undef, undef, 'staged'); |
334 |
my $stagedList=GetImportRecordsRange($batch->{'import_batch_id'}, undef, undef, $batch->{import_status}); |
335 |
if (scalar @$stagedList) { |
335 |
if (scalar @$stagedList) { |
336 |
push @list, { |
336 |
push @list, { |
337 |
import_batch_id => $batch->{'import_batch_id'}, |
337 |
import_batch_id => $batch->{'import_batch_id'}, |
Lines 356-362
sub import_batches_list {
Link Here
|
356 |
sub import_biblios_list { |
356 |
sub import_biblios_list { |
357 |
my ($template, $import_batch_id) = @_; |
357 |
my ($template, $import_batch_id) = @_; |
358 |
my $batch = GetImportBatch($import_batch_id,'staged'); |
358 |
my $batch = GetImportBatch($import_batch_id,'staged'); |
359 |
my $biblios = GetImportRecordsRange($import_batch_id,'','','staged'); |
359 |
return () unless $batch and $batch->{import_status} =~ /^staged$|^reverted$/; |
|
|
360 |
my $biblios = GetImportRecordsRange($import_batch_id,'','',$batch->{import_status}); |
360 |
my @list = (); |
361 |
my @list = (); |
361 |
|
362 |
|
362 |
foreach my $biblio (@$biblios) { |
363 |
foreach my $biblio (@$biblios) { |
363 |
- |
|
|