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