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 |
my ($staged_date, $staged_hour) = split (/ /, $batch->{'upload_timestamp'}); |
336 |
my ($staged_date, $staged_hour) = split (/ /, $batch->{'upload_timestamp'}); |
337 |
push @list, { |
337 |
push @list, { |
Lines 358-364
sub import_batches_list {
Link Here
|
358 |
sub import_biblios_list { |
358 |
sub import_biblios_list { |
359 |
my ($template, $import_batch_id) = @_; |
359 |
my ($template, $import_batch_id) = @_; |
360 |
my $batch = GetImportBatch($import_batch_id,'staged'); |
360 |
my $batch = GetImportBatch($import_batch_id,'staged'); |
361 |
my $biblios = GetImportRecordsRange($import_batch_id,'','','staged'); |
361 |
return () unless $batch and $batch->{import_status} =~ /^staged$|^reverted$/; |
|
|
362 |
my $biblios = GetImportRecordsRange($import_batch_id,'','',$batch->{import_status}); |
362 |
my @list = (); |
363 |
my @list = (); |
363 |
|
364 |
|
364 |
foreach my $biblio (@$biblios) { |
365 |
foreach my $biblio (@$biblios) { |
365 |
- |
|
|