View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/Output.pm (-4 / +3 lines)
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
- 

Return to bug 6679