Attachment #68685 for bug #12363

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

Lines 3624-3629 sub ReturnLostItem{ Link Here

(-)a/C4/Circulation.pm (+2 lines)
3624	sub LostItem{	3624	sub LostItem{
3625	my ($itemnumber, $mark_returned) = @_;	3625	my ($itemnumber, $mark_returned) = @_;
3626		3626
		3627	$mark_returned //= C4::Context->preference('MarkLostItemsAsReturned');
		3628
3627	my $dbh = C4::Context->dbh();	3629	my $dbh = C4::Context->dbh();
3628	my $sth=$dbh->prepare("SELECT issues.,items.,biblio.title	3630	my $sth=$dbh->prepare("SELECT issues.,items.,biblio.title
3629	FROM issues	3631	FROM issues

Lines 81-86 elsif (defined $itemnotes) { # i.e., itemnotes parameter passed from form Link Here

(-)a/catalogue/updateitem.pl (-1 / +1 lines)
81		81
82	ModItem($item_changes, $biblionumber, $itemnumber);	82	ModItem($item_changes, $biblionumber, $itemnumber);
83		83
84	LostItem($itemnumber, 'MARK RETURNED') if $itemlost;	84	LostItem($itemnumber) if $itemlost;
85		85
86	print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");	86	print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");

Lines 700-706 if ($op eq "additem") { Link Here

(-)a/cataloguing/additem.pl (-1 / +1 lines)
700		700
701	my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield );	701	my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield );
702	if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){	702	if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){
703	LostItem($itemnumber,'MARK RETURNED');	703	LostItem($itemnumber);
704	}	704	}
705	$nextop="additem";	705	$nextop="additem";
706	} elsif ($op eq "delinkitem"){	706	} elsif ($op eq "delinkitem"){

Lines 44-50 use Koha::Patrons; Link Here

(-)a/misc/cronjobs/longoverdue.pl (-1 / +2 lines)
44	my $lost; # key=lost value, value=num days.	44	my $lost; # key=lost value, value=num days.
45	my ($charge, $verbose, $confirm, $quiet);	45	my ($charge, $verbose, $confirm, $quiet);
46	my $endrange = 366;	46	my $endrange = 366;
47	my $mark_returned = 0;	47	my $mark_returned;
48	my $borrower_category = [];	48	my $borrower_category = [];
49	my $skip_borrower_category = [];	49	my $skip_borrower_category = [];
50	my $help=0;	50	my $help=0;
Lines 142-147 Specifies the end of the range of overdue days to deal with (defaults to 366). Link Here
142	=item B<--mark-returned>	142	=item B<--mark-returned>
143		143
144	When an item is marked lost, remove it from the borrowers issued items.	144	When an item is marked lost, remove it from the borrowers issued items.
		145	If not provided, the value of the system preference 'MarkLostItemsAsReturned' will be used.
145		146
146	=item B<--category>	147	=item B<--category>
147		148

Lines 208-214 if ($op eq "action") { Link Here

(-)a/tools/batchMod.pl (-2 / +1 lines)
208	if ( $modified ) {	208	if ( $modified ) {
209	eval {	209	eval {
210	if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {	210	if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {
211	LostItem($itemnumber, 'MARK RETURNED') if $item->{itemlost} and not $itemdata->{itemlost};	211	LostItem($itemnumber) if $item->{itemlost} and not $itemdata->{itemlost};
212	}	212	}
213	};	213	};
214	}	214	}
215	-

Return to bug 12363