| Lines 17-24
          sub _get_help_version {
      
      
        Link Here | 
        
          | 17 | } | 17 | } | 
        
          | 18 |  | 18 |  | 
        
          | 19 | sub _get_base_url { | 19 | sub _get_base_url { | 
            
              |  |  | 20 |     my ( $preferred_language ) = @_; | 
            
              | 21 |  | 
            
              | 22 |     my @available_languages = qw( en ar cs es fr it pt_BZ tz zh_TW ); | 
            
              | 23 |  | 
            
              | 24 |     my ( $language ) = grep { | 
            
              | 25 |         my $preferred_short = substr $preferred_language, 0, 2; | 
            
              | 26 |         my $avail_short = substr $_, 0, 2; | 
            
              | 27 |         $preferred_short eq $avail_short ? $_ : () | 
            
              | 28 |     } @available_languages; | 
            
              | 29 |  | 
            
              | 30 |     my $KohaManualLanguage = $language || C4::Context->preference('KohaManualLanguage') || 'en'; | 
        
          | 20 |     my $KohaManualBaseURL = C4::Context->preference('KohaManualBaseURL') || 'http://koha-community.org/manual'; | 31 |     my $KohaManualBaseURL = C4::Context->preference('KohaManualBaseURL') || 'http://koha-community.org/manual'; | 
            
              | 21 |     my $KohaManualLanguage = C4::Context->preference('KohaManualLanguage') || 'en'; |  |  | 
        
          | 22 |     if ( $KohaManualBaseURL =~ m|^/| ) { | 32 |     if ( $KohaManualBaseURL =~ m|^/| ) { | 
        
          | 23 |         $KohaManualBaseURL = C4::Context->preference('staffClientBaseURL') . $KohaManualBaseURL; | 33 |         $KohaManualBaseURL = C4::Context->preference('staffClientBaseURL') . $KohaManualBaseURL; | 
        
          | 24 |     } | 34 |     } | 
  
    | Lines 221-227
          our $mapping = {
      
      
        Link Here | 
        
          | 221 | }; | 231 | }; | 
        
          | 222 |  | 232 |  | 
        
          | 223 | sub get_url { | 233 | sub get_url { | 
          
            
              | 224 |     my $url = shift; | 234 |     my ( $url, $preferred_language ) = @_; | 
        
          | 225 |     my $file; | 235 |     my $file; | 
        
          | 226 |     if ($url =~ /koha\/(.*)\.pl/) { | 236 |     if ($url =~ /koha\/(.*)\.pl/) { | 
        
          | 227 |         $file = $1; | 237 |         $file = $1; | 
  
    | Lines 230-236
          sub get_url {
      
      
        Link Here | 
        
          | 230 |     } | 240 |     } | 
        
          | 231 |     $file =~ s/[^a-zA-Z0-9_\-\/]*//g; | 241 |     $file =~ s/[^a-zA-Z0-9_\-\/]*//g; | 
        
          | 232 |  | 242 |  | 
          
            
              | 233 |     my $base_url = _get_base_url; | 243 |     my $base_url = _get_base_url( $preferred_language ); | 
        
          | 234 |     return $base_url . ( exists $mapping->{$file} ? $mapping->{$file} : $mapping->{mainpage} ); | 244 |     return $base_url . ( exists $mapping->{$file} ? $mapping->{$file} : $mapping->{mainpage} ); | 
        
          | 235 | } | 245 | } | 
        
          | 236 |  | 246 |  |