From 6d76836c4439c744e2e99543965b15aabc88c867 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 27 Nov 2006 20:18:02 +0000 Subject: [PATCH] added log line to report the total paid git-svn-id: svn://svn.open-ils.org/ILS/trunk@6619 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index cae1671ade..7a0be672b5 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -76,12 +76,16 @@ sub make_payments { my $approval_code = $payments->{approval_code} || 'n/a'; my $check_number = $payments->{check_number} || 'n/a'; + my $total_paid = 0; + for my $pay (@{$payments->{payments}}) { my $transid = $pay->[0]; my $amount = $pay->[1]; $amount =~ s/\$//og; # just to be safe + $total_paid += $amount; + $trans = $self->fetch_mbts($client, $login, $transid); return $trans if $U->event_code($trans); @@ -177,9 +181,12 @@ sub make_payments { } - $logger->activity("user ".$user->id." applying total ". + my $uid = $user->id; + $logger->info("user $uid applying total ". "credit of $credit to user $userid") if $credit != 0; + $logger->info("user $uid applying total payment of $total_paid to user $userid"); + $evt = _update_patron_credit( $session, $userid, $credit ); return $evt if $evt; -- 2.11.0