@@ -, +, @@ when lost - item list view (catalogue/moredetail.pl, "Items" tab) - cataloguing (cataloguing/additem.pl) - Batch item modification tools (tools/batchMod.pl) - The long overdue cronjob (misc/cronjobs/longoverdue.pl) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -3624,6 +3624,8 @@ sub ReturnLostItem{ sub LostItem{ my ($itemnumber, $mark_returned) = @_; + $mark_returned //= C4::Context->preference('MarkLostItemsAsReturned'); + my $dbh = C4::Context->dbh(); my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title FROM issues --- a/catalogue/updateitem.pl +++ a/catalogue/updateitem.pl @@ -81,6 +81,6 @@ elsif (defined $itemnotes) { # i.e., itemnotes parameter passed from form ModItem($item_changes, $biblionumber, $itemnumber); -LostItem($itemnumber, 'MARK RETURNED') if $itemlost; +LostItem($itemnumber) if $itemlost; print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber"); --- a/cataloguing/additem.pl +++ a/cataloguing/additem.pl @@ -700,7 +700,7 @@ if ($op eq "additem") { my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield ); if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){ - LostItem($itemnumber,'MARK RETURNED'); + LostItem($itemnumber); } $nextop="additem"; } elsif ($op eq "delinkitem"){ --- a/misc/cronjobs/longoverdue.pl +++ a/misc/cronjobs/longoverdue.pl @@ -44,7 +44,7 @@ use Koha::Patrons; my $lost; # key=lost value, value=num days. my ($charge, $verbose, $confirm, $quiet); my $endrange = 366; -my $mark_returned = 0; +my $mark_returned; my $borrower_category = []; my $skip_borrower_category = []; my $help=0; @@ -142,6 +142,7 @@ Specifies the end of the range of overdue days to deal with (defaults to 366). =item B<--mark-returned> When an item is marked lost, remove it from the borrowers issued items. +If not provided, the value of the system preference 'MarkLostItemsAsReturned' will be used. =item B<--category> --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -208,7 +208,7 @@ if ($op eq "action") { if ( $modified ) { eval { if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) { - LostItem($itemnumber, 'MARK RETURNED') if $item->{itemlost} and not $itemdata->{itemlost}; + LostItem($itemnumber) if $item->{itemlost} and not $itemdata->{itemlost}; } }; } --