View | Details | Raw Unified | Return to bug 11018
Collapse All | Expand All

(-)a/acqui/addorderiso2709.pl (-4 / +4 lines)
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
- 

Return to bug 11018