[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[damieng]

damieng		Mon Aug  8 18:19:16 2016 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  fixed some issues with comments and indents
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.564 loncom/interface/lonparmset.pm:1.565
--- loncom/interface/lonparmset.pm:1.564	Tue Jul 26 12:55:41 2016
+++ loncom/interface/lonparmset.pm	Mon Aug  8 18:19:16 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.564 2016/07/26 12:55:41 raeburn Exp $
+# $Id: lonparmset.pm,v 1.565 2016/08/08 18:19:16 damieng Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -719,7 +719,7 @@
 # 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} $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 {string} $nval - new value
 # @param {string} $ntype - new type
@@ -738,7 +738,7 @@
 # Uses storeparm_by_symb_inner to actually store the parameter, ignoring any returned error.
 #
 # @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 {string} $nval - new value
 # @param {string} $ntype - new type
@@ -776,8 +776,7 @@
             # are there restrictions?
                 if (&rulescache($triggered.'_triggervalue')=~/\w/) {
                     $active=0;
-                    foreach my $possiblevalue (split(/\s*\,
-                            \s*/,&rulescache($triggered.'_triggervalue'))) {
+                    foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
                         if (lc($possiblevalue) eq lc($nval)) { $active=1; }
                     }
                 }