[open-ils-commits] r13568 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-07-13 09:32:04 -0400 (Mon, 13 Jul 2009)
New Revision: 13568

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

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-07-13 13:31:48 UTC (rev 13567)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-07-13 13:32:04 UTC (rev 13568)
@@ -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;