Diff for /rat/lonuserstate.pm between versions 1.25 and 1.26

version 1.25, 2001/11/29 19:23:49 version 1.26, 2001/12/17 00:57:59
Line 30 Line 30
 # (Edit Handler for RAT Maps  # (Edit Handler for RAT Maps
 # (TeX Content Handler  # (TeX Content Handler
 #  #
   # YEAR=2000
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 7/1 Gerd Kortemeyer)  # 7/1 Gerd Kortemeyer)
 # 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)
Line 37 Line 38
 # 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,  # 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,
 # 11/1,11/2,11/14,11/16,11/22,12/28,  # 11/1,11/2,11/14,11/16,11/22,12/28,
   # YEAR=2001
 # 07/05/01,08/30,08/31 Gerd Kortemeyer  # 07/05/01,08/30,08/31 Gerd Kortemeyer
   # 12/16 Scott Harrison
   #
   ###
   
 package Apache::lonuserstate;  package Apache::lonuserstate;
   
   # ------------------------------------------------- modules used by this module
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::File;  use Apache::File;
 use HTML::TokeParser;  use HTML::TokeParser;
 use Apache::lonnet();  use Apache::lonnet();
   use Apache::loncommon();
 use GDBM_File;  use GDBM_File;
 use Apache::lonmsg;  use Apache::lonmsg;
 use Safe;  use Safe;
Line 127  sub loadmap { Line 134  sub loadmap {
                     my $turi=$token->[2]->{'src'};                      my $turi=$token->[2]->{'src'};
                     unless ($ispage) {                      unless ($ispage) {
                         $turi=~/\.(\w+)$/;                          $turi=~/\.(\w+)$/;
                         my $embstyle=&Apache::lonnet::fileembstyle($1);                          my $embstyle=&Apache::loncommon::fileembstyle($1);
                         if ($token->[2]->{'external'} eq 'true') {                          if ($token->[2]->{'external'} eq 'true') {
                             $turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;                              $turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;
                         } else {                          } else {
                            my $embstyle=&Apache::lonnet::fileembstyle($1);                             my $embstyle=&Apache::loncommon::fileembstyle($1);
                            if (($embstyle eq 'img') || ($embstyle eq 'emb')) {                             if (($embstyle eq 'img') || ($embstyle eq 'emb')) {
        $turi='/adm/wrapper'.$turi;         $turi='/adm/wrapper'.$turi;
                            }                             }
Line 284  sub traceroute { Line 291  sub traceroute {
            }             }
        }         }
        if (defined($hash{'to_'.$rid})) {         if (defined($hash{'to_'.$rid})) {
           map {            foreach (split(/\,/,$hash{'to_'.$rid})) {
  my $further=$sofar;   my $further=$sofar;
                 if ($hash{'undercond_'.$_}) {                  if ($hash{'undercond_'.$_}) {
    if (defined($hash{'condid_'.$hash{'undercond_'.$_}})) {     if (defined($hash{'condid_'.$hash{'undercond_'.$_}})) {
Line 296  sub traceroute { Line 303  sub traceroute {
                    }                     }
                 }                  }
                 &traceroute($further,$hash{'goesto_'.$_},$beenhere);                  &traceroute($further,$hash{'goesto_'.$_},$beenhere);
           } split(/\,/,$hash{'to_'.$rid});            }
        }         }
     }      }
 }  }
Line 309  sub accinit { Line 316  sub accinit {
     my %captured=();      my %captured=();
     my $condcounter=0;      my $condcounter=0;
     $acchash{'acc.cond.'.$short.'.0'}=0;      $acchash{'acc.cond.'.$short.'.0'}=0;
     map {      foreach (keys %hash) {
        if ($_=~/^conditions/) {         if ($_=~/^conditions/) {
   my $expr=$hash{$_};    my $expr=$hash{$_};
           map {           foreach ($expr=~m/(\(\(\d+(?:\&\d+)+\)(?:\|\(\d+(?:\&\d+)+\))+\))/g) {
              my $sub=$_;               my $sub=$_;
              my $orig=$_;               my $orig=$_;
       $sub=~/\(\((\d+\&(:?\d+\&)*)(?:\d+\&*)+\)(?:\|\(\1(?:\d+\&*)+\))+\)/;        $sub=~/\(\((\d+\&(:?\d+\&)*)(?:\d+\&*)+\)(?:\|\(\1(?:\d+\&*)+\))+\)/;
Line 323  sub accinit { Line 330  sub accinit {
              $sub=simplify($sub);               $sub=simplify($sub);
              $orig=~s/(\W)/\\$1/g;               $orig=~s/(\W)/\\$1/g;
       $expr=~s/$orig/$sub/;        $expr=~s/$orig/$sub/;
   } ($expr=~m/(\(\(\d+(?:\&\d+)+\)(?:\|\(\d+(?:\&\d+)+\))+\))/g);    }
           $hash{$_}=$expr;            $hash{$_}=$expr;
           unless (defined($captured{$expr})) {            unless (defined($captured{$expr})) {
       $condcounter++;        $condcounter++;
Line 333  sub accinit { Line 340  sub accinit {
        } elsif ($_=~/^param_(\d+)\.(\d+)/) {         } elsif ($_=~/^param_(\d+)\.(\d+)/) {
           my $prefix=&Apache::lonnet::declutter($hash{'map_id_'.$1}).            my $prefix=&Apache::lonnet::declutter($hash{'map_id_'.$1}).
       '___'.$2.'___'.&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});        '___'.$2.'___'.&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});
           map {            foreach (split(/\&/,$hash{$_})) {
      my ($typename,$value)=split(/\=/,$_);       my ($typename,$value)=split(/\=/,$_);
              my ($type,$name)=split(/\:/,$typename);               my ($type,$name)=split(/\:/,$typename);
              $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name)}=               $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name)}=
                                    &Apache::lonnet::unescape($value);                                     &Apache::lonnet::unescape($value);
      $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name).'.type'}=       $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name).'.type'}=
                                    &Apache::lonnet::unescape($type);                                     &Apache::lonnet::unescape($type);
           } split(/\&/,$hash{$_});            }
        }         }
     } keys %hash;      }
     map {      foreach (keys %hash) {
  if ($_=~/^ids/) {   if ($_=~/^ids/) {
   map {    foreach (split(/\,/,$hash{$_})) {
     my $resid=$_;      my $resid=$_;
             my $uri=$hash{'src_'.$resid};              my $uri=$hash{'src_'.$resid};
             $uri=~s/^\/adm\/wrapper//;              $uri=~s/^\/adm\/wrapper//;
Line 374  sub accinit { Line 381  sub accinit {
                  '&'.$urifile.':'.$uricond.'&';                   '&'.$urifile.':'.$uricond.'&';
             }              }
            }              } 
          } split(/\,/,$hash{$_});           }
       }        }
     } keys %hash;      }
     $acchash{'acc.res.'.$short.'.'}='&:0&';      $acchash{'acc.res.'.$short.'.'}='&:0&';
     my $courseuri=$uri;      my $courseuri=$uri;
     $courseuri=~s/^\/res\///;      $courseuri=~s/^\/res\///;
Line 457  sub evalstate { Line 464  sub evalstate {
        $safeeval->permit(":base_math");         $safeeval->permit(":base_math");
        $safeeval->deny(":base_io");         $safeeval->deny(":base_io");
        $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');         $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
        map {         foreach (@conditions) {
    my $line=$_;     my $line=$_;
            chomp($line);             chomp($line);
    my ($condition,$weight)=split(/\:/,$_);     my ($condition,$weight)=split(/\:/,$_);
Line 474  sub evalstate { Line 481  sub evalstate {
                    $state.='1';                     $state.='1';
                }                 }
            }             }
        } @conditions;         }
     }      }
     &Apache::lonnet::appenv('user.state.'.$ENV{'request.course.id'} => $state);      &Apache::lonnet::appenv('user.state.'.$ENV{'request.course.id'} => $state);
     return $state;      return $state;
Line 483  sub evalstate { Line 490  sub evalstate {
 1;  1;
 __END__  __END__
   
   =head1 NAME
   
   Apache::lonuserstate - Construct and maintain state and binary representation
   of course for user
   
   =head1 SYNOPSIS
   
   Invoked by lonroles.pm.
   
   &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
   
   =head1 INTRODUCTION
   
   This module constructs and maintains state and binary representation
   of course for user.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 HANDLER SUBROUTINE
   
   There is no handler subroutine.
   
   =head1 OTHER SUBROUTINES
   
   =over 4
   
   =item *
   
   loadmap() : Loads map from disk
   
   =item *
   
   simplify() : Simplify expression
   
   =item *
   
   traceroute() : Build condition hash
   
   =item *
   
   accinit() : Cascading conditions, quick access, parameters
   
   =item *
   
   readmap() : Read map and all submaps
   
   =item *
   
   evalstate() : Evaluate state string
   
   =back
   
   =cut

Removed from v.1.25  
changed lines
  Added in v.1.26


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