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

(-)a/acqui/addorderiso2709.pl (-10 / +19 lines)
Lines 179-184 if ($op eq ""){ Link Here
179
                }
179
                }
180
            }
180
            }
181
            ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} || '' );
181
            ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} || '' );
182
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
182
            # 2nd add authorities if applicable
183
            # 2nd add authorities if applicable
183
            if (C4::Context->preference("BiblioAddsAuthorities")){
184
            if (C4::Context->preference("BiblioAddsAuthorities")){
184
                my ($countlinked,$countcreated)=BiblioAddAuthorities($marcrecord, $cgiparams->{'frameworkcode'});
185
                my ($countlinked,$countcreated)=BiblioAddAuthorities($marcrecord, $cgiparams->{'frameworkcode'});
Lines 249-254 if ($op eq ""){ Link Here
249
                my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber );
250
                my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber );
250
                NewOrderItem( $itemnumber, $ordernumber );
251
                NewOrderItem( $itemnumber, $ordernumber );
251
            }
252
            }
253
        } else {
254
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
252
        }
255
        }
253
    }
256
    }
254
    # go to basket page
257
    # go to basket page
Lines 324-338 sub import_batches_list { Link Here
324
    my @list = ();
327
    my @list = ();
325
    foreach my $batch (@$batches) {
328
    foreach my $batch (@$batches) {
326
        if ($batch->{'import_status'} eq "staged") {
329
        if ($batch->{'import_status'} eq "staged") {
327
        push @list, {
330
            # check if there is at least 1 line still staged
328
                import_batch_id => $batch->{'import_batch_id'},
331
            my $stagedList=GetImportBibliosRange($batch->{'import_batch_id'}, undef, undef, 'staged');
329
                num_biblios => $batch->{'num_biblios'},
332
            if (scalar @$stagedList) {
330
                num_items => $batch->{'num_items'},
333
                push @list, {
331
                upload_timestamp => $batch->{'upload_timestamp'},
334
                        import_batch_id => $batch->{'import_batch_id'},
332
                import_status => $batch->{'import_status'},
335
                        num_biblios => $batch->{'num_biblios'},
333
                file_name => $batch->{'file_name'},
336
                        num_items => $batch->{'num_items'},
334
                comments => $batch->{'comments'},
337
                        upload_timestamp => $batch->{'upload_timestamp'},
335
            };
338
                        import_status => $batch->{'import_status'},
339
                        file_name => $batch->{'file_name'},
340
                        comments => $batch->{'comments'},
341
                };
342
            } else {
343
                # if there are no more line to includes, set the status to imported
344
                SetImportBatchStatus( $batch->{'import_batch_id'}, 'imported' );
345
            }
336
        }
346
        }
337
    }
347
    }
338
    $template->param(batch_list => \@list); 
348
    $template->param(batch_list => \@list); 
339
- 

Return to bug 6074