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