Bug 28571: Remove C4::Auth::_session_log
[koha.git] / svc / report
1 #!/usr/bin/perl
2
3 # Copyright 2011 Chris Cormack <chris@bigballofwax.co.nz>
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA  02111-1307 USA
19 #
20
21 use strict;
22 use warnings;
23
24 use C4::Auth;
25 use C4::Reports::Guided;
26 use JSON;
27 use CGI;
28
29 use Koha::Cache;
30
31
32 my $query  = CGI->new();
33 my $report_id = $query->param('id');
34 my $report_name = $query->param('name');
35
36 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
37     {
38         template_name   => "intranet-main.tmpl",
39         query           => $query,
40         type            => "intranet",
41         authnotrequired => 0,
42         flagsrequired   => { catalogue => 1, },
43     }
44 );
45
46 my $cache_active = Koha::Cache->is_cache_active;
47 my ($cache_key, $cache, $json_text);
48 if ($cache_active) {
49     $cache_key = "intranet:report:".($report_name ? "name:$report_name" : "id:$report_id");
50     $cache = Koha::Cache->new();
51     $json_text = $cache->get_from_cache($cache_key);
52 }
53
54 unless ($json_text) {
55     my $report_rec = get_saved_report($report_name ? { 'name' => $report_name } : { 'id' => $report_id });
56     my $offset = 0;
57     my $limit  = C4::Context->preference("SvcMaxReportRows") || 10;
58     my ( $sth, $errors ) = execute_query( $report_rec->{savedsql}, $offset, $limit );
59     if ($sth) {
60         my $lines     = $sth->fetchall_arrayref;
61         $json_text = to_json($lines);
62
63         if ($cache_active) {
64             $cache->set_in_cache( $cache_key, $json_text, $report_rec->{cache_expiry} );
65         }
66     }
67     else {
68         $json_text = to_json($errors);
69     }
70 }
71
72 print $query->header;
73 print $json_text;