--- 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
 <form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
 ENDDEFHEAD
-    if ($env{'form.storerules'}) {
-# storage here
-	&resetrulescache();
-    }
     my @ids=();
     my %typep=();
     my %keyp=();
@@ -2591,6 +2616,45 @@ ENDDEFHEAD
     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
 				\%mapp, \%symbp,\%maptitles,\%uris,
 				\%keyorder,\%defkeytype);
+    if ($env{'form.storerules'}) {
+	my %newrules=();
+	my @delrules=();
+	my %triggers=();
+	foreach my $key (keys(%env)) {
+            if ($key=~/^form\.(\w+)\_action$/) {
+		my $tempkey=$1;
+		my $action=$env{$key};
+                if ($action) {
+		    $newrules{$tempkey.'_action'}=$action;
+		    if ($action ne 'default') {
+			my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
+			$triggers{$whichparm}.=$tempkey.':';
+		    }
+		    $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
+		    if (&isdateparm($defkeytype{$tempkey})) {
+			$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
+			$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
+			$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
+		    } else {
+			$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
+		    }
+		} else {
+		    push(@delrules,$tempkey.'_action');
+		    push(@delrules,$tempkey.'_type');
+		    push(@delrules,$tempkey.'_hours');
+		    push(@delrules,$tempkey.'_min');
+		    push(@delrules,$tempkey.'_sec');
+		    push(@delrules,$tempkey.'_value');
+		}
+	    }
+	}
+	foreach my $key (keys %allparms) {
+	    $newrules{$key.'_triggers'}=$triggers{$key};
+	}
+	&Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);
+	&Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
+	&resetrulescache();
+    }
     my %lt=&Apache::lonlocal::texthash('hours' => 'Hours',
 				       'min' => 'Minutes',
 				       'sec' => 'Seconds',
@@ -2616,7 +2680,6 @@ ENDDEFHEAD
     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
 	unless ($tempkey) { next; }
 	$r->print("\n<tr><td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
-
 	my $action=&rulescache($tempkey.'_action');
 	$r->print('<select name="'.$tempkey.'_action">');
 	if (&isdateparm($defkeytype{$tempkey})) {
@@ -2655,15 +2718,16 @@ ENDINPUTDATE
             if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }
 
 	    $r->print(<<ENDYESNO);
-<label><input type="radio" name="$tempkey" value="yes" $yeschecked /> $lt{'yes'}</label><br />
-<label><input type="radio" name="$tempkey" value="no" $nochecked /> $lt{'no'}</label>
+<label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />
+<label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>
 ENDYESNO
         } else {
-	    $r->print('<input type="text" size="20" name="'.$tempkey.'" value="'.&rulescache($tempkey.'_value').'" />');
+	    $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
 	}
         $r->print('</td></tr>');
     }
-    $r->print("</table></form></body></html>");
+    $r->print("</table>\n<input type='submit' name='storerules' value='".
+	      &mt('Store Rules')."' /></form>\n</body>\n</html>");
     return;
 }
 
@@ -2736,8 +2800,6 @@ sub handler {
         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
 						    text=>"Course Environment"});
-            $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
-						   'Edit Course Environment'));
             &crsenv($r); 
         } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',