Metacat

    if ($results->size() > 1) {

        errMoreThanN("methods/methodStep/description/section");    

    } else {

        my @methodPara;

        foreach $node ($results->get_nodelist) {

            my @children = $node->childNodes;

                    $methodPara[scalar(@methodPara)] = $para;

                }

            }

        }

        if (scalar(@methodPara) > 0) {

            $$templateVars{'methodPara'} = \@methodPara;

        foreach $node ($results->get_nodelist) {

            my $studyExtentDescription = $node->textContent();

            $$templateVars{'studyExtentDescription'} = $studyExtentDescription;

        }

    }

        foreach $node ($results->get_nodelist) {

            my $samplingDescription = $node->textContent();

            $$templateVars{'samplingDescription'} = $samplingDescription;

        }

    }

        push(@errorMessages, $error."\n");

    }

    dontOccur($doc, "./dataTable", "dataTable");

    dontOccur($doc, "./spatialRaster", "spatialRaster");

    dontOccur($doc, "./spatialVector", "spatialVector");

    dontOccur($doc, "./storedProcedure", "storedProcedure");

    dontOccur($doc, "./view", "view");

    dontOccur($doc, "./references", "references");

    dontOccur($doc, "//citation", "citation");

    $results = $doc->findnodes(

            '//additionalMetadata/moderatorComment');

    if($results->size == 0){

    }

}