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

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

Return to bug 22478