Diff for /rat/lonuserstate.pm between versions 1.16 and 1.17

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';

Removed from v.1.16  
changed lines
  Added in v.1.17


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>