[open-ils-commits] r8933 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-08 20:22:02 -0500 (Sat, 08 Mar 2008)
New Revision: 8933

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
Log:
using json true instead of 1

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm	2008-03-09 01:20:46 UTC (rev 8932)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/ScriptBuilder.pm	2008-03-09 01:22:02 UTC (rev 8933)
@@ -394,13 +394,14 @@
 	$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 @@
             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);