added template callback for getting user fines summary

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index 292caac..6c2fcbb 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
@@ -59,6 +59,14 @@ my $_TT_helpers = {
     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);
     }
 };