[open-ils-commits] r13567 - trunk/Open-ILS/src/perlmods/OpenILS/Utils (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-07-13 09:31:48 -0400 (Mon, 13 Jul 2009)
New Revision: 13567

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
Log:
capture the timeout argument to json_query

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-07-11 22:22:47 UTC (rev 13566)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-07-13 13:31:48 UTC (rev 13567)
@@ -813,6 +813,8 @@
 	my @arg = ( ref($arg) eq 'ARRAY' ) ? @$arg : ($arg);
     my $method = $self->app.'.json_query.atomic';
     $method =~ s/\.atomic$//o if $self->substream($$options{substream} || 0);
+
+    $self->timeout($$options{timeout});
 	$self->clear_event;
     my $obj;
     my $err;