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