Metacat

    if($FORM::submission eq 'true'){

    	$$templateVars{'message'} = 'You must login to view your submissions.';

    }	

	# no session found ... redirect to login page template

	# session found ... delete the session....

	$session->delete();

	$template->process( $loginFormTemplate, $templateVars);

    # check if the user is logged in...

    my $session = CGI::Session->load() or die CGI::Session->errstr();

    if ( $session->is_empty ) {

        # no session found ... redirect to login page template

    	$$templateVars{'message'} = 'You must login to modify your dataset.';

        $template->process( $loginFormTemplate, $templateVars);

    } else {

    	# Show the form will all the values filled in.

    	my @sortedSites;

    	foreach my $site (sort @sitelist) {

        	push(@sortedSites, $site);

    	}

    	$$templateVars{'siteList'} = \@sortedSites;

    	$$templateVars{'section'} = "Modification Form";

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

    	modifyData();

    # check if the user is logged in...

    my $session = CGI::Session->load() or die CGI::Session->errstr();

    if ( $session->is_empty ) {

        # no session found ... redirect to login page template

    	$$templateVars{'message'} = 'You must login to register your dataset.';

        $template->process( $loginFormTemplate, $templateVars);

    } else {

    	# Hence, send back entry form for entry of data.  

    	debug("Registry: Sending form");

    	my @sortedSites;

    	foreach my $site (sort @sitelist) {

        	push(@sortedSites, $site);

    	}

    	if ($FORM::cfg eq 'nceas') {

        	my $projects = getProjectList();

        	$$templateVars{'projects'} = $projects;

        	$$templateVars{'wg'} = \@FORM::wg;

    	}

    	$$templateVars{'showSiteList'} = $showSiteList;

    	$$templateVars{'lsite'} = $lsite;

    	$$templateVars{'usite'} = $usite;

    	$$templateVars{'showWgList'} = $showWgList;

    	$$templateVars{'showOrganization'} = $showOrganization;

    	$$templateVars{'hasKeyword'} = $hasKeyword;

    	$$templateVars{'hasTemporal'} = $hasTemporal;

    	$$templateVars{'hasSpatial'} = $hasSpatial;

    	$$templateVars{'hasTaxonomic'} = $hasTaxonomic;

    	$$templateVars{'hasMethod'} = $hasMethod;

    	$$templateVars{'temporalRequired'} = $temporalRequired;

    	$$templateVars{'spatialRequired'} = $spatialRequired;

    	$$templateVars{'contactEmailAddressRequired'} = $contactEmailAddressRequired;

    	$$templateVars{'siteList'} = \@sortedSites;

    	$$templateVars{'section'} = "Entry Form";

    	$$templateVars{'docid'} = "";

    	debug("Registry: Sending form: ready to process template");

    	$template->process( $entryFormTemplate, $templateVars);

    	debug("Registry: Sending form: template processed");

   }

   exit(0);