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 |
- |
|
|