From 5dd3a9c157ef091729dbea78db9ace8c21b63338 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Wed, 17 Jun 2009 16:27:34 -0500
Subject: [PATCH] use Memoize to cache results of GetAuthorisedValues
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Thanks to Frédéric Demians for the original impetus
to improve this function and for doing profiling.

Note that Memoize is a core module since at least 5.8.0.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Koha.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index b4ce84b83d..05e3074e72 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -22,6 +22,7 @@ use strict;
 use C4::Context;
 use C4::Output;
 use URI::Split qw(uri_split);
+use Memoize;
 
 use vars qw($VERSION @ISA @EXPORT $DEBUG);
 
@@ -62,6 +63,9 @@ BEGIN {
 	$DEBUG = 0;
 }
 
+# expensive functions
+memoize('GetAuthorisedValues');
+
 =head1 NAME
 
     C4::Koha - Perl Module containing convenience functions for Koha scripts
-- 
2.20.1