version 1.47, 2002/11/18 15:17:56
|
version 1.49, 2003/02/03 18:03:53
|
Line 40
|
Line 40
|
# 11/1,11/2,11/14,11/16,11/22,12/28, |
# 11/1,11/2,11/14,11/16,11/22,12/28, |
# YEAR=2001 |
# YEAR=2001 |
# 07/05/01,08/30,08/31 Gerd Kortemeyer |
# 07/05/01,08/30,08/31 Gerd Kortemeyer |
# 12/16 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 278 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 '') && ($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 492 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 522 sub readmap {
|
$retfurl='/adm/email?critical=display'; |
$retfurl='/adm/email?critical=display'; |
} |
} |
} |
} |
|
|
|
|
return ($retfurl,$errtext); |
return ($retfurl,$errtext); |
} |
} |
|
|