use JSON;
use CGI qw ( -utf8 );
-use Koha::Cache;
+use Koha::Caches;
my $query = CGI->new();
# convert SQL parameters to placeholders
$sql =~ s/(<<.*?>>)/\?/g;
- my ( $sth, $errors ) = execute_query( $sql, $offset, $limit, \@sql_params );
+ my ( $sth, $errors ) = execute_query( $sql, $offset, $limit, \@sql_params, $report_id );
if ($sth) {
my $lines;
if ($report_annotation) {
$json_text = encode_json($lines);
if ($cache_active) {
- $cache->set_in_cache( $cache_key, $json_text, $report_rec->{cache_expiry} );
+ $cache->set_in_cache( $cache_key, $json_text, { expiry => $report_rec->{cache_expiry} } );
}
}
else {