[open-ils-commits] r14318 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-10-08 16:56:45 -0400 (Thu, 08 Oct 2009)
New Revision: 14318

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
Log:
push the CC processing to the end so that it runs just before the final commit

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2009-10-08 20:53:36 UTC (rev 14317)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2009-10-08 20:56:45 UTC (rev 14318)
@@ -190,14 +190,6 @@
 
 	} # all payment objects have been created and inserted. 
 
-    if($type eq 'credit_card_payment') {
-        # TODO send to credit card processor
-        # amount == $total_paid
-        # user == $user_id
-        # other args == $cc_args (hash)
-        # $e->rollback if processing fails.  This will undo everything.
-    }
-
 	my $evt = _update_patron_credit($e, $patron, $credit);
 	return $evt if $evt;
 
@@ -207,6 +199,14 @@
         return $evt if $evt;
     }
 
+    if($type eq 'credit_card_payment') {
+        # TODO send to credit card processor
+        # amount == $total_paid
+        # user == $user_id
+        # other args == $cc_args (hash, see api docs)
+        # $e->rollback if processing fails.  This will undo everything.
+    }
+
     $e->commit;
     return 1;
 }