From abacbcf0d047fa32fd4c252ef087f543d41e77ed Mon Sep 17 00:00:00 2001 From: erickson Date: Sun, 9 Mar 2008 01:22:02 +0000 Subject: [PATCH] using json true instead of 1 git-svn-id: svn://svn.open-ils.org/ILS/trunk@8933 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm index 3f8d46f3bc..af8ead5b97 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm @@ -394,13 +394,14 @@ sub insert_user_funcs { $runner->insert(__OILS_FUNC_userCircsByCircmod => sub { my( $write_key, $userid ) = @_; + use OpenSRF::Utils::JSON; # this bug ugly thing generates a count of checkouts by circ_modifier my $query = { "select" => { - "acp" => ["circ_modifier"] + "acp" => ["circ_modifier"], "circ"=>[{ - "aggregate"=>1, + "aggregate"=> OpenSRF::Utils::JSON->true, "transform"=>"count", "alias"=>"count", "column"=>"id" @@ -422,7 +423,6 @@ sub insert_user_funcs { my $mods = $e->json_query($query); 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); -- 2.43.2