|
version 1.34, 2002/07/15 12:22:32
|
version 1.36, 2002/07/30 20:01:40
|
|
Line 279 sub traceroute {
|
Line 279 sub traceroute {
|
| $beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
| if (($retfurl eq '') && ($hash{'src_'.$rid})) { |
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=''; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserstate.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat