|
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'}, |