loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.41.2.1 and 1.46

version 1.41.2.1, 2002/09/03 01:23:35	version 1.46, 2002/09/02 19:35:31
Line 339 sub tracetable {	Line 339 sub tracetable {
my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_;	my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_;
my $newshowtypes=$showtypes;	my $newshowtypes=$showtypes;
my $further=$sofar;	my $further=$sofar;
#$Apache::lonxml::debug=1;	# $Apache::lonxml::debug=1;
&Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid});	&Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid});
if ($beenhere=~/\&$rid\&/) { return $further; }	if ($beenhere=~/\&$rid\&/) { return $further; }
$beenhere.=$rid.'&';	$beenhere.=$rid.'&';
Line 434 sub handler {	Line 434 sub handler {
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

my $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};	my $firstres=$hash{'map_start_'.
my $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};	&Apache::lonnet::clutter($ENV{'request.course.uri'})};
	my $lastres=$hash{'map_finish_'.
	&Apache::lonnet::clutter($ENV{'request.course.uri'})};
if (!(($firstres) && ($lastres))) {	if (!(($firstres) && ($lastres))) {
$r->print('<html><body>Coursemap undefined.</body></html>');	$r->print('<html><body>Coursemap undefined.</body></html>');
} else {	} else {
Line 561 sub handler {	Line 563 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");
Line 604 sub handler {	Line 607 sub handler {
$r->print("\n<tr>");	$r->print("\n<tr>");
my @colcont=split(/\&/,$rows[$i]);	my @colcont=split(/\&/,$rows[$i]);
my $avespan=$lcm/($#colcont+1);	my $avespan=$lcm/($#colcont+1);

	# for each item I wish to print on this row...
for ($j=0;$j<=$#colcont;$j++) {	for ($j=0;$j<=$#colcont;$j++) {
my $indent;my $indentstr;	my $indent;my $indentstr;
my $linkid;	my $linkid;
Line 645 sub handler {	Line 650 sub handler {
} elsif ($code eq '4') {	} elsif ($code eq '4') {
$add='<td bgcolor="#E0FFAA">';	$add='<td bgcolor="#E0FFAA">';
} else {	} else {
$add='<td bgcolor="#FFAAAA">';	$add='<td bgcolor="#CCCCFF">';
if ($tcode eq '2') {	if ($tcode eq '2') {
$add='<td bgcolor="#FFFFAA">';	$add='<td bgcolor="#FFFFAA">';
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.41.2.1
changed lines
	Added in v.1.46