View | Details | Raw Unified | Return to bug 12114
Collapse All | Expand All

(-)a/svc/report (-4 / +3 lines)
Lines 22-28 use Modern::Perl; Link Here
22
22
23
use C4::Auth;
23
use C4::Auth;
24
use C4::Reports::Guided;
24
use C4::Reports::Guided;
25
use JSON;
25
use JSON::XS;
26
use CGI;
26
use CGI;
27
27
28
use Koha::Cache;
28
use Koha::Cache;
Lines 66-79 unless ($json_text) { Link Here
66
        else {
66
        else {
67
            $lines = $sth->fetchall_arrayref;
67
            $lines = $sth->fetchall_arrayref;
68
        }
68
        }
69
        $json_text = to_json($lines);
69
        $json_text = encode_json($lines);
70
70
71
        if ($cache_active) {
71
        if ($cache_active) {
72
            $cache->set_in_cache( $cache_key, $json_text, $report_rec->{cache_expiry} );
72
            $cache->set_in_cache( $cache_key, $json_text, $report_rec->{cache_expiry} );
73
        }
73
        }
74
    }
74
    }
75
    else {
75
    else {
76
        $json_text = to_json($errors);
76
        $json_text = encode_json($errors);
77
    }
77
    }
78
}
78
}
79
79
80
- 

Return to bug 12114