View | Details | Raw Unified | Return to bug 18946
Collapse All | Expand All

(-)a/opac/opac-changelanguage.pl (-2 / +4 lines)
Lines 22-28 use CGI qw ( -utf8 ); Link Here
22
22
23
my $query    = new CGI;
23
my $query    = new CGI;
24
my $language = $query->param('language');
24
my $language = $query->param('language');
25
my $url      = $query->referer() || '/';
25
# Detect where the user came from and save that url
26
my $requestedUrl = $query->url(-base => 1) ;
27
# Use referer url if it matches $requestedUrl else use $requestedUrl as the url .
28
my $url = $query->referer()=~$requestedUrl  ? $query->referer()  : $requestedUrl;
26
29
27
# warn "Language : $query // $language // $url";
30
# warn "Language : $query // $language // $url";
28
31
29
- 

Return to bug 18946