Lines 333-345
sub import_batches_list {
Link Here
|
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, 'staged'); |
335 |
if (scalar @$stagedList) { |
335 |
if (scalar @$stagedList) { |
336 |
my ($staged_date, $staged_hour) = split (/ /, $batch->{'upload_timestamp'}); |
|
|
337 |
push @list, { |
336 |
push @list, { |
338 |
import_batch_id => $batch->{'import_batch_id'}, |
337 |
import_batch_id => $batch->{'import_batch_id'}, |
339 |
num_biblios => $batch->{'num_biblios'}, |
338 |
num_biblios => $batch->{'num_biblios'}, |
340 |
num_items => $batch->{'num_items'}, |
339 |
num_items => $batch->{'num_items'}, |
341 |
staged_date => $staged_date, |
340 |
staged_date => $batch->{'upload_timestamp'}, |
342 |
staged_hour => $staged_hour, |
|
|
343 |
import_status => $batch->{'import_status'}, |
341 |
import_status => $batch->{'import_status'}, |
344 |
file_name => $batch->{'file_name'}, |
342 |
file_name => $batch->{'file_name'}, |
345 |
comments => $batch->{'comments'}, |
343 |
comments => $batch->{'comments'}, |