|
Lines 297-308
sub output_with_http_headers($$$$;$) {
Link Here
|
| 297 |
|
297 |
|
| 298 |
# utf8::encode($data) if utf8::is_utf8($data); |
298 |
# utf8::encode($data) if utf8::is_utf8($data); |
| 299 |
|
299 |
|
|
|
300 |
$data =~ s/\&\;amp\; /\&\; /g; |
| 300 |
print $query->header($options), $data; |
301 |
print $query->header($options), $data; |
| 301 |
} |
302 |
} |
| 302 |
|
303 |
|
| 303 |
sub output_html_with_http_headers ($$$;$) { |
304 |
sub output_html_with_http_headers ($$$;$) { |
| 304 |
my ( $query, $cookie, $data, $status ) = @_; |
305 |
my ( $query, $cookie, $data, $status ) = @_; |
| 305 |
$data =~ s/\&\;amp\; /\&\; /g; |
|
|
| 306 |
output_with_http_headers( $query, $cookie, $data, 'html', $status ); |
306 |
output_with_http_headers( $query, $cookie, $data, 'html', $status ); |
| 307 |
} |
307 |
} |
| 308 |
|
308 |
|
| 309 |
- |
|
|