rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

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