From: dbwells <dbwells@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 8 Mar 2011 19:15:01 +0000 (+0000)
Subject: Address LP bug #724583, "Paying Bills with Patron Credit does not always decrease... 
X-Git-Tag: kcls-grey-screen-prod1~2^2~17
X-Git-Url: http://git.equinoxoli.org/?p=evergreen-equinox.git;a=commitdiff_plain;h=608572c6bbe36ebf09b9a9340636f8fe2184627e

Address LP bug #724583, "Paying Bills with Patron Credit does not always decrease patron Credit"


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

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
index dcf19cc..a88cdac 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Money.pm
@@ -323,11 +323,11 @@ sub make_payments {
         my $amount = $payment->amount;
         my $transid = $payment->xact;
         my $trans = $xacts{$transid};
+        # making payment with existing patron credit.
+        $credit -= $amount if $type eq 'credit_payment';
         if( (my $cred = ($trans->balance_owed - $amount)) <= 0 ) {
             # Any overpay on this transaction goes directly into patron
-            # credit making payment with existing patron credit.
-            $credit -= $amount if $type eq 'credit_payment';
-
+            # credit
             $cred = -$cred;
             $credit += $cred;
             my $circ = $e->retrieve_action_circulation($transid);