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

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

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


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