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 |
- |
|
|