|
Lines 25-28
my $language = $query->param('language');
Link Here
|
| 25 |
my $url = $query->referer() || '/'; |
25 |
my $url = $query->referer() || '/'; |
| 26 |
|
26 |
|
| 27 |
# warn "Language : $query // $language // $url"; |
27 |
# warn "Language : $query // $language // $url"; |
|
|
28 |
|
| 29 |
# If language was set by an external URL the parameter |
| 30 |
# 'language=' should be removed from url string, otherwise |
| 31 |
# the language picker will not work |
| 32 |
$url =~ s|(.)language=[\w-]*&?|$1|; |
| 33 |
$url =~ s|(&\|\?)$||; # Remove extraneous ? or & |
| 34 |
|
| 28 |
C4::Templates::setlanguagecookie( $query, $language, $url ); |
35 |
C4::Templates::setlanguagecookie( $query, $language, $url ); |
| 29 |
- |
|
|