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

[svn at svn.open-ils.org]

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

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

Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-07-13 13:32:18 UTC (rev 13570)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-07-13 13:32:29 UTC (rev 13571)
@@ -762,6 +762,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;