--- loncom/interface/lonparmset.pm 2005/06/14 15:43:54 1.222 +++ loncom/interface/lonparmset.pm 2005/06/17 20:01:50 1.226 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.222 2005/06/14 15:43:54 www Exp $ +# $Id: lonparmset.pm,v 1.226 2005/06/17 20:01:50 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -251,10 +251,10 @@ sub rulescache { if ($rulesid ne $env{'request.course.id'}) { %rules=(); } - unless ($rules{$id}) { + unless (defined($rules{$id})) { my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; - my %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs); + %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs); $rulesid=$env{'request.course.id'}; } return $rules{$id}; @@ -291,7 +291,36 @@ sub storeparm { # - username # - userdomain +my %recstack; sub storeparm_by_symb { + my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag)=@_; + unless ($recflag) { +# first time call + %recstack=(); + $recflag=1; + } +# store parameter + &storeparm_by_symb_inner + ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec); + my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/); +# remember that this was set + $recstack{$parm}=1; +# what does this trigger? + foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) { +# don't backfire + unless ((!$triggered) || ($recstack{$triggered})) { + my $action=&rulescache($triggered.'_action'); + my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/); +# set triggered parameter on same level + my $newspnam=$prefix.$triggered; + + &Apache::lonnet::logthis('About to set '.$newspnam.' using action '.$whichaction.' with '.$parm.' ('.$whichparm.')'); + } + } + return ''; +} + +sub storeparm_by_symb_inner { # ---------------------------------------------------------- Get symb, map, etc my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_; # ---------------------------------------------------------- Construct prefixes @@ -2571,10 +2600,6 @@ $bodytag $breadcrumbs