|
Lines 34-39
use C4::Context;
Link Here
|
| 34 |
use C4::Dates qw(format_date); |
34 |
use C4::Dates qw(format_date); |
| 35 |
use C4::Budgets qw(GetCurrency); |
35 |
use C4::Budgets qw(GetCurrency); |
| 36 |
use C4::Templates; |
36 |
use C4::Templates; |
|
|
37 |
use Carp; |
| 38 |
use Encode; |
| 37 |
|
39 |
|
| 38 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
40 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
| 39 |
|
41 |
|
|
Lines 299-305
sub output_with_http_headers {
Link Here
|
| 299 |
} |
301 |
} |
| 300 |
|
302 |
|
| 301 |
$data =~ s/\&\;amp\; /\&\; /g; |
303 |
$data =~ s/\&\;amp\; /\&\; /g; |
| 302 |
utf8::encode($data); |
304 |
eval { $data = encode('UTF-8', $data, Encode::FB_CROAK); }; |
|
|
305 |
if ( $@ ) { carp "Error encoding $data: $@" }; |
| 306 |
|
| 303 |
print $query->header($options), $data; |
307 |
print $query->header($options), $data; |
| 304 |
} |
308 |
} |
| 305 |
|
309 |
|
| 306 |
- |
|
|