version 1.16, 2000/11/02 15:53:17
|
version 1.18, 2000/11/14 11:13:12
|
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,11/2 Gerd Kortemeyer |
# 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,11/1,11/2,11/14 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 168 sub loadmap {
|
Line 167 sub loadmap {
|
} else { |
} else { |
$hash{'from_'.$goesto}=''.$linkid; |
$hash{'from_'.$goesto}=''.$linkid; |
} |
} |
|
} elsif ($token->[1] eq 'param') { |
|
# ------------------------------------------------------------------- Parameter |
|
|
|
my $referid=$lpc.'.'.$token->[2]->{'to'}; |
|
my $newparam= |
|
&Apache::lonnet::escape($token->[2]->{'type'}).':'. |
|
&Apache::lonnet::escape($token->[2]->{'name'}).'='. |
|
&Apache::lonnet::escape($token->[2]->{'value'}); |
|
if (defined($hash{'param_'.$referid})) { |
|
$hash{'param_'.$referid}.='&'.$newparam; |
|
} else { |
|
$hash{'param_'.$referid}=''.$newparam; |
|
} |
|
|
} |
} |
|
|
} |
} |
Line 303 sub accinit {
|
Line 316 sub accinit {
|
} keys %hash; |
} keys %hash; |
my $courseuri=$uri; |
my $courseuri=$uri; |
$courseuri=~s/^\/res\///; |
$courseuri=~s/^\/res\///; |
&Apache::lonnet::delenv('(acc\.|httpref\.)'); |
&Apache::lonnet::delenv('(acc\.|httpref\.|resource\.parms)'); |
&Apache::lonnet::appenv(%acchash, |
&Apache::lonnet::appenv(%acchash, |
"request.course.id" => $short, |
"request.course.id" => $short, |
"request.course.fn" => $fn, |
"request.course.fn" => $fn, |
Line 373 sub evalstate {
|
Line 386 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'; |