Lines 29-34
use strict;
Link Here
|
29 |
#use warnings; FIXME - Bug 2505 |
29 |
#use warnings; FIXME - Bug 2505 |
30 |
|
30 |
|
31 |
use URI::Escape; |
31 |
use URI::Escape; |
|
|
32 |
use Scalar::Util qw( looks_like_number ); |
32 |
|
33 |
|
33 |
use C4::Context; |
34 |
use C4::Context; |
34 |
use C4::Templates; |
35 |
use C4::Templates; |
Lines 89-94
sub pagination_bar {
Link Here
|
89 |
my $startfrom_name = (@_) ? shift : 'page'; |
90 |
my $startfrom_name = (@_) ? shift : 'page'; |
90 |
my $additional_parameters = shift || {}; |
91 |
my $additional_parameters = shift || {}; |
91 |
|
92 |
|
|
|
93 |
$current_page = looks_like_number($current_page) ? $current_page : undef; |
94 |
$nb_pages = looks_like_number($nb_pages) ? $nb_pages : undef; |
95 |
|
92 |
# how many pages to show before and after the current page? |
96 |
# how many pages to show before and after the current page? |
93 |
my $pages_around = 2; |
97 |
my $pages_around = 2; |
94 |
|
98 |
|
Lines 106-112
sub pagination_bar {
Link Here
|
106 |
my $url = $base_url . (($base_url =~ m/$delim/ or $base_url =~ m/\?/) ? '&' : '?' ) . $startfrom_name . '='; |
110 |
my $url = $base_url . (($base_url =~ m/$delim/ or $base_url =~ m/\?/) ? '&' : '?' ) . $startfrom_name . '='; |
107 |
my $url_suffix; |
111 |
my $url_suffix; |
108 |
while ( my ( $k, $v ) = each %$additional_parameters ) { |
112 |
while ( my ( $k, $v ) = each %$additional_parameters ) { |
109 |
$url_suffix .= '&' . $k . '=' . $v; |
113 |
$url_suffix .= '&' . URI::Escape::uri_escape_utf8($k) . '=' . URI::Escape::uri_escape_utf8($v); |
110 |
} |
114 |
} |
111 |
my $pagination_bar = ''; |
115 |
my $pagination_bar = ''; |
112 |
|
116 |
|
113 |
- |
|
|