Metacat

        my ($foundScope, $id, $rev) = split(/\./, $FORM::docid);

        if (! $rev) {

        	my $metacat = Metacat->new($metacatUrl);

        	my $lastRev = $metacat->getLastRevision($FORM::docid);

        	$$templateVars{'docid'} = $FORM::docid . "." . $lastRev

        } else {

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

        }

  if (($response) && $response->content =~  /<docid>(.*)<\/docid>/s) {

# subroutine to get the maximimum id in a series

# If success, return max id, else return 0

#############################################################

sub getLastRevision {

  my $self = shift;

  my $docid = shift;

  my $returnval = 0;

  my %postData = ( action => 'getrevisionanddoctype',

                   docid => $docid

                 );

  my $response = $self->sendData(%postData);

  if (($response) && $response->content =~ /(.*);(.*)/s)  {

      $returnval = "$1";

  } elsif (($response)) {

    $returnval = 0;

    #print "Error response from sendData!\n";

    #print $response->content, "\n";

  } else {

    $returnval = 0;

    #print "Invalid response from sendData!\n";

  }

  return $returnval;

}

#############################################################

  /**

   * Method to return max rev number in xml_revision for given docid.

   * @param docId

   * @return integer that holds max revision number

   * @throws SQLException

   */

  public static int getMaxRevFromRevisionTable(String docIdWithoutRev) throws SQLException

  {

	  int rev = NONEEXIST;

	  Vector<Integer> revList = getRevListFromRevisionTable(docIdWithoutRev);

	  for (Integer currentRev : revList) {

		  if (currentRev > rev) {

			  rev = currentRev;

		  }

	  }

	  return rev;

  }