version 1.358, 2011/10/31 22:46:09
|
version 1.359, 2011/11/07 18:22:37
|
Line 334 sub secondary_menu {
|
Line 334 sub secondary_menu {
|
and ( $env{'request.noversionuri'} eq '' |
and ( $env{'request.noversionuri'} eq '' |
|| !defined($env{'request.noversionuri'}))) |
|| !defined($env{'request.noversionuri'}))) |
{ |
{ |
($escurl = $env{'request.filename'}) =~ s{^/home/httpd/html}{}; |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
|
($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{}; |
$escurl = &escape($escurl); |
$escurl = &escape($escurl); |
} |
} |
$menu =~ s/\[url\]/$escurl/g; |
$menu =~ s/\[url\]/$escurl/g; |