Revision 2149
Added by sgarg over 20 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 562 | 562 |
unless hasContent($FORM::origNamelast0); |
| 563 | 563 |
push(@invalidParams, "Abstract is missing.") |
| 564 | 564 |
unless hasContent($FORM::abstract); |
| 565 |
push(@invalidParams, "Beginning year of data set is missing.") |
|
| 566 |
unless (hasContent($FORM::beginningYear) || $FORM::temporalRequired ne 'true'); |
|
| 565 |
if($FORM::hasTemporal eq 'true'){
|
|
| 566 |
push(@invalidParams, "Beginning year of data set is missing.") |
|
| 567 |
unless (hasContent($FORM::beginningYear) || $FORM::temporalRequired ne 'true'); |
|
| 568 |
push(@invalidParams, "Ending year has been specified but beginning year of data set is missing.") |
|
| 569 |
if ((!hasContent($FORM::beginningYear)) && hasContent($FORM::endingYear)); |
|
| 570 |
} |
|
| 567 | 571 |
push(@invalidParams, "Geographic description is missing.") |
| 568 | 572 |
unless (hasContent($FORM::geogdesc) || $FORM::spatialRequired ne 'true'); |
| 569 | 573 |
|
| 574 |
if($FORM::beginningMonth eq "00"){
|
|
| 575 |
if (hasContent($FORM::beginningYear)){
|
|
| 576 |
$FORM::beginningMonth = "01"; |
|
| 577 |
} else {
|
|
| 578 |
$FORM::beginningMonth = ""; |
|
| 579 |
} |
|
| 580 |
} |
|
| 581 |
if($FORM::beginningDay eq "00"){
|
|
| 582 |
if (hasContent($FORM::beginningYear)){
|
|
| 583 |
$FORM::beginningDay = "01"; |
|
| 584 |
} else {
|
|
| 585 |
$FORM::beginningDay = ""; |
|
| 586 |
} |
|
| 587 |
} |
|
| 588 |
if($FORM::endingMonth eq "00"){
|
|
| 589 |
if (hasContent($FORM::endingYear)){
|
|
| 590 |
$FORM::endingMonth = "01"; |
|
| 591 |
} else {
|
|
| 592 |
$FORM::endingMonth = ""; |
|
| 593 |
} |
|
| 594 |
} |
|
| 595 |
if($FORM::endingDay eq "00"){
|
|
| 596 |
if (hasContent($FORM::endingYear)){
|
|
| 597 |
$FORM::endingDay = "01"; |
|
| 598 |
} else {
|
|
| 599 |
$FORM::endingDay = ""; |
|
| 600 |
} |
|
| 601 |
} |
|
| 602 |
|
|
| 570 | 603 |
# If the "use site" coord. box is checked and if the site is in |
| 571 | 604 |
# the longitude hash ... && ($siteLatDMS{$FORM::site})
|
| 572 |
|
|
| 605 |
|
|
| 573 | 606 |
if($FORM::hasSpatial eq 'true'){
|
| 574 | 607 |
if (($FORM::useSiteCoord) && ($siteLatDMS{$FORM::site}) ) {
|
| 575 | 608 |
|
| ... | ... | |
| 606 | 639 |
unless(hasContent($latDeg1) && hasContent($longDeg1)); |
| 607 | 640 |
}else{
|
| 608 | 641 |
push(@invalidParams, "Latitude degrees are missing.") |
| 609 |
unless hasContent($latDeg1);
|
|
| 642 |
unless (hasContent($latDeg1) || $FORM::spatialRequired ne 'true');
|
|
| 610 | 643 |
push(@invalidParams, "Longitude degrees are missing.") |
| 611 |
unless hasContent($longDeg1);
|
|
| 644 |
unless (hasContent($longDeg1) || $FORM::spatialRequired ne 'true');
|
|
| 612 | 645 |
} |
| 646 |
push(@invalidParams, |
|
| 647 |
"You must provide a geographic description if you provide latitude and longitude information.") |
|
| 648 |
if ((hasContent($latDeg1) || (hasContent($longDeg1))) && (!hasContent($FORM::geogdesc))); |
|
| 613 | 649 |
} |
| 614 | 650 |
|
| 615 | 651 |
if($FORM::hasMethod eq 'true'){
|
| ... | ... | |
| 1092 | 1128 |
} |
| 1093 | 1129 |
} |
| 1094 | 1130 |
|
| 1095 |
if(hasContent($FORM::geodesc) || ($FORM::latDeg1 != 0 && $FORM::longDeg1 != 0)) {
|
|
| 1131 |
if(hasContent($FORM::geogdesc) || ($FORM::latDeg1 != 0 && $FORM::longDeg1 != 0)) {
|
|
| 1096 | 1132 |
$cov .= "<geographicCoverage>\n"; |
| 1097 | 1133 |
|
| 1098 |
if(hasContent($FORM::geodesc)) {
|
|
| 1134 |
if(hasContent($FORM::geogdesc)) {
|
|
| 1099 | 1135 |
$cov .= "<geographicDescription>".normalize($FORM::geogdesc)."</geographicDescription>\n"; |
| 1100 | 1136 |
} |
| 1101 | 1137 |
|
| ... | ... | |
| 1181 | 1217 |
$cov .= "</taxonomicCoverage>\n"; |
| 1182 | 1218 |
} |
| 1183 | 1219 |
|
| 1184 |
$doc .= $cov; |
|
| 1220 |
if($cov ne "" ){
|
|
| 1221 |
$doc .= "<coverage>".$cov."</coverage>"; |
|
| 1222 |
} |
|
| 1185 | 1223 |
$doc .= $cont; |
| 1186 | 1224 |
$doc .= $publ; |
| 1187 | 1225 |
|
Also available in: Unified diff
Made changes to fix bug# 1303 and 1367.(Both are related)
Following variables can now be specifieD from the cfg file to control behaviour of the skin: hasKeyword, hasMethod, hasSpatial, hasTaxonomic and hasTemporal. Following two also can be used: spatialRequired and temporalRequired