|
Lines 749-756
if ($op eq "additem") {
Link Here
|
| 749 |
$itemnumber = q{}; |
749 |
$itemnumber = q{}; |
| 750 |
my $olditemlost = $item->itemlost; |
750 |
my $olditemlost = $item->itemlost; |
| 751 |
my $newitemlost = $newitem->{itemlost}; |
751 |
my $newitemlost = $newitem->{itemlost}; |
| 752 |
LostItem( $item->itemnumber, 'additem' ) |
752 |
if ( $newitemlost && $newitemlost ge '1' && !$olditemlost ) { |
| 753 |
if $newitemlost && $newitemlost ge '1' && !$olditemlost; |
753 |
LostItem( $item->itemnumber, 'additem' ) |
|
|
754 |
} elsif ( !$newitemlost && $olditemlost && $olditemlost ge '1' ) { |
| 755 |
$item->set_found; |
| 756 |
} |
| 754 |
} |
757 |
} |
| 755 |
$nextop="additem"; |
758 |
$nextop="additem"; |
| 756 |
} elsif ($op eq "delinkitem"){ |
759 |
} elsif ($op eq "delinkitem"){ |
| 757 |
- |
|
|