Revision 1985
Added by Matt Jones about 21 years ago
| register-dataset.cgi | ||
|---|---|---|
| 1139 | 1139 |
if (! $foundFirstTaxon) {
|
| 1140 | 1140 |
$doc .= "<taxonomicCoverage>\n"; |
| 1141 | 1141 |
$foundFirstTaxon = 1; |
| 1142 |
if (hasContent($FORM::taxaAuth)) {
|
|
| 1143 |
$doc .= "<generalTaxonomicCoverage>".$FORM::taxaAuth."</generalTaxonomicCoverage>\n"; |
|
| 1144 |
} |
|
| 1142 | 1145 |
} |
| 1143 | 1146 |
$doc .= "<taxonomicClassification>\n"; |
| 1144 | 1147 |
$doc .= " <taxonRankName>".param($trn)."</taxonRankName>\n"; |
| ... | ... | |
| 1707 | 1710 |
errMoreThanOne("coverage");
|
| 1708 | 1711 |
} else {
|
| 1709 | 1712 |
foreach $node ($results->get_nodelist) {
|
| 1710 |
dontOccur($node, "./temporalCoverage/rangeOfDates/beginDate/time|./temporalCoverage/rangeOfDates/beginDate/alternativeTimeScale|./temporalCoverage/rangeOfDates/endDate/time|./temporalCoverage/rangeOfDates/endDate/alternativeTimeScale|./taxonomicCoverage/taxonomicSystem|./taxonomicCoverage/generalTaxonomicCoverage|./taxonomicCoverage/taxonomicClassification/commonName|./taxonomicCoverage/taxonomicClassification/taxonomicClassification|./geographicCoverage/datasetGPolygon|./geographicCoverage/boundingCoordinates/boundingAltitudes", "temporalCoverage/rangeOfDates/beginDate/time, /temporalCoverage/rangeOfDates/beginDate/alternativeTimeScale, /temporalCoverage/rangeOfDates/endDate/time, /temporalCoverage/rangeOfDates/endDate/alternativeTimeScale, /taxonomicCoverage/taxonomicSystem, /taxonomicCoverage/generalTaxonomicCoverage, /taxonomicCoverage/taxonomicClassification/commonName, /taxonomicCoverage/taxonomicClassification/taxonomicClassification, /geographicCoverage/datasetGPolygon, /geographicCoverage/boundingCoordinates/boundingAltitudes");
|
|
| 1713 |
dontOccur($node, "./temporalCoverage/rangeOfDates/beginDate/time|./temporalCoverage/rangeOfDates/beginDate/alternativeTimeScale|./temporalCoverage/rangeOfDates/endDate/time|./temporalCoverage/rangeOfDates/endDate/alternativeTimeScale|./taxonomicCoverage/taxonomicSystem|./taxonomicCoverage/taxonomicClassification/commonName|./taxonomicCoverage/taxonomicClassification/taxonomicClassification|./geographicCoverage/datasetGPolygon|./geographicCoverage/boundingCoordinates/boundingAltitudes", "temporalCoverage/rangeOfDates/beginDate/time, /temporalCoverage/rangeOfDates/beginDate/alternativeTimeScale, /temporalCoverage/rangeOfDates/endDate/time, /temporalCoverage/rangeOfDates/endDate/alternativeTimeScale, /taxonomicCoverage/taxonomicSystem, /taxonomicCoverage/taxonomicClassification/commonName, /taxonomicCoverage/taxonomicClassification/taxonomicClassification, /geographicCoverage/datasetGPolygon, /geographicCoverage/boundingCoordinates/boundingAltitudes");
|
|
| 1711 | 1714 |
|
| 1712 | 1715 |
$tempResult = $node->findnodes('./temporalCoverage');
|
| 1713 | 1716 |
if ($tempResult->size > 1) {
|
| ... | ... | |
| 1820 | 1823 |
$$templateVars{"taxonRankValue".$taxonIndex} = $taxonRankValue;
|
| 1821 | 1824 |
} |
| 1822 | 1825 |
$$templateVars{'taxaCount'} = $taxonIndex;
|
| 1826 |
my $taxaAuth = findValue($node, "./taxonomicCoverage/generalTaxonomicCoverage"); |
|
| 1827 |
$$templateVars{'taxaAuth'} = $taxaAuth;
|
|
| 1823 | 1828 |
} |
| 1824 | 1829 |
} |
| 1825 | 1830 |
dontOccur($doc, "./purpose", "purpose"); |
| ... | ... | |
| 2294 | 2299 |
} |
| 2295 | 2300 |
} |
| 2296 | 2301 |
} |
| 2302 |
$$templateVars{'taxaAuth'} = $FORM::taxaAuth;
|
|
| 2297 | 2303 |
|
| 2298 | 2304 |
$$templateVars{'methodTitle'} = $FORM::methodTitle;
|
| 2299 | 2305 |
$$templateVars{'methodPara'} = \@FORM::methodPara;
|
| ... | ... | |
| 2466 | 2472 |
$$templateVars{'longMin2'} = $FORM::longMin2;
|
| 2467 | 2473 |
$$templateVars{'longSec2'} = $FORM::longSec2;
|
| 2468 | 2474 |
$$templateVars{'hemisphLong2'} = $FORM::hemisphLong2;
|
| 2469 |
if ($FORM::cfg eq "nceas") {
|
|
| 2470 |
$$templateVars{'methodsTitle'} = $FORM::methodsTitle;
|
|
| 2471 |
$$templateVars{'methodsPara'} = \@FORM::methodsPara;
|
|
| 2475 |
$$templateVars{'taxaCount'} = $FORM::taxaCount;
|
|
| 2476 |
foreach my $trn (param()) {
|
|
| 2477 |
if ($trn =~ /taxonRankName/) {
|
|
| 2478 |
my $taxIndex = $trn; |
|
| 2479 |
$taxIndex =~ s/taxonRankName//; # get the index of the parameter 0, ..., 10 |
|
| 2480 |
my $trv = "taxonRankValue".$taxIndex; |
|
| 2481 |
if ( $taxIndex =~ /[0-9]/ ){
|
|
| 2482 |
if (hasContent(param($trn)) && hasContent(param($trv))) {
|
|
| 2483 |
debug("Registry processing taxon: $trn = ".param($trn)." $trv = ".param($trv));
|
|
| 2484 |
$$templateVars{$trn} = param($trn);
|
|
| 2485 |
$$templateVars{$trv} = param($trv);
|
|
| 2486 |
} |
|
| 2487 |
} |
|
| 2488 |
} |
|
| 2472 | 2489 |
} |
| 2490 |
$$templateVars{'taxaAuth'} = $FORM::taxaAuth;
|
|
| 2491 |
$$templateVars{'methodTitle'} = $FORM::methodTitle;
|
|
| 2492 |
$$templateVars{'methodPara'} = \@FORM::methodPara;
|
|
| 2473 | 2493 |
$$templateVars{'docid'} = $FORM::docid;
|
| 2474 | 2494 |
|
| 2475 | 2495 |
$$templateVars{'form'} = 're_entry';
|
Also available in: Unified diff
Added taxonomic coverage and authority fields, and fixed a bug in reentry
with the methods fields. Now we are collecting information on all of the
additional fields Sandy requested except for a general temporal description,
which doesn't fit neatly in EML. Will need to consider how to accomodate
this need.