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

(-)a/cataloguing/additem.pl (-3 / +3 lines)
Lines 687-706 if ($op eq "additem") { Link Here
687
    # check that the barcode don't exist already
687
    # check that the barcode don't exist already
688
    my $addedolditem = TransformMarcToKoha($itemtosave);
688
    my $addedolditem = TransformMarcToKoha($itemtosave);
689
    my $exist_itemnumber = get_item_from_barcode($addedolditem->{'barcode'});
689
    my $exist_itemnumber = get_item_from_barcode($addedolditem->{'barcode'});
690
    my $item = GetItem( $itemnumber );
691
    my $current_itemnumber = $itemnumber; # this is only while we figure out why itemnumber is cleared out below after ModItemFromMarc
690
    if ($exist_itemnumber && $exist_itemnumber != $itemnumber) {
692
    if ($exist_itemnumber && $exist_itemnumber != $itemnumber) {
691
        push @errors,"barcode_not_unique";
693
        push @errors,"barcode_not_unique";
692
    } else {
694
    } else {
693
        ModItemFromMarc($itemtosave,$biblionumber,$itemnumber);
695
        ModItemFromMarc($itemtosave,$biblionumber,$itemnumber);
694
        $itemnumber="";
696
        $itemnumber="";
695
    }
697
    }
696
  my $item = GetItem( $itemnumber );
697
    my $olditemlost =  $item->{'itemlost'};
698
    my $olditemlost =  $item->{'itemlost'};
698
699
699
   my ($lost_tag,$lost_subfield) = GetMarcFromKohaField("items.itemlost",'');
700
   my ($lost_tag,$lost_subfield) = GetMarcFromKohaField("items.itemlost",'');
700
701
701
   my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield );
702
   my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield );
702
    if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){
703
    if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){
703
        LostItem($itemnumber);
704
        LostItem($current_itemnumber);
704
    }
705
    }
705
    $nextop="additem";
706
    $nextop="additem";
706
} elsif ($op eq "delinkitem"){
707
} elsif ($op eq "delinkitem"){
707
- 

Return to bug 19974