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

Diff for /loncom/interface/lonparmset.pm between versions 1.564 and 1.565

version 1.564, 2016/07/26 12:55:41 version 1.565, 2016/08/08 18:19:16
Line 719  sub date_sanity_info { Line 719  sub date_sanity_info {
 # Store a parameter value and type by ID, also triggering more parameter changes based on parameter default actions.  # Store a parameter value and type by ID, also triggering more parameter changes based on parameter default actions.
 #  #
 # @param {string} $sresid - resource big hash id  # @param {string} $sresid - resource big hash id
 # @param {string} $spnam - part info and parameter name separated by a dot, e.g. '0.weight'  # @param {string} $spnam - part info and parameter name separated by a dot or underscore, e.g. '0.weight'
 # @param {integer} $snum - level  # @param {integer} $snum - level
 # @param {string} $nval - new value  # @param {string} $nval - new value
 # @param {string} $ntype - new type  # @param {string} $ntype - new type
Line 738  my %recstack; # hash parameter name -> 1 Line 738  my %recstack; # hash parameter name -> 1
 # Uses storeparm_by_symb_inner to actually store the parameter, ignoring any returned error.  # Uses storeparm_by_symb_inner to actually store the parameter, ignoring any returned error.
 #  #
 # @param {string} $symb - resource symb  # @param {string} $symb - resource symb
 # @param {string} $spnam - part info and parameter name separated by a dot, e.g. '0.weight'  # @param {string} $spnam - part info and parameter name separated by a dot or underscore, e.g. '0.weight'
 # @param {integer} $snum - level  # @param {integer} $snum - level
 # @param {string} $nval - new value  # @param {string} $nval - new value
 # @param {string} $ntype - new type  # @param {string} $ntype - new type
Line 776  sub storeparm_by_symb { Line 776  sub storeparm_by_symb {
             # are there restrictions?              # are there restrictions?
                 if (&rulescache($triggered.'_triggervalue')=~/\w/) {                  if (&rulescache($triggered.'_triggervalue')=~/\w/) {
                     $active=0;                      $active=0;
                     foreach my $possiblevalue (split(/\s*\,                      foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
                             \s*/,&rulescache($triggered.'_triggervalue'))) {  
                         if (lc($possiblevalue) eq lc($nval)) { $active=1; }                          if (lc($possiblevalue) eq lc($nval)) { $active=1; }
                     }                      }
                 }                  }
Removed from v.1.564  
changed lines
  Added in v.1.565

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