/ - Diff - Metacat - Ecoinformatics Redmine

« Previous | Next »

Revision 3387

Getting project list from nceas admin db.

     ################################################################################
     sub getProjectList {
         #use NCEAS::AdminDB;
         #my $admindb = NCEAS::AdminDB->new();
         #$admindb->connect($nceas_db, $nceas_db_user, $nceas_db_password);
         #my $projects = $admindb->getProjects();
         my $projects = getTestProjectListFromTextFile();
         use NCEAS::AdminDB;
         my $admindb = NCEAS::AdminDB->new();
         $admindb->connect($nceas_db, $nceas_db_user, $nceas_db_password);
         my $projects = $admindb->getProjects();
         #my $projects = getTestProjectListFromTextFile();
         #my $projects = getTestProjectList();
         return $projects;
+    }

Also available in: Unified diff