From: Kyle M Hall <k...@bywatersolutions.com>
This bug is caused by the subroutine C4::Circulation::LostItem
not passing the privacy parameter when calling
C4::Circulation::MarkIssueReturned.
This issue is actually anonymized when the item is marked as lost,
not when the item is checked in.
Note, even if the issue is anonymized, the fine charged for lost
items still contains a description of the lost item, which is
required for the ability to forgive fees for lost items that
are later found.
Signed-off-by: Martin Renvoize <martin.renvo...@ptfs-europe.com>
---
C4/Circulation.pm | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index c26de76..00d2793 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -1525,6 +1525,7 @@ patron who last borrowed the book.
sub AddReturn {
my ( $barcode, $branch, $exemptfine, $dropbox ) = @_;
+
if ($branch and not GetBranchDetail($branch)) {
warn "AddReturn error: branch '$branch' not found. Reverting to " .
C4::Context->userenv->{'branch'};
undef $branch;
@@ -1757,6 +1758,7 @@ routine in C<C4::Accounts>.
sub MarkIssueReturned {
my ( $borrowernumber, $itemnumber, $dropbox_branch, $returndate, $privacy
) = @_;
+
my $dbh = C4::Context->dbh;
my $query = 'UPDATE issues SET returndate=';
my @bind;
@@ -3098,12 +3100,13 @@ sub LostItem{
# if a borrower lost the item, add a replacement cost to the their record
if ( my $borrowernumber = $issues->{borrowernumber} ){
-
+ my $borrower = C4::Members::GetMemberDetails( $borrowernumber );
+
C4::Accounts::chargelostitem($borrowernumber, $itemnumber,
$issues->{'replacementprice'}, "Lost Item $issues->{'title'}
$issues->{'barcode'}")
if $charge_fee;
#FIXME : Should probably have a way to distinguish this from an item
that really was returned.
#warn " $issues->{'borrowernumber'} / $itemnumber ";
- MarkIssueReturned($borrowernumber,$itemnumber) if $mark_returned;
+
MarkIssueReturned($borrowernumber,$itemnumber,undef,undef,$borrower->{'privacy'})
if $mark_returned;
}
}
--
1.7.2.5
_______________________________________________
Koha-patches mailing list
Koha-patches@lists.koha-community.org
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
