rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.33, 2002/07/07 17:52:20	version 1.36, 2002/07/30 20:01:40
Line 277 sub traceroute {	Line 277 sub traceroute {
$sofar=simplify($sofar);	$sofar=simplify($sofar);
unless ($beenhere=~/\&$rid\&/) {	unless ($beenhere=~/\&$rid\&/) {
$beenhere.=$rid.'&';	$beenhere.=$rid.'&';
if ($retfurl eq '') {	if (($retfurl eq '') && ($hash{'src_'.$rid})) {
my ($mapid,$resid)=split(/\./,$rid);	my ($mapid,$resid)=split(/\./,$rid);
$retfurl=$hash{'src_'.$rid}.'?symb='.	$retfurl=$hash{'src_'.$rid}.
	(($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='.
&Apache::lonnet::symbclean(	&Apache::lonnet::symbclean(
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}).	&Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
'___'.$resid.'___'.	'___'.$resid.'___'.
Line 472 sub readmap {	Line 473 sub readmap {
unlink($fn.'parms.db');	unlink($fn.'parms.db');
undef %randompick;	undef %randompick;
$retfurl='';	$retfurl='';
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT,0640)) &&	if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_WRCREAT(),0640)) &&
(tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_WRCREAT,0640))) {	(tie(%parmhash,'GDBM_File',$fn.'_parms.db',&GDBM_WRCREAT(),0640))) {
%hash=();	%hash=();
%parmhash=();	%parmhash=();
$errtext='';	$errtext='';