function ProcessSpecsMatch($a_matches)
{
global $aProcessSpecsFormData, $sProcessSpecsFieldName;
//
// strip % at either end
//
$s_spec = substr($a_matches[0], 1, -1);
$a_errors = array();
$s_value = ValueSpec($s_spec, $aProcessSpecsFormData, $a_errors);
return $s_value;
}
function GetDerivedValue($a_form_data, $s_word, &$a_errors)
{
$s_value = "";
//
// a field name or a value specification
// value specifications have the following format:
// %spec%
//
if (substr($s_word, 0, 1) == '%') {
if (substr($s_word, -1, 1) != '%') {
SendAlert(GetMessage(MSG_INV_VALUE_SPEC, array("SPEC" => $s_word)));
$s_value = $s_word;
} else {
$s_spec = substr($s_word, 1, -1);
$s_value = ValueSpec($s_spec, $a_form_data, $a_errors);
}
} else {
$s_fld_name = $s_word;
//
// try form data first, then the environment/server data
//
if (IsFieldSet($s_fld_name, $a_form_data)) {
$s_value = GetFieldValue($s_fld_name, $a_form_data);
} elseif (($s_value = GetEnvValue($s_fld_name)) === false) {
$s_value = "";
}
$s_value = trim($s_value);
}
return $s_value;
}
function GetDerivedValue($a_form_data, $s_word)
{
$s_value = "";
//
// a field name or a value specification
// value specifications have the following format:
// %name%
//
if (substr($s_word, 0, 1) == '%') {
if (substr($s_word, -1, 1) != '%') {
SendAlert("derive_fields: invalid value specification '" . $s_word . "'");
$s_value = $s_word;
} else {
$s_spec = substr($s_word, 1, -1);
$s_value = ValueSpec($s_spec);
}
} else {
$s_fld_name = $s_word;
if (isset($a_form_data[$s_fld_name])) {
$s_value = trim($a_form_data[$s_fld_name]);
}
}
return $s_value;
}
