Revision 4745
Added by walbridge over 15 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 729 | 729 |
if ((hasContent($FORM::studyExtentDescription) && !hasContent($FORM::samplingDescription)) || |
| 730 | 730 |
(!hasContent($FORM::studyExtentDescription) && hasContent($FORM::samplingDescription))); |
| 731 | 731 |
} |
| 732 |
|
|
| 732 |
|
|
| 733 |
if ($modules->{'upload'} eq 'true') {
|
|
| 734 |
for (my $upNum = 0; $upNum <= $FORM::upCount; $upNum++) {
|
|
| 735 |
my $upn = "upload_$upNum"; |
|
| 736 |
if (hasContent(param($upn)) && !grep {$_ eq ("uploadname_$upNum")} @FORM::deletefile) {
|
|
| 737 |
push(@invalidParams, "Must select a permission for file " . param("uploadname_$upNum"))
|
|
| 738 |
if (!hasContent(param("uploadperm_$upNum")));
|
|
| 739 |
} |
|
| 740 |
} |
|
| 741 |
} |
|
| 742 |
|
|
| 733 | 743 |
push(@invalidParams, "First name of data set contact is missing.") |
| 734 | 744 |
unless (hasContent($FORM::origNamefirstContact) || |
| 735 | 745 |
$FORM::useOrigAddress); |
Also available in: Unified diff
Ensure that file permission is always set. If unset, it'll cause the EML document to be invalid.