|
Lines 43-55
BEGIN {
Link Here
|
| 43 |
%EXPORT_TAGS = ( all =>[qw(setlanguagecookie pagination_bar parametrized_url |
43 |
%EXPORT_TAGS = ( all =>[qw(setlanguagecookie pagination_bar parametrized_url |
| 44 |
&output_with_http_headers &output_ajax_with_http_headers &output_html_with_http_headers)], |
44 |
&output_with_http_headers &output_ajax_with_http_headers &output_html_with_http_headers)], |
| 45 |
ajax =>[qw(&output_with_http_headers &output_ajax_with_http_headers is_ajax)], |
45 |
ajax =>[qw(&output_with_http_headers &output_ajax_with_http_headers is_ajax)], |
| 46 |
html =>[qw(&output_with_http_headers &output_html_with_http_headers)] |
46 |
html =>[qw(&output_with_http_headers &output_html_with_http_headers &output_with_redirect)] |
| 47 |
); |
47 |
); |
| 48 |
push @EXPORT, qw( |
48 |
push @EXPORT, qw( |
| 49 |
setlanguagecookie getlanguagecookie pagination_bar parametrized_url |
49 |
setlanguagecookie getlanguagecookie pagination_bar parametrized_url |
| 50 |
); |
50 |
); |
| 51 |
push @EXPORT, qw( |
51 |
push @EXPORT, qw( |
| 52 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers |
52 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers &output_with_redirect |
| 53 |
); |
53 |
); |
| 54 |
|
54 |
|
| 55 |
} |
55 |
} |
|
Lines 284-289
sub output_with_http_headers {
Link Here
|
| 284 |
print $query->header($options), $data; |
284 |
print $query->header($options), $data; |
| 285 |
} |
285 |
} |
| 286 |
|
286 |
|
|
|
287 |
sub output_with_redirect { |
| 288 |
my ( $query, $url, $cookie ) = @_; |
| 289 |
print $query->redirect( |
| 290 |
-URL => $url, |
| 291 |
-COOKIE => $cookie, |
| 292 |
); |
| 293 |
} |
| 294 |
|
| 287 |
sub output_html_with_http_headers { |
295 |
sub output_html_with_http_headers { |
| 288 |
my ( $query, $cookie, $data, $status, $extra_options ) = @_; |
296 |
my ( $query, $cookie, $data, $status, $extra_options ) = @_; |
| 289 |
output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options ); |
297 |
output_with_http_headers( $query, $cookie, $data, 'html', $status, $extra_options ); |