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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-07-06 15:30:03 -0400 (Tue, 06 Jul 2010)
New Revision: 16858

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
Log:
return IDs of newly created payments on success

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2010-07-06 19:06:56 UTC (rev 16857)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Money.pm	2010-07-06 19:30:03 UTC (rev 16858)
@@ -69,7 +69,7 @@
         ],
         "return" => {
             "desc" =>
-                q{1 on success, event on failure.  Event possibilities include:
+                q{Array of payment IDs on success, event on failure.  Event possibilities include:
                 BAD_PARAMS
                     Bad parameters were given to this API method itself.
                     See note field.
@@ -299,6 +299,7 @@
 
     ### RE-OPEN TRANSACTION HERE ###
     $e->xact_begin;
+    my @payment_ids;
 
     # create payment records
     my $create_money_method = "create_money_" . $type;
@@ -338,6 +339,8 @@
                 $e, "$create_money_method failed", $payment, $cc_payload
             );
         }
+
+        push(@payment_ids, $payment->id);
     }
 
     my $evt = _update_patron_credit($e, $patron, $credit);
@@ -360,7 +363,7 @@
     }
 
     $e->commit;
-    return 1;
+    return \@payment_ids;
 }
 
 sub _recording_failure {