version 1.494, 2018/12/29 23:24:40
|
version 1.495, 2018/12/30 19:47:02
|
Line 2094 sub utilityfunctions {
|
Line 2094 sub utilityfunctions {
|
if ($env{'request.external.querystring'}) { |
if ($env{'request.external.querystring'}) { |
$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'}; |
$currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'}; |
} |
} |
if ($currentsymb =~ /(\#[^\#]+)$/) { |
my ($anchor) = ($env{'request.symb'} =~ /(\#[^\#]+)$/); |
|
if (($anchor) && ($currenturl !~ /\Q$anchor\E$/)) { |
$currenturl .= $1; |
$currenturl .= $1; |
} |
} |
} |
} |