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

(-)a/C4/Output.pm (-2 / +1 lines)
Lines 99-105 sub pagination_bar { Link Here
99
	$base_url =~ s/$delim$//;		# remove trailing delim
99
	$base_url =~ s/$delim$//;		# remove trailing delim
100
100
101
    my $url = $base_url . (($base_url =~ m/$delim/ or $base_url =~ m/\?/) ? '&' : '?' ) . $startfrom_name . '=';
101
    my $url = $base_url . (($base_url =~ m/$delim/ or $base_url =~ m/\?/) ? '&' : '?' ) . $startfrom_name . '=';
102
    my $url_suffix;
102
    my $url_suffix = '';
103
    while ( my ( $k, $v ) = each %$additional_parameters ) {
103
    while ( my ( $k, $v ) = each %$additional_parameters ) {
104
        $url_suffix .= '&' . URI::Escape::uri_escape_utf8($k) . '=' . URI::Escape::uri_escape_utf8($v);
104
        $url_suffix .= '&' . URI::Escape::uri_escape_utf8($k) . '=' . URI::Escape::uri_escape_utf8($v);
105
    }
105
    }
106
- 

Return to bug 30115