@@ -, +, @@ C4::XSLT::transformMARCXML4XSLT --- C4/XSLT.pm | 7 +++++++ 1 file changed, 7 insertions(+) --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -68,7 +68,13 @@ Is only used in this module currently. sub transformMARCXML4XSLT { my ($biblionumber, $record) = @_; my $frameworkcode = GetFrameworkCode($biblionumber) || ''; + my $cache = Koha::Cache->get_instance(); + my $cache_key = "transformMARCXML4XSLT-$biblionumber"; + my $cached = $cache->get_from_cache($cache_key); + return $cached if $cached; + my $tagslib = &GetMarcStructure(1,$frameworkcode); + my @fields; # FIXME: wish there was a better way to handle exceptions eval { @@ -95,6 +101,7 @@ sub transformMARCXML4XSLT { } } } + $cache->set_in_cache( "transformMARCXML4XSLT-$biblionumber", $record, { expiry => 3600 } ); return $record; } --