Revision 1999
Added by Matt Jones almost 21 years ago
| register-dataset.cgi | ||
|---|---|---|
| 648 | 648 |
|
| 649 | 649 |
push(@invalidParams, |
| 650 | 650 |
"You must provide a method description if you provide a method title.") |
| 651 |
if (hasContent($FORM::methodTitle) && !(scalar(@FORM::methodPara) > 0)); |
|
| 651 |
if (hasContent($FORM::methodTitle) && ( !(scalar(@FORM::methodPara) > 0) |
|
| 652 |
|| (! hasContent($FORM::methodPara[0])))); |
|
| 652 | 653 |
push(@invalidParams, |
| 653 | 654 |
"You must provide a method description if you provide a study extent description.") |
| 654 |
if (hasContent($FORM::studyExtentDescription) && !(scalar(@FORM::methodPara) > 0)); |
|
| 655 |
if (hasContent($FORM::studyExtentDescription) && (!(scalar(@FORM::methodPara) > 0) |
|
| 656 |
|| (! hasContent($FORM::methodPara[0])))); |
|
| 655 | 657 |
push(@invalidParams, |
| 656 | 658 |
"You must provide both a study extent description and a sampling description, or neither.") |
| 657 | 659 |
if ( |
| ... | ... | |
| 668 | 670 |
push(@invalidParams, "Data medium is missing.") |
| 669 | 671 |
unless (hasContent($FORM::dataMedium) || $FORM::dataMedium =~ /elect/); |
| 670 | 672 |
|
| 671 |
if($chkUser){
|
|
| 672 |
my $errorUserPass = validateUserPass(); |
|
| 673 |
if($errorUserPass ne ""){
|
|
| 674 |
push(@invalidParams, $errorUserPass); |
|
| 675 |
} |
|
| 676 |
} |
|
| 673 |
#if ($chkUser) {
|
|
| 674 |
#my $errorUserPass = validateUserPass();
|
|
| 675 |
#if ($errorUserPass ne "") {
|
|
| 676 |
#push(@invalidParams, $errorUserPass);
|
|
| 677 |
#}
|
|
| 678 |
#}
|
|
| 677 | 679 |
|
| 678 | 680 |
return \@invalidParams; |
| 679 | 681 |
} |
Also available in: Unified diff
Added skin for the UCNRS data registry based on earlier work. Minor
modifications to the templates to accomodate this. Fixed a validation
bug in the register-dataset.cgi, and removed an unnecessary Net::LDAP
login as well because the authentication is handled by metacat.