loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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