From 1c328c8e608d58e1e3623a18c1ce176911726d92 Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 13 Jul 2005 15:57:23 +0000 Subject: [PATCH] cachable query timeout now accepts an "interval" git-svn-id: svn://svn.open-ils.org/ILS/trunk@1171 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm index 23486ab5dd..c58868281e 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm @@ -5,6 +5,7 @@ our $VERSION = 1; use Digest::MD5 qw/md5_hex/; use OpenSRF::EX qw/:try/;; use OpenSRF::Utils::Logger qw/:level/; +use OpenSRF::Utils; use OpenILS::Utils::Fieldmapper; my $log = 'OpenSRF::Utils::Logger'; @@ -96,7 +97,7 @@ sub cachable_wrapper { OpenSRF::Utils::Cache->new->put_cache( $cache_key => [@res[int($cache_page * $cache_args{cache_page_size}) .. int(($cache_page + 1) * $cache_args{cache_page_size}) ]] => - $cache_args{timeout} + OpenSRF::Utils->interval_to_seconds( $cache_args{timeout} ); ); } catch Error with { my $e = shift; -- 2.11.0