From 4087bc11588c82ed8e5379d4006fd602234f81c5 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 8 Oct 2009 20:56:45 +0000 Subject: [PATCH] push the CC processing to the end so that it runs just before the final commit git-svn-id: svn://svn.open-ils.org/ILS/trunk@14318 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm index be909d59b3..0d27690161 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm @@ -190,14 +190,6 @@ sub make_payments { } # 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 @@ sub make_payments { 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; } -- 2.11.0