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

(-)a/cataloguing/additem.pl (-4 / +3 lines)
Lines 470-476 if ($op eq "additem") { Link Here
470
470
471
    $nextop = $current_item ? "saveitem" : "additem";
471
    $nextop = $current_item ? "saveitem" : "additem";
472
#-------------------------------------------------------------------------------
472
#-------------------------------------------------------------------------------
473
} elsif ($op eq "dupeitem") {
473
} elsif ($op eq "dupeitem") {{
474
#-------------------------------------------------------------------------------
474
#-------------------------------------------------------------------------------
475
# retrieve item if exist => then, it's a modif
475
# retrieve item if exist => then, it's a modif
476
    if (my $item = Koha::Items->find($itemnumber)) {
476
    if (my $item = Koha::Items->find($itemnumber)) {
Lines 479-485 if ($op eq "additem") { Link Here
479
        $current_item = undef;
479
        $current_item = undef;
480
    }
480
    }
481
481
482
    if (!$current_item) { $nextop = "additem"; return; }
482
    if (!$current_item) { $nextop = "additem"; last; }
483
    if (C4::Context->preference('autoBarcode') eq 'incremental') {
483
    if (C4::Context->preference('autoBarcode') eq 'incremental') {
484
        my ( $barcode ) = C4::Barcodes::ValueBuilder::incremental::get_barcode;
484
        my ( $barcode ) = C4::Barcodes::ValueBuilder::incremental::get_barcode;
485
        $current_item->{barcode} = $barcode;
485
        $current_item->{barcode} = $barcode;
Lines 490-496 if ($op eq "additem") { Link Here
490
490
491
    $nextop = "additem";
491
    $nextop = "additem";
492
#-------------------------------------------------------------------------------
492
#-------------------------------------------------------------------------------
493
} elsif ($op eq "delitem") {
493
}} elsif ($op eq "delitem") {
494
#-------------------------------------------------------------------------------
494
#-------------------------------------------------------------------------------
495
    # check that there is no issue on this item before deletion.
495
    # check that there is no issue on this item before deletion.
496
    my $item = Koha::Items->find($itemnumber);
496
    my $item = Koha::Items->find($itemnumber);
497
- 

Return to bug 32418