added log line to report the total paid

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6619 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
index cae1671..7a0be67 100644 (file)
--- 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;