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.40, 2002/08/12 18:21:42
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;
}	}
}	}