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 5e5ab8d..f1ee759 100644 (file)
--- 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) {