loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.227, 2005/06/17 20:56:06
+version 1.228, 2005/06/18 14:39:24
  Line 314  sub storeparm_by_symb {
  # set triggered parameter on same level
  	   my $newspnam=$prefix.$triggered;
  	   my $newvalue='';
- 	   if ($action eq 'when_setting_') {
+ 	   my $active=1;
+ 	   if ($action=~/^when\_setting/) {
+ # are there restrictions?
+ 	       if (&rulescache($triggered.'_triggervalue')=~/\w/) {
+ 		   $active=0;
+ 		   foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
+ 		       if (lc($possiblevalue) eq lc($nval)) { $active=1; }
+ 		   }
+ 	       }
+ 	       $newvalue=&rulescache($triggered.'_value');
  	   } else {
  	       my $totalsecs=((&rulescache($triggered.'_days')*24+&rulescache($triggered.'_hours'))*60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');
+ 	       if ($action=~/^later\_than/) {
+ 		   $newvalue=$nval+$totalsecs;
+ 	       } else {
+ 		   $newvalue=$nval-$totalsecs;
+ 	       }
+ 	   }
+ 	   if ($active) {
+ 	       &storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),
+ 				   $uname,$udom,$csec,$recflag);
  	   }
- 	   &Apache::lonnet::logthis('About to set '.$newspnam.' using action '.$whichaction.' with '.$parm.' ('.$whichparm.')');
         }
      }
      return '';