Lines 41-47
use C4::Koha;
Link Here
|
41 |
use C4::Budgets; |
41 |
use C4::Budgets; |
42 |
use C4::Acquisition; |
42 |
use C4::Acquisition; |
43 |
use C4::Bookseller qw/GetBookSellerFromId/; |
43 |
use C4::Bookseller qw/GetBookSellerFromId/; |
44 |
use C4::Dates; |
|
|
45 |
use C4::Suggestions; # GetSuggestion |
44 |
use C4::Suggestions; # GetSuggestion |
46 |
use C4::Branch; # GetBranches |
45 |
use C4::Branch; # GetBranches |
47 |
use C4::Members; |
46 |
use C4::Members; |
Lines 343-353
sub import_batches_list {
Link Here
|
343 |
# check if there is at least 1 line still staged |
342 |
# check if there is at least 1 line still staged |
344 |
my $stagedList=GetImportBibliosRange($batch->{'import_batch_id'}, undef, undef, 'staged'); |
343 |
my $stagedList=GetImportBibliosRange($batch->{'import_batch_id'}, undef, undef, 'staged'); |
345 |
if (scalar @$stagedList) { |
344 |
if (scalar @$stagedList) { |
|
|
345 |
my ($staged_date, $staged_hour) = split (/ /, $batch->{'upload_timestamp'}); |
346 |
push @list, { |
346 |
push @list, { |
347 |
import_batch_id => $batch->{'import_batch_id'}, |
347 |
import_batch_id => $batch->{'import_batch_id'}, |
348 |
num_biblios => $batch->{'num_biblios'}, |
348 |
num_biblios => $batch->{'num_biblios'}, |
349 |
num_items => $batch->{'num_items'}, |
349 |
num_items => $batch->{'num_items'}, |
350 |
upload_timestamp => $batch->{'upload_timestamp'}, |
350 |
staged_date => $staged_date, |
|
|
351 |
staged_hour => $staged_hour, |
351 |
import_status => $batch->{'import_status'}, |
352 |
import_status => $batch->{'import_status'}, |
352 |
file_name => $batch->{'file_name'}, |
353 |
file_name => $batch->{'file_name'}, |
353 |
comments => $batch->{'comments'}, |
354 |
comments => $batch->{'comments'}, |