[BACK]Return to lonuserstate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.23 and 1.28

version 1.23, 2001/08/30 21:56:55 version 1.28, 2002/06/17 16:40:24
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user  # Construct and maintain state and binary representation of course for user
 #  #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 # (Server for RAT Maps  # (Server for RAT Maps
 #  #
 # (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 13 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,
 # 07/05/01,08/30 Gerd Kortemeyer  # YEAR=2001
   # 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 103  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 202  sub loadmap { Line 233  sub loadmap {
                     } else {                      } else {
                         $hash{'param_'.$referid}=''.$newparam;                          $hash{'param_'.$referid}=''.$newparam;
                     }                      }
                       if ($token->[2]->{'name'} eq 'mapalias') {
    $hash{'mapalias_'.$token->[2]->{'value'}}=$referid;
                       }
                 }                   } 
   
             }              }
Line 260  sub traceroute { Line 293  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 272  sub traceroute { Line 305  sub traceroute {
                    }                     }
                 }                  }
                 &traceroute($further,$hash{'goesto_'.$_},$beenhere);                  &traceroute($further,$hash{'goesto_'.$_},$beenhere);
           } split(/\,/,$hash{'to_'.$rid});            }
        }         }
     }      }
 }  }
Line 285  sub accinit { Line 318  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 299  sub accinit { Line 332  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 309  sub accinit { Line 342  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 339  sub accinit { Line 372  sub accinit {
                 if ($acchash{'acc.res.'.$short.'.'.$uripath}=~                  if ($acchash{'acc.res.'.$short.'.'.$uripath}=~
                    /(\&$urifile\:[^\&]*)/) {                     /(\&$urifile\:[^\&]*)/) {
     my $replace=$1;      my $replace=$1;
                       my $regexp=$replace;
                       $regexp=~s/\|/\\\|/g;
                     $acchash{'acc.res.'.$short.'.'.$uripath}                      $acchash{'acc.res.'.$short.'.'.$uripath}
                      =~s/$replace/$replace\|$uricond/;                       =~s/$regexp/$replace\|$uricond/;
                 } else {                  } else {
    $acchash{'acc.res.'.$short.'.'.$uripath}.=     $acchash{'acc.res.'.$short.'.'.$uripath}.=
                      $urifile.':'.$uricond.'&';                       $urifile.':'.$uricond.'&';
Line 350  sub accinit { Line 385  sub accinit {
                  '&'.$urifile.':'.$uricond.'&';                   '&'.$urifile.':'.$uricond.'&';
             }              }
            }              } 
          } split(/\,/,$hash{$_});           }
       }        }
     } keys %hash;      }
       $acchash{'acc.res.'.$short.'.'}='&:0&';
     my $courseuri=$uri;      my $courseuri=$uri;
     $courseuri=~s/^\/res\///;      $courseuri=~s/^\/res\///;
     &Apache::lonnet::delenv('(acc\.|httpref\.)');      &Apache::lonnet::delenv('(acc\.|httpref\.)');
Line 432  sub evalstate { Line 468  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 449  sub evalstate { Line 485  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 458  sub evalstate { Line 494  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.23  
changed lines
  Added in v.1.28

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