|
Lines 308-330
our $mapping = {
Link Here
|
| 308 |
sub get_url { |
308 |
sub get_url { |
| 309 |
my ( $url, $preferred_language ) = @_; |
309 |
my ( $url, $preferred_language ) = @_; |
| 310 |
my $file; |
310 |
my $file; |
| 311 |
if ($url =~ /koha\/(.*)\.pl/ || $url =~ '/koha/(erm.*)' || $url =~ '/koha/(preservation.*)') { |
311 |
if ( $url =~ /koha\/(.*)\.pl/ || $url =~ '/koha/(erm.*)' || $url =~ '/koha/(preservation.*)' ) { |
| 312 |
$file = $1; |
312 |
$file = $1; |
| 313 |
} else { |
313 |
} else { |
| 314 |
$file = 'mainpage'; |
314 |
$file = 'mainpage'; |
| 315 |
} |
315 |
} |
| 316 |
$file =~ s/[^a-zA-Z0-9_\-\/]*//g; |
316 |
$file =~ s/[^a-zA-Z0-9_\-\/]*//g; |
| 317 |
|
317 |
|
| 318 |
if ( $file =~ m|^erm| || $file =~ m|^preservation|) { |
318 |
if ( $file =~ m|^erm| || $file =~ m|^preservation| ) { |
| 319 |
$file =~ s|\d*+||g; |
319 |
$file =~ s|\d*+||g; |
| 320 |
} |
320 |
} |
| 321 |
|
321 |
|
| 322 |
my $view; |
322 |
my $view; |
| 323 |
if ($url =~ /(?:\?|\&)tab=(?<value>[\w+,.-]*)/) { |
323 |
if ( $url =~ /(?:\?|\&)tab=(?<value>[\w+,.-]*)/ ) { |
| 324 |
$view = $file . '#' . $+{value}; |
324 |
$view = $file . '#' . $+{value}; |
| 325 |
} |
325 |
} |
| 326 |
|
326 |
|
| 327 |
my $base_url = _get_base_url( $preferred_language ); |
327 |
my $base_url = _get_base_url($preferred_language); |
| 328 |
return $base_url |
328 |
return $base_url |
| 329 |
. ( |
329 |
. ( |
| 330 |
exists $mapping->{$view} ? $mapping->{$view} |
330 |
exists $mapping->{$view} ? $mapping->{$view} |
| 331 |
- |
|
|