loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2002/08/12 18:21:42	version 1.41.2.1, 2002/09/03 01:23:35
Line 489 sub handler {	Line 489 sub handler {

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

&tracetable(0,$firstres,'&'.$lastres.'&','',0);	&tracetable(0,$firstres,'&','',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

Line 575 sub handler {	Line 569 sub handler {
}	}
$r->print('><script>window.focus();</script>'.	$r->print('><script>window.focus();</script>'.
'<img align=right src=/adm/lonIcons/lonlogos.gif>'.	'<img align=right src=/adm/lonIcons/lonlogos.gif>'.
'<h1>Navigate Course Map</h1>'.	'<h1>Navigate Course Map</h1>');
"<h3>$date</h3>");	my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
	if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); }
	$r->print("<h3>$date</h3>\n");
$r->rflush();	$r->rflush();
$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.	$r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.
localtime($lastcheck).	localtime($lastcheck).