[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.224 and 1.228

version 1.224, 2005/06/17 18:11:42 version 1.228, 2005/06/18 14:39:24
Line 291  sub storeparm { Line 291  sub storeparm {
 # - username  # - username
 # - userdomain  # - userdomain
   
   my %recstack;
 sub storeparm_by_symb {  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;
      my $newvalue='';
      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);
      }
          }
       }
       return '';
   }
   
   sub storeparm_by_symb_inner {
 # ---------------------------------------------------------- Get symb, map, etc  # ---------------------------------------------------------- Get symb, map, etc
     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;      my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;
 # ---------------------------------------------------------- Construct prefixes  # ---------------------------------------------------------- Construct prefixes
Line 2590  ENDDEFHEAD Line 2640  ENDDEFHEAD
     if ($env{'form.storerules'}) {      if ($env{'form.storerules'}) {
  my %newrules=();   my %newrules=();
  my @delrules=();   my @delrules=();
  foreach (keys %env) {   my %triggers=();
             if ($_=~/^form\.(\w+)\_action$/) {   foreach my $key (keys(%env)) {
               if ($key=~/^form\.(\w+)\_action$/) {
  my $tempkey=$1;   my $tempkey=$1;
                 if ($env{$_}) {   my $action=$env{$key};
     $newrules{$tempkey.'_action'}=$env{$_};                  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})) {      if (&isdateparm($defkeytype{$tempkey})) {
    $newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
  $newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};   $newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
  $newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};   $newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
  $newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};   $newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
     } else {      } else {
  $newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};   $newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
    $newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
     }      }
  } else {   } else {
     push @delrules,$tempkey.'_action';      push(@delrules,$tempkey.'_action');
     push @delrules,$tempkey.'_hours';      push(@delrules,$tempkey.'_type');
     push @delrules,$tempkey.'_min';      push(@delrules,$tempkey.'_hours');
     push @delrules,$tempkey.'_sec';      push(@delrules,$tempkey.'_min');
     push @delrules,$tempkey.'_value';      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::put('parmdefactions',\%newrules,$dom,$crs);
  &Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);   &Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
  &resetrulescache();   &resetrulescache();
     }      }
     my %lt=&Apache::lonlocal::texthash('hours' => 'Hours',      my %lt=&Apache::lonlocal::texthash('days' => 'Days',
          'hours' => 'Hours',
        'min' => 'Minutes',         'min' => 'Minutes',
        'sec' => 'Seconds',         'sec' => 'Seconds',
        'yes' => 'Yes',         'yes' => 'Yes',
Line 2658  ENDDEFHEAD Line 2722  ENDDEFHEAD
     }      }
  }   }
  $r->print('</select>');   $r->print('</select>');
    unless (&isdateparm($defkeytype{$tempkey})) {
       $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
         '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
    }
  $r->print("\n</td><td>\n");   $r->print("\n</td><td>\n");
   
         if (&isdateparm($defkeytype{$tempkey})) {          if (&isdateparm($defkeytype{$tempkey})) {
       my $days=&rulescache($tempkey.'_days');
     my $hours=&rulescache($tempkey.'_hours');      my $hours=&rulescache($tempkey.'_hours');
     my $min=&rulescache($tempkey.'_min');      my $min=&rulescache($tempkey.'_min');
     my $sec=&rulescache($tempkey.'_sec');      my $sec=&rulescache($tempkey.'_sec');
     $r->print(<<ENDINPUTDATE);      $r->print(<<ENDINPUTDATE);
   <input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
 <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />  <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
 <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />  <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
 <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}  <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
Removed from v.1.224  
changed lines
  Added in v.1.228

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