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

(-)a/opac/svc/report (-4 / +3 lines)
Lines 24-30 Link Here
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Reports::Guided;
26
use C4::Reports::Guided;
27
use JSON;
27
use JSON::XS;
28
use CGI;
28
use CGI;
29
29
30
use Koha::Cache;
30
use Koha::Cache;
Lines 70-76 unless ($json_text) { Link Here
70
        else {
70
        else {
71
            $lines = $sth->fetchall_arrayref;
71
            $lines = $sth->fetchall_arrayref;
72
        }
72
        }
73
        $json_text = to_json($lines);
73
        $json_text = encode_json($lines);
74
74
75
        if ($cache_active) {
75
        if ($cache_active) {
76
            $cache->set_in_cache( $cache_key, $json_text,
76
            $cache->set_in_cache( $cache_key, $json_text,
Lines 78-84 unless ($json_text) { Link Here
78
        }
78
        }
79
    }
79
    }
80
    else {
80
    else {
81
        $json_text = to_json($errors);
81
        $json_text = encode_json($errors);
82
    }
82
    }
83
}
83
}
84
84
85
- 

Return to bug 12114