--- loncom/interface/lonparmset.pm 2016/07/19 21:55:12 1.563
+++ loncom/interface/lonparmset.pm 2016/08/08 18:19:16 1.565
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.563 2016/07/19 21:55:12 damieng 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 @@ sub date_sanity_info {
# 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 @@ my %recstack; # hash parameter name -> 1
# 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 @@ sub storeparm_by_symb {
# 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; }
}
}
@@ -5799,7 +5798,7 @@ sub defaultsetter {
$lt{'hours'}
$lt{'min'}
$lt{'sec'}
- ENDINPUTDATE
+ENDINPUTDATE
} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
my $yeschecked='';
my $nochecked='';
@@ -5809,7 +5808,7 @@ sub defaultsetter {
$r->print(< $lt{'yes'}
- ENDYESNO
+ENDYESNO
} else {
$r->print('');
}