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

Return to bug 11018