From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 27 Nov 2006 20:18:02 +0000 (+0000)
Subject: added log line to report the total paid
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6d76836c4439c744e2e99543965b15aabc88c867;p=evergreen%2Fpines.git

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 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;