Revision 5244
Added by Jing Tao almost 15 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 2045 | 2045 |
dontOccur($node, "./salutation", "salutation"); |
| 2046 | 2046 |
|
| 2047 | 2047 |
debug("Checking a creator in loop 1...");
|
| 2048 |
$tempResult = $node->findnodes('../address|../phone|../electronicmailAddress|../organizationName');
|
|
| 2048 |
$tempResult = $node->findnodes('../address|../phone|../electronicMailAddress|../organizationName');
|
|
| 2049 | 2049 |
if($tempResult->size > 0) {
|
| 2050 | 2050 |
if($foundDSO == 0) {
|
| 2051 | 2051 |
$foundDSO = 1; |
| ... | ... | |
| 2093 | 2093 |
} |
| 2094 | 2094 |
foreach $node ($results->get_nodelist) {
|
| 2095 | 2095 |
debug("Checking a creator in loop 2...");
|
| 2096 |
$tempResult = $node->findnodes('../address|../phone|../electronicmailAddress|../organizationName');
|
|
| 2096 |
$tempResult = $node->findnodes('../address|../phone|../electronicMailAddress|../organizationName');
|
|
| 2097 | 2097 |
if ($tempResult->size == 0) {
|
| 2098 | 2098 |
if ($foundDSO == 0) {
|
| 2099 | 2099 |
debug("Recording a creator in loop 2 block A...");
|
| ... | ... | |
| 3871 | 3871 |
$$templateVars{'methodPara'} = \@tempMethodPara;
|
| 3872 | 3872 |
$$templateVars{'studyExtentDescription'} = normalizeCD($FORM::studyExtentDescription);
|
| 3873 | 3873 |
$$templateVars{'samplingDescription'} = normalizeCD($FORM::samplingDescription);
|
| 3874 |
$$templateVars{'origStateContact'} = $FORM::origState;
|
|
| 3875 | 3874 |
$$templateVars{'modules'} = $modules;
|
| 3876 | 3875 |
$$templateVars{'required'} = $required;
|
| 3877 | 3876 |
$$templateVars{'show'} = $show;
|
Also available in: Unified diff
Fix two issues: Remove State from 'Data Set Contact' section of confirmation form (part of #3922), and make sure when editing a document that email addresses are picked up appropriately (capitalization).