Project

General

Profile

Revision 1985

Added by Matt Jones over 17 years ago

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.

View differences:

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