version 1.47, 2002/11/18 15:17:56
|
version 1.48, 2002/12/12 18:00:24
|
Line 278 sub traceroute {
|
Line 278 sub traceroute {
|
$sofar=simplify($sofar); |
$sofar=simplify($sofar); |
unless ($beenhere=~/\&$rid\&/) { |
unless ($beenhere=~/\&$rid\&/) { |
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
if (($retfurl eq '') && ($hash{'src_'.$rid})) { |
if (($retfurl eq '') && ($hash{'src_'.$rid}) |
|
&& ($hash{'src_'.$rid}!~/\.sequence$/)) { |
my ($mapid,$resid)=split(/\./,$rid); |
my ($mapid,$resid)=split(/\./,$rid); |
$retfurl=$hash{'src_'.$rid}. |
$retfurl=$hash{'src_'.$rid}. |
(($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='. |
(($hash{'src_'.$rid}=~/\?/)?'&':'?').'symb='. |
Line 492 sub readmap {
|
Line 493 sub readmap {
|
&pickrandom(); |
&pickrandom(); |
} |
} |
# ------------------------------------------------------------ Version tracking |
# ------------------------------------------------------------ Version tracking |
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
# if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
&Apache::lonnet::logthis('Will be version tracking'); |
# &Apache::lonnet::logthis('Will be version tracking'); |
} |
# } |
unless ((untie(%hash)) && (untie(%parmhash))) { |
unless ((untie(%hash)) && (untie(%parmhash))) { |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
&Apache::lonnet::logthis("<font color=blue>WARNING: ". |
"Could not untie coursemap $fn for $uri.</font>"); |
"Could not untie coursemap $fn for $uri.</font>"); |
Line 522 sub readmap {
|
Line 523 sub readmap {
|
$retfurl='/adm/email?critical=display'; |
$retfurl='/adm/email?critical=display'; |
} |
} |
} |
} |
|
|
|
|
return ($retfurl,$errtext); |
return ($retfurl,$errtext); |
} |
} |
|
|