version 1.15, 2000/11/01 22:21:36
|
version 1.17, 2000/11/02 17:46:43
|
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 25 use Apache::lonmsg;
|
Line 25 use Apache::lonmsg;
|
use Safe; |
use Safe; |
use Opcode; |
use Opcode; |
|
|
|
|
# ---------------------------------------------------- Globals for this package |
# ---------------------------------------------------- Globals for this package |
|
|
my $pc; # Package counter |
my $pc; # Package counter |
Line 355 sub readmap {
|
Line 354 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 374 sub evalstate {
|
Line 372 sub evalstate {
|
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
$safeeval->share_from('Apache::lonnet',['&varval']); |
$safeeval->share_from('Apache::lonnet',['&EXT']); |
map { |
map { |
my $line=$_; |
my $line=$_; |
chomp($line); |
chomp($line); |
my ($condition,$weight)=split(/\:/,$_); |
my ($condition,$weight)=split(/\:/,$_); |
$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'; |