loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41.2.1, 2002/09/03 01:23:35	version 1.42, 2002/08/18 21:45:41
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 489 sub handler {	Line 491 sub handler {

@rows=();	@rows=();

&tracetable(0,$firstres,'&','',0);	&tracetable(0,$firstres,'&'.$lastres.'&','',0);
	if ($hash{'src_'.$lastres}) {
	my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});
	if (($brepriv eq '2') \|\| ($brepriv eq 'F')) {
	$rows[$#rows+1]=''.$lastres;
	}
	}

# ------------------------------------------------------------------ Page parms	# ------------------------------------------------------------------ Page parms