--- rat/lonuserstate.pm 2001/08/30 21:56:55 1.23 +++ rat/lonuserstate.pm 2002/06/05 12:52:05 1.27 @@ -1,11 +1,36 @@ # The LearningOnline Network with CAPA # Construct and maintain state and binary representation of course for user # +# $Id: lonuserstate.pm,v 1.27 2002/06/05 12:52:05 www Exp $ +# +# 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 # # (Edit Handler for RAT Maps # (TeX Content Handler # +# YEAR=2000 # 05/29/00,05/30 Gerd Kortemeyer) # 7/1 Gerd Kortemeyer) # 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer) @@ -13,15 +38,21 @@ # 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,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; +# ------------------------------------------------- modules used by this module use strict; use Apache::Constants qw(:common :http); use Apache::File; use HTML::TokeParser; use Apache::lonnet(); +use Apache::loncommon(); use GDBM_File; use Apache::lonmsg; use Safe; @@ -103,11 +134,11 @@ sub loadmap { my $turi=$token->[2]->{'src'}; unless ($ispage) { $turi=~/\.(\w+)$/; - my $embstyle=&Apache::lonnet::fileembstyle($1); + my $embstyle=&Apache::loncommon::fileembstyle($1); if ($token->[2]->{'external'} eq 'true') { $turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//; } else { - my $embstyle=&Apache::lonnet::fileembstyle($1); + my $embstyle=&Apache::loncommon::fileembstyle($1); if (($embstyle eq 'img') || ($embstyle eq 'emb')) { $turi='/adm/wrapper'.$turi; } @@ -260,7 +291,7 @@ sub traceroute { } } if (defined($hash{'to_'.$rid})) { - map { + foreach (split(/\,/,$hash{'to_'.$rid})) { my $further=$sofar; if ($hash{'undercond_'.$_}) { if (defined($hash{'condid_'.$hash{'undercond_'.$_}})) { @@ -272,7 +303,7 @@ sub traceroute { } } &traceroute($further,$hash{'goesto_'.$_},$beenhere); - } split(/\,/,$hash{'to_'.$rid}); + } } } } @@ -285,10 +316,10 @@ sub accinit { my %captured=(); my $condcounter=0; $acchash{'acc.cond.'.$short.'.0'}=0; - map { + foreach (keys %hash) { if ($_=~/^conditions/) { my $expr=$hash{$_}; - map { + foreach ($expr=~m/(\(\(\d+(?:\&\d+)+\)(?:\|\(\d+(?:\&\d+)+\))+\))/g) { my $sub=$_; my $orig=$_; $sub=~/\(\((\d+\&(:?\d+\&)*)(?:\d+\&*)+\)(?:\|\(\1(?:\d+\&*)+\))+\)/; @@ -299,7 +330,7 @@ sub accinit { $sub=simplify($sub); $orig=~s/(\W)/\\$1/g; $expr=~s/$orig/$sub/; - } ($expr=~m/(\(\(\d+(?:\&\d+)+\)(?:\|\(\d+(?:\&\d+)+\))+\))/g); + } $hash{$_}=$expr; unless (defined($captured{$expr})) { $condcounter++; @@ -309,19 +340,19 @@ sub accinit { } elsif ($_=~/^param_(\d+)\.(\d+)/) { my $prefix=&Apache::lonnet::declutter($hash{'map_id_'.$1}). '___'.$2.'___'.&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); - map { + foreach (split(/\&/,$hash{$_})) { my ($typename,$value)=split(/\=/,$_); my ($type,$name)=split(/\:/,$typename); $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name)}= &Apache::lonnet::unescape($value); $parmhash{$prefix.'.'.&Apache::lonnet::unescape($name).'.type'}= &Apache::lonnet::unescape($type); - } split(/\&/,$hash{$_}); + } } - } keys %hash; - map { + } + foreach (keys %hash) { if ($_=~/^ids/) { - map { + foreach (split(/\,/,$hash{$_})) { my $resid=$_; my $uri=$hash{'src_'.$resid}; $uri=~s/^\/adm\/wrapper//; @@ -339,8 +370,10 @@ sub accinit { if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ /(\&$urifile\:[^\&]*)/) { my $replace=$1; + my $regexp=$replace; + $regexp=~s/\|/\\\|/g; $acchash{'acc.res.'.$short.'.'.$uripath} - =~s/$replace/$replace\|$uricond/; + =~s/$regexp/$replace\|$uricond/; } else { $acchash{'acc.res.'.$short.'.'.$uripath}.= $urifile.':'.$uricond.'&'; @@ -350,9 +383,10 @@ sub accinit { '&'.$urifile.':'.$uricond.'&'; } } - } split(/\,/,$hash{$_}); + } } - } keys %hash; + } + $acchash{'acc.res.'.$short.'.'}='&:0&'; my $courseuri=$uri; $courseuri=~s/^\/res\///; &Apache::lonnet::delenv('(acc\.|httpref\.)'); @@ -432,7 +466,7 @@ sub evalstate { $safeeval->permit(":base_math"); $safeeval->deny(":base_io"); $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); - map { + foreach (@conditions) { my $line=$_; chomp($line); my ($condition,$weight)=split(/\:/,$_); @@ -449,7 +483,7 @@ sub evalstate { $state.='1'; } } - } @conditions; + } } &Apache::lonnet::appenv('user.state.'.$ENV{'request.course.id'} => $state); return $state; @@ -458,9 +492,57 @@ sub evalstate { 1; __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