Metacat

    # check if the user is logged in...

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

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

    	$$templateVars{'showInstructions'} = 'true';

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

    #my $admindb = NCEAS::AdminDB->new();

    #$admindb->connect($nceas_db, $nceas_db_user, $nceas_db_password);

    #my $projects = $admindb->getProjects();

    return $projects;

}