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

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

Return to bug 30969