Lines 20-29
Link Here
|
20 |
|
20 |
|
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
|
22 |
|
23 |
use C4::Auth qw( get_template_and_user ); |
23 |
use C4::Auth qw( check_api_auth ); |
24 |
use C4::Reports::Guided qw( execute_query ); |
24 |
use C4::Reports::Guided qw( execute_query ); |
25 |
use Koha::Reports; |
25 |
use Koha::Reports; |
26 |
use JSON qw( encode_json decode_json ); |
26 |
use JSON qw( encode_json decode_json to_json ); |
27 |
use CGI qw ( -utf8 ); |
27 |
use CGI qw ( -utf8 ); |
28 |
|
28 |
|
29 |
use Koha::Caches; |
29 |
use Koha::Caches; |
Lines 44-57
$report_id = $report_rec->id;
Link Here
|
44 |
my @sql_params = $query->multi_param('sql_params'); |
44 |
my @sql_params = $query->multi_param('sql_params'); |
45 |
my @param_names = $query->multi_param('param_names'); |
45 |
my @param_names = $query->multi_param('param_names'); |
46 |
|
46 |
|
47 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
47 |
my ($status, $cookie, $sessionID) = check_api_auth($query, { catalogue => '1'} ); |
48 |
{ |
48 |
unless ($status eq "ok") { |
49 |
template_name => "intranet-main.tt", |
49 |
print $query->header(-type => 'application/json', -status => '401 Unauthorized'); |
50 |
query => $query, |
50 |
print to_json({ auth_status => $status }); |
51 |
type => "intranet", |
51 |
exit 0; |
52 |
flagsrequired => { catalogue => 1, }, |
52 |
} |
53 |
} |
|
|
54 |
); |
55 |
|
53 |
|
56 |
my $cache = Koha::Caches->get_instance(); |
54 |
my $cache = Koha::Caches->get_instance(); |
57 |
my $cache_active = $cache->is_cache_active; |
55 |
my $cache_active = $cache->is_cache_active; |
58 |
- |
|
|