version 1.15, 2000/11/01 22:21:36
|
version 1.16, 2000/11/02 15:53:17
|
Line 11
|
Line 11
|
# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer) |
# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer) |
# |
# |
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30, |
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30, |
# 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,11/1 Gerd Kortemeyer |
# 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,11/1,11/2 Gerd Kortemeyer |
|
|
package Apache::lonuserstate; |
package Apache::lonuserstate; |
|
|
Line 355 sub readmap {
|
Line 355 sub readmap {
|
"Could not tie coursemap $fn for $uri.</font>"); |
"Could not tie coursemap $fn for $uri.</font>"); |
} |
} |
&Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext); |
&Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext); |
&evalstate(); |
|
return $errtext; |
return $errtext; |
} |
} |
|
|
Line 379 sub evalstate {
|
Line 378 sub evalstate {
|
my $line=$_; |
my $line=$_; |
chomp($line); |
chomp($line); |
my ($condition,$weight)=split(/\:/,$_); |
my ($condition,$weight)=split(/\:/,$_); |
$condition=~s/\&([\w\.]+)/\&varval\(\'$1\'\)/g; |
$condition=~s/\[([\w\.]+)\]/\&varval\(\'$1\'\)/g; |
if ($safeeval->reval($condition)) { |
if ($safeeval->reval($condition)) { |
if ($weight eq 'force') { |
if ($weight eq 'force') { |
$state.='3'; |
$state.='3'; |