Lines 27-34
package C4::Output;
Link Here
|
27 |
|
27 |
|
28 |
use Modern::Perl; |
28 |
use Modern::Perl; |
29 |
|
29 |
|
30 |
use URI::Escape; |
30 |
use HTML::Entities; |
31 |
use Scalar::Util qw( looks_like_number ); |
31 |
use Scalar::Util qw( looks_like_number ); |
|
|
32 |
use URI::Escape; |
32 |
|
33 |
|
33 |
use C4::Auth qw( get_template_and_user ); |
34 |
use C4::Auth qw( get_template_and_user ); |
34 |
use C4::Context; |
35 |
use C4::Context; |
Lines 83-88
sub pagination_bar {
Link Here
|
83 |
my $startfrom_name = (@_) ? shift : 'page'; |
84 |
my $startfrom_name = (@_) ? shift : 'page'; |
84 |
my $additional_parameters = shift || {}; |
85 |
my $additional_parameters = shift || {}; |
85 |
|
86 |
|
|
|
87 |
$base_url = HTML::Entities::encode($base_url); |
88 |
|
86 |
$current_page = looks_like_number($current_page) ? $current_page : undef; |
89 |
$current_page = looks_like_number($current_page) ? $current_page : undef; |
87 |
$nb_pages = looks_like_number($nb_pages) ? $nb_pages : undef; |
90 |
$nb_pages = looks_like_number($nb_pages) ? $nb_pages : undef; |
88 |
|
91 |
|
89 |
- |
|
|