Metacat

    function addTaxon() {

        var taxaCountField = document.getElementById("taxaCount");

        var taxaCount = taxaCountField.getAttribute("value");

        taxaCount++;

        taxaCountField.setAttribute("value", taxaCount);

        var taxonRow = createTaxonRow(taxaCount);

        var taxonRowMarker = document.getElementById("addtaxarow");

        var parent = taxonRowMarker.parentNode;

        parent.insertBefore(taxonRow, taxonRowMarker);

    }

    function createTaxonRow(taxaCount) {

        var rankField=createTextField("taxonRankName" + taxaCount, "25");

        var rankCell = document.createElement("td");

        rankCell.appendChild(rankField);

        var taxonField=createTextField("taxonRankValue" + taxaCount, "25");

        var taxonCell = document.createElement("td");

        taxonCell.appendChild(taxonField);

        var taxonRow = document.createElement("tr");

        taxonRow.appendChild(rankCell);

        taxonRow.appendChild(taxonCell);

        return taxonRow;

    }

    function createTextField(name, size) {

        var newField=document.createElement("input");

        newField.setAttribute("type", "text"); 

        newField.setAttribute("name", name); 

        newField.setAttribute("size", size); 

        return newField;

    }

  <p align="left">

  <a href="@cgi-prefix@/register-dataset.cgi?cfg=[%cfg%]&amp;stage=guide#SpatialCoverageOfData" target="guide">SPATIAL COVERAGE OF DATA</a>

  </p>

    <textarea rows="3" cols="80" name="geogdesc">[% geogdesc %]</textarea>

        <p class="label">Coordinates (in Degrees, Minutes and Seconds; at 

          least 1 lat./long. pair is required):</p>

        <p>Enter the first lat./long. pair only to indicate 

          a point location. Enter both coordinate pairs to indicate a bounding

          box. In case of a bounding box, the first coordinate pair is the

          northwest corner and the second coordinate pair is the southeast

          corner of the bounding box.</p>

    <tr>

      <td valign="TOP" colspan="4" class="tablepanel">

        <input class="required"

        type="CHECKBOX" name="useSiteCoord" [%useSiteCoord%]>

        Use [% lsite %] coordinates. (This indicates that the data were

        collected at the [% lsite %]. If you check this box, you don't need

        to fill in the lat./long. fields below).

        </td>

        <span class="required">*</span><span class="label">Latitude</span>

         North/South

        <span class="required">*</span><span class="label">Longitude</span>

         West/East

        The second lat./long. pair, if provided, indicates 

        the southeast corner of a bounding box.

        Latitude

         North/South

        Longitude

        West/East

  <p align="left">

  <a href="@cgi-prefix@/register-dataset.cgi?cfg=[%cfg%]&amp;stage=guide#TaxonomicCoverage" target="guide">TAXONOMIC COVERAGE OF DATA</a>

   </p>

  <table cellspacing="0" border="0" cellpadding="9" width="760" 

    bgcolor="#c6d6e7">

    <tbody>

    <tr> 

        <td colspan="2">

        <p class="label">List the taxa associated with this set of data.</p>

        <p>The Taxon Rank should indicate the level in the taxonomic

        hierarchy (e.g., Phylum or Species) and the Taxonomic Name should 

        be the scientific name for the organism at that level 

        (e.g., <i>Ursus arctos</i>).</p>

        [% numTaxa = 1 %]

        [% IF taxaCount > 0 %]

            [% numTaxa = taxaCount %]

        [% END %]

        <input type="hidden" name="taxaCount" value="[%numTaxa%]" 

            id="taxaCount">

        </td>

    </tr>

    <tr>

    <td>

        <table border="0">

        <tbody>

        <tr> 

            <td><span class="label">Taxon Rank</span></td>

            <td><span class="label">Taxon Name</span></td>

        </tr>

        [% cnt = 1 %]

        [% WHILE cnt <= numTaxa %]

            <tr> 

            <td>

            [% SET trn = "taxonRankName${cnt}" %]

            <input name="taxonRankName[%cnt%]" value="[% $trn %]" size="25">

            </td>

            <td>

            [% SET trv = "taxonRankValue${cnt}" %]

            <input name="taxonRankValue[%cnt%]" value="[% $trv %]" size="25">

            </td>

            </tr>

            [% cnt = cnt + 1 %]

         [% END %]

        <tr id="addtaxarow"> 

            <td>

                <input type="button" value="Add taxon" id="addtaxabutton1"

                    onClick="addTaxon()">

            </td>

        </tr>

        </tbody>

        </table>

     </td>

     </tr>

     </tbody>

   </table>

  [% END %]

  [% IF cfg == 'nceas' %]

  <p align="left">

   </p>

  <p align="left">

  <a href="@cgi-prefix@/register-dataset.cgi?cfg=[%cfg%]&amp;stage=guide#DataSetContactAddress" target="guide">DATA SET CONTACT ADDRESS</a>

  </p>

  <p align="left">

  <a href="@cgi-prefix@/register-dataset.cgi?cfg=[%cfg%]&amp;stage=guide#DistributionIinformation" target="guide">DISTRIBUTION INFORMATION</a>

  </p>

    [% numTaxa = 0 %]

    [% IF taxaCount > 0 %]

        [% numTaxa = taxaCount %]

    [% END %]

    <hr>

    <a name="Taxonomic Coverage"></a>

    [% cnt = 1 %]

    [% WHILE cnt <= numTaxa %]

        [% SET trn = "taxonRankName${cnt}" %]

        [% SET trv = "taxonRankValue${cnt}" %]

        <p><b><font size="-1">Taxon:</font></b>  [% $trn %]: [% $trv %]</p>

        [% cnt = cnt + 1 %]

     [% END %]

    <p><b><font size="-1">Method Title:</font></b>  [%methodTitle%]</p>

  <input type="hidden" name="taxaCount" value="[%taxaCount%]">

  [% cnt = 1 %]

  [% WHILE cnt <= numTaxa %]

      [% SET trn = "taxonRankName${cnt}" %]

      [% SET trv = "taxonRankValue${cnt}" %]

      <input type="hidden" name="[% trn %]" value="[% $trn %]">

      <input type="hidden" name="[% trv %]" value="[% $trv %]">

      [% cnt = cnt + 1 %]

  [% END %]

    # Write out the taxonomic coverage fields

    my $foundFirstTaxon = 0;

    foreach my $trn (param()) {

        if ($trn =~ /taxonRankName/) {

            my $taxIndex = $trn;

            $taxIndex =~ s/taxonRankName//; # get the index of the parameter 0, ..., 10

            my $trv = "taxonRankValue".$taxIndex;

            if ( $taxIndex =~ /[0-9]/ ){

                if (hasContent(param($trn)) && hasContent(param($trv))) {

                    if (! $foundFirstTaxon) {

                        $doc .= "<taxonomicCoverage>\n";

                        $foundFirstTaxon = 1;

                    }

                    $doc .= "<taxonomicClassification>\n";

                    $doc .= "  <taxonRankName>".param($trn)."</taxonRankName>\n";

                    $doc .= "  <taxonRankValue>".param($trv)."</taxonRankValue>\n";

                    $doc .= "</taxonomicClassification>\n";

                }

            }

        }

    }

    if ($foundFirstTaxon) {

        $doc .= "</taxonomicCoverage>\n";

    }

            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");

            $tempResult = $node->findnodes('./taxonomicCoverage/taxonomicClassification');

            my $taxonIndex = 0;

            foreach $tempNode ($tempResult->get_nodelist) {

                $taxonIndex++;

                my $taxonRankName = findValue($tempNode, "taxonRankName");

                my $taxonRankValue = findValue($tempNode, "taxonRankValue");

                $$templateVars{"taxonRankName".$taxonIndex} = $taxonRankName;

                $$templateVars{"taxonRankValue".$taxonIndex} = $taxonRankValue;

            }

            $$templateVars{'taxaCount'} = $taxonIndex;

    $$templateVars{'taxaCount'} = $FORM::taxaCount;

    foreach my $trn (param()) {

        if ($trn =~ /taxonRankName/) {

            my $taxIndex = $trn;

            $taxIndex =~ s/taxonRankName//; # get the index of the parameter 0, ..., 10

            my $trv = "taxonRankValue".$taxIndex;

            if ( $taxIndex =~ /[0-9]/ ){

                if (hasContent(param($trn)) && hasContent(param($trv))) {

                    debug("Registry processing taxon: $trn = ".param($trn)." $trv = ".param($trv));

                    $$templateVars{$trn} = param($trn);

                    $$templateVars{$trv} = param($trv);

                }

            }

        }

    }