initial checkouts-by-circ-mod plugin. needs testing

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
index 41ab511..de1360e 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
@@ -390,6 +390,20 @@ sub insert_user_funcs {
                        return $val;
                }
        );
+
+       $runner->insert(__OILS_FUNC_userCircsByCircmod  => 
+               sub {
+                       my( $write_key, $userid ) = @_;
+            $logger->error("script_runner: here");
+            my $mods = $e->search_action_open_circ_count_by_circ_mod({usr=>$userid});
+            my $breakdown = {};
+            $breakdown->{$_->circ_modifier} = $_->count for @$mods;
+            use OpenSRF::Utils::JSON;
+            $logger->info("script_runner: Loaded checkouts by circ_modifier breakdown:". 
+                OpenSRF::Utils::JSON->perl2JSON($breakdown));
+                       $runner->insert($write_key, $breakdown, 1) if (keys %$breakdown);
+               }
+       );
 }