Metacat

    #my $projects = getTestProjectListFromTextFile();

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

# 

# get a list of projects from a text file where the NCEAS

# admin db is not available.

#

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

sub getTestProjectListFromTextFile {

    my @projects;

    my $listname = "projects.txt";

    my $count = 0;

    open(file,$listname) || die ("Couldn't open the file");

    while(<file>) {

        chomp();

        #print $_;

        my @row;

        my ($projectid, $pilast, $pifirst, $ptitle, $stitle) = split(':', $_);

        $pilast =~ s/ //g;

        $pifirst =~ s/ //g;

        $ptitle =~ s/((  )|(^ )|( $))//g;

        $stitle =~ s/((  )|(^ )|( $))//g;

        $row[0] = $projectid;

        $row[1] = $pilast;

        $row[2] = $pifirst;

        $row[3] = $ptitle;

        $row[4] = $stitle;

        $projects[$count++] = \@row;

    }

    return \@projects;

}