From eb7d0519fda0744c820b4270081715a75cf6c08e Mon Sep 17 00:00:00 2001 From: Jeff Godin Date: Tue, 12 Jun 2012 13:39:25 -0400 Subject: [PATCH] Log bills found during lost checkin with forgive Log outstanding bills found during lost checkin with forgive. Signed-off-by: Jeff Godin --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 4 ++++ 1 file changed, 4 insertions(+) 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) { -- 2.11.0