version 1.16, 2000/11/02 15:53:17
|
version 1.17, 2000/11/02 17:46:43
|
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 373 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'; |