version 1.30, 2001/12/17 00:57:59
|
version 1.32, 2002/03/06 15:00:55
|
Line 304 sub handler {
|
Line 304 sub handler {
|
$thisdir=~s/\/[^\/]*$//; |
$thisdir=~s/\/[^\/]*$//; |
foreach (@rlinks) { |
foreach (@rlinks) { |
unless (($_=~/^http:\/\//i) || |
unless (($_=~/^http:\/\//i) || |
($_=~/^\//)) { |
($_=~/^\//) || |
|
($_=~/^javascript:/i) || |
|
($_=~/^mailto:/i) || |
|
($_=~/^\#/)) { |
my $newlocation= |
my $newlocation= |
&Apache::lonnet::hreflocation($thisdir,$_); |
&Apache::lonnet::hreflocation($thisdir,$_); |
$output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/; |
$output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/; |
Line 343 sub handler {
|
Line 346 sub handler {
|
$r->print("\n<script language='JavaScript'>\n". |
$r->print("\n<script language='JavaScript'>\n". |
$allscript."\n</script>\n"); |
$allscript."\n</script>\n"); |
} |
} |
$r->print(&Apache::lonxml::registerurl(1)); |
$r->print(&Apache::lonxml::registerurl(1,undef)); |
$r->print("\n</head>\n"); |
$r->print("\n</head>\n"); |
# ------------------------------------------------------------------ Start body |
# ------------------------------------------------------------------ Start body |
if ($isxml) { |
if ($isxml) { |