loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.42, 2002/08/18 21:45:41	version 1.43, 2002/08/21 17:18:08
Line 569 sub handler {	Line 569 sub handler {
}	}
}	}
# ----------------------------------------------------------- Start Page Output	# ----------------------------------------------------------- Start Page Output
$r->print('<html><head><title>Navigate LON-CAPA Maps</title></head>');	my $bodytagadd='';
$r->print('<body bgcolor="#FFFFFF"');	$r->print(
	'<html><head><title>Navigate Course Map</title></head>');
if (($currenturl=~/^\/res/) &&	if (($currenturl=~/^\/res/) &&
($currenturl!~/^\/res\/adm/)) {	($currenturl!~/^\/res\/adm/)) {
$r->print(' onLoad="window.location.hash='."'curloc'".'"');	$bodytagadd='onLoad="window.location.hash='."'curloc'".'"';
}	}
$r->print('><script>window.focus();</script>'.	$r->print(&Apache::loncommon::bodytag('Navigate Course Map','',
'<img align=right src=/adm/lonIcons/lonlogos.gif>'.	$bodytagadd));
'<h1>Navigate Course Map</h1>');	$r->print('<script>window.focus();</script>');
my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); }	if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); }
$r->print("<h3>$date</h3>\n");	$r->print("<h3>$date</h3>\n");