From: Jeff Godin <jgodin@tadl.org>
Date: Tue, 12 Jun 2012 17:39:25 +0000 (-0400)
Subject: Log bills found during lost checkin with forgive
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=eb7d0519fda0744c820b4270081715a75cf6c08e;p=evergreen%2Ftadl.git

Log bills found during lost checkin with forgive

Log outstanding bills found during lost checkin with forgive.

Signed-off-by: Jeff Godin <jgodin@tadl.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
index 5e5ab8d1dd..f1ee7593d2 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
@@ -3458,6 +3458,10 @@ sub checkin_handle_lost_now_found {
     if ($forgive) {
         my $bills = $U->outstanding_bills_for_circ($self->editor, $self->circ);
 
+        for my $bill (@$bills) {
+            $logger->info("checkin_handle_lost_now_found found bill " . $bill->id . " type " . $bill->btype . " amount " . $bill->amount);
+        }
+
         $logger->debug("forgiving lost item charge of  ".scalar(@$bills));
         my $total_to_forgive = 0;
         for my $bill (@$bills) {