Lines 632-645
if ($op eq "additem") {
Link Here
|
632 |
} elsif ($op eq "dupeitem") { |
632 |
} elsif ($op eq "dupeitem") { |
633 |
#------------------------------------------------------------------------------- |
633 |
#------------------------------------------------------------------------------- |
634 |
# retrieve item if exist => then, it's a modif |
634 |
# retrieve item if exist => then, it's a modif |
635 |
my $item = Koha::Items->find($itemnumber); |
635 |
$current_item = Koha::Items->find($itemnumber)->unblessed; |
636 |
# FIXME Handle non existent item |
636 |
# FIXME Handle non existent item |
637 |
if (C4::Context->preference('autoBarcode') eq 'incremental') { |
637 |
if (C4::Context->preference('autoBarcode') eq 'incremental') { |
638 |
my ( $barcode ) = C4::Barcodes::ValueBuilder::incremental::get_barcode; |
638 |
my ( $barcode ) = C4::Barcodes::ValueBuilder::incremental::get_barcode; |
639 |
$item->barcode($barcode); |
639 |
$current_item->{barcode} = $barcode; |
640 |
} |
640 |
} |
641 |
else { |
641 |
else { |
642 |
$item->barcode(undef); # Don't save it! |
642 |
$current_item->{barcode} = undef; # Don't save it! |
643 |
} |
643 |
} |
644 |
|
644 |
|
645 |
$nextop = "additem"; |
645 |
$nextop = "additem"; |
646 |
- |
|
|