|
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 - Bug 16776 |
| 32 |
|
| 33 |
my @urlarr = split(/\?/,$url); |
| 34 |
if (scalar @urlarr > 1) { |
| 35 |
my @paramarr = split(/&/,$urlarr[1]); |
| 36 |
for my $index ( reverse 0..$#paramarr ) { |
| 37 |
if ( $paramarr[$index] =~ /^language=/) { |
| 38 |
splice(@paramarr, $index, 1, ()); |
| 39 |
} |
| 40 |
} |
| 41 |
if ( scalar @paramarr > 0) { |
| 42 |
$url = $urlarr[0].'?'.join('&', @paramarr); |
| 43 |
} |
| 44 |
else { |
| 45 |
$url = $urlarr[0]; |
| 46 |
} |
| 47 |
} |
| 48 |
|
| 28 |
C4::Templates::setlanguagecookie( $query, $language, $url ); |
49 |
C4::Templates::setlanguagecookie( $query, $language, $url ); |
| 29 |
- |
|
|