loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2002/07/08 20:27:10	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;
}	}
}	}
Line 716 sub handler {	Line 716 sub handler {
$r->print($add.$indentstr);	$r->print($add.$indentstr);
if ($rid) {	if ($rid) {
$r->print('<a href="'.$hash{'src_'.$linkid}.	$r->print('<a href="'.$hash{'src_'.$linkid}.
'?symb='.&Apache::lonnet::escape($symb)	(($hash{'src_'.$linkid}=~/\?/)?'&':'?').
	'symb='.&Apache::lonnet::escape($symb)
.'">'.	.'">'.
$hwk.$hash{'title_'.$rid}.$hwke.'</a>');	$hwk.$hash{'title_'.$rid}.$hwke.'</a>');
}	}