version 1.563, 2016/07/19 21:55:12
|
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; } |
} |
} |
} |
} |
Line 5799 sub defaultsetter {
|
Line 5798 sub defaultsetter {
|
<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'} |
ENDINPUTDATE |
ENDINPUTDATE |
} elsif ($defkeytype{$tempkey} eq 'string_yesno') { |
} elsif ($defkeytype{$tempkey} eq 'string_yesno') { |
my $yeschecked=''; |
my $yeschecked=''; |
my $nochecked=''; |
my $nochecked=''; |
Line 5809 sub defaultsetter {
|
Line 5808 sub defaultsetter {
|
$r->print(<<ENDYESNO); |
$r->print(<<ENDYESNO); |
<label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br /> |
<label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br /> |
<label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label> |
<label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label> |
ENDYESNO |
ENDYESNO |
} else { |
} else { |
$r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />'); |
$r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />'); |
} |
} |