loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2002/07/25 16:55:53	version 1.41, 2002/08/12 19:45:12
Line 411 sub handler {	Line 411 sub handler {
if ($ENV{'request.course.fn'}) {	if ($ENV{'request.course.fn'}) {
$fn=$ENV{'request.course.fn'};	$fn=$ENV{'request.course.fn'};
if (-e "$fn.db") {	if (-e "$fn.db") {
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) &&	if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
(tie(%parmhash,'GDBM_File',	(tie(%parmhash,'GDBM_File',
$ENV{'request.course.fn'}.'_parms.db',	$ENV{'request.course.fn'}.'_parms.db',
&GDBM_READER,0640))) {	&GDBM_READER(),0640))) {
$hashtied=1;	$hashtied=1;
}	}
}	}
Line 575 sub handler {	Line 575 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).