Attachment #68257 for bug #12363

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

Lines 3620-3625 sub ReturnLostItem{ Link Here

(-)a/C4/Circulation.pm (+2 lines)
3620	sub LostItem{	3620	sub LostItem{
3621	my ($itemnumber, $mark_returned) = @_;	3621	my ($itemnumber, $mark_returned) = @_;
3622		3622
		3623	$mark_returned //= C4::Context->preference('MarkLostItemsAsReturned');
		3624
3623	my $dbh = C4::Context->dbh();	3625	my $dbh = C4::Context->dbh();
3624	my $sth=$dbh->prepare("SELECT issues.,items.,biblio.title	3626	my $sth=$dbh->prepare("SELECT issues.,items.,biblio.title
3625	FROM issues	3627	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