Attachment #97095 for bug #24384

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





use Modern::Perl;

use C4::Output qw(output_with_http_headers);
use C4::Reports::Guided;
use Koha::Reports;
use JSON;

    }
}

output_with_http_headers( $query, undef, $json_text, 'json');
    -charset    => 'UTF-8',
    -type       => 'application/json'
);
print $json_text;
- 

Return to bug 24384

Lines 23-28 Link Here

(-)a/opac/svc/report (-6 / +2 lines)
23		23
24	use Modern::Perl;	24	use Modern::Perl;
25		25
		26	use C4::Output qw(output_with_http_headers);
26	use C4::Reports::Guided;	27	use C4::Reports::Guided;
27	use Koha::Reports;	28	use Koha::Reports;
28	use JSON;	29	use JSON;
Lines 85-92 unless ($json_text) { Link Here
85	}	86	}
86	}	87	}
87		88
88	print $query->header(	89	output_with_http_headers( $query, undef, $json_text, 'json');
89	-charset => 'UTF-8',
90	-type => 'application/json'
91	);
92	print $json_text;
93	-