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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-23 13:57:24 -0400 (Thu, 23 Apr 2009)
New Revision: 12979

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
Log:
added template callback for getting user fines summary

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm	2009-04-23 17:37:54 UTC (rev 12978)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm	2009-04-23 17:57:24 UTC (rev 12979)
@@ -59,6 +59,14 @@
     get_org_setting => sub {
         my($org_id, $setting) = @_;
         return $U->ou_ancestor_setting_value($org_id, $setting);
+    },
+
+    # returns fines summary information for open transactions
+    get_user_fines_summary => sub {
+        my $user_id = shift;
+        return $U->simplereq(
+            'open-ils.storage', 
+            'open-ils.storage.money.open_user_summary.search', $user_id);
     }
 };