|
Lines 125-131
This function returns HTML, without any language dependency.
Link Here
|
| 125 |
=cut |
125 |
=cut |
| 126 |
|
126 |
|
| 127 |
sub pagination_bar { |
127 |
sub pagination_bar { |
| 128 |
my $base_url = (@_ ? shift : $ENV{SCRIPT_NAME} . $ENV{QUERY_STRING}) or return undef; |
128 |
my $base_url = (@_ ? shift : $ENV{SCRIPT_NAME} . $ENV{QUERY_STRING}) or return; |
| 129 |
my $nb_pages = (@_) ? shift : 1; |
129 |
my $nb_pages = (@_) ? shift : 1; |
| 130 |
my $current_page = (@_) ? shift : undef; # delay default until later |
130 |
my $current_page = (@_) ? shift : undef; # delay default until later |
| 131 |
my $startfrom_name = (@_) ? shift : 'page'; |
131 |
my $startfrom_name = (@_) ? shift : 'page'; |
|
Lines 267-273
$status is an HTTP status message, like '403 Authentication Required'. It defaul
Link Here
|
| 267 |
|
267 |
|
| 268 |
=cut |
268 |
=cut |
| 269 |
|
269 |
|
| 270 |
sub output_with_http_headers($$$$;$) { |
270 |
sub output_with_http_headers { |
| 271 |
my ( $query, $cookie, $data, $content_type, $status ) = @_; |
271 |
my ( $query, $cookie, $data, $content_type, $status ) = @_; |
| 272 |
$status ||= '200 OK'; |
272 |
$status ||= '200 OK'; |
| 273 |
|
273 |
|
|
Lines 305-311
sub output_with_http_headers($$$$;$) {
Link Here
|
| 305 |
print $query->header($options), $data; |
305 |
print $query->header($options), $data; |
| 306 |
} |
306 |
} |
| 307 |
|
307 |
|
| 308 |
sub output_html_with_http_headers ($$$;$) { |
308 |
sub output_html_with_http_headers { |
| 309 |
my ( $query, $cookie, $data, $status ) = @_; |
309 |
my ( $query, $cookie, $data, $status ) = @_; |
| 310 |
output_with_http_headers( $query, $cookie, $data, 'html', $status ); |
310 |
output_with_http_headers( $query, $cookie, $data, 'html', $status ); |
| 311 |
} |
311 |
} |
| 312 |
- |
|
|