|
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 |
warn "$preferred_short eq $avail_short ?"; |
| 28 |
$preferred_short eq $avail_short ? $_ : () |
| 29 |
} @available_languages; |
| 30 |
|
| 31 |
my $KohaManualLanguage = $language || C4::Context->preference('KohaManualLanguage') || 'en'; |
| 20 |
my $KohaManualBaseURL = C4::Context->preference('KohaManualBaseURL') || 'http://koha-community.org/manual'; |
32 |
my $KohaManualBaseURL = C4::Context->preference('KohaManualBaseURL') || 'http://koha-community.org/manual'; |
| 21 |
my $KohaManualLanguage = C4::Context->preference('KohaManualLanguage') || 'en'; |
|
|
| 22 |
if ( $KohaManualBaseURL =~ m|^/| ) { |
33 |
if ( $KohaManualBaseURL =~ m|^/| ) { |
| 23 |
$KohaManualBaseURL = C4::Context->preference('staffClientBaseURL') . $KohaManualBaseURL; |
34 |
$KohaManualBaseURL = C4::Context->preference('staffClientBaseURL') . $KohaManualBaseURL; |
| 24 |
} |
35 |
} |
|
Lines 221-227
our $mapping = {
Link Here
|
| 221 |
}; |
232 |
}; |
| 222 |
|
233 |
|
| 223 |
sub get_url { |
234 |
sub get_url { |
| 224 |
my $url = shift; |
235 |
my ( $url, $preferred_language ) = @_; |
| 225 |
my $file; |
236 |
my $file; |
| 226 |
if ($url =~ /koha\/(.*)\.pl/) { |
237 |
if ($url =~ /koha\/(.*)\.pl/) { |
| 227 |
$file = $1; |
238 |
$file = $1; |
|
Lines 230-236
sub get_url {
Link Here
|
| 230 |
} |
241 |
} |
| 231 |
$file =~ s/[^a-zA-Z0-9_\-\/]*//g; |
242 |
$file =~ s/[^a-zA-Z0-9_\-\/]*//g; |
| 232 |
|
243 |
|
| 233 |
my $base_url = _get_base_url; |
244 |
warn "===$preferred_language"; |
|
|
245 |
my $base_url = _get_base_url( $preferred_language ); |
| 234 |
return $base_url . ( exists $mapping->{$file} ? $mapping->{$file} : $mapping->{mainpage} ); |
246 |
return $base_url . ( exists $mapping->{$file} ? $mapping->{$file} : $mapping->{mainpage} ); |
| 235 |
} |
247 |
} |
| 236 |
|
248 |
|