|
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 |
- |
|
|