src/hg/utils/automation/Encode.pm 1.50
1.50 2009/11/06 05:35:11 kate
Fix key for 'pi' file -- should be 'lab'
Index: src/hg/utils/automation/Encode.pm
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/utils/automation/Encode.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -b -B -U 4 -r1.49 -r1.50
--- src/hg/utils/automation/Encode.pm 2 Nov 2009 17:51:22 -0000 1.49
+++ src/hg/utils/automation/Encode.pm 6 Nov 2009 05:35:11 -0000 1.50
@@ -29,10 +29,10 @@
#our $dafPrevVersion = "0.2.2";
our $fieldConfigFile = "fields.ra";
our $vocabConfigFile = "cv.ra";
-our $labsConfigFile = "labs.ra";
-our $piConfigFile = "pi.ra"; # for reporting purposes
+our $grantConfigFile = "labs.ra";
+our $labConfigFile = "pi.ra"; # for reporting purposes
our $autoCreatedPrefix = "auto";
our $restrictedMonths = 9;
@@ -174,25 +174,25 @@
{
# The grants are called "labs" in the labs.ra file (for historical reasons).
my ($configPath) = @_;
my %grants;
- if(-e "$configPath/$labsConfigFile") {
+ if(-e "$configPath/$grantConfigFile") {
# tolerate missing labs.ra in dev trees.
- %grants = RAFile::readRaFile("$configPath/$labsConfigFile", "lab");
+ %grants = RAFile::readRaFile("$configPath/$grantConfigFile", "lab");
}
return \%grants;
}
-sub getPIs
+sub getLabs
{
-# file with pi/project/lab/grant -- used for reporting purposes
+# file with lab/pi/project/grant -- used for reporting purposes
# Captures conventions in reporting spreadsheet and pipeline metadata
my ($configPath) = @_;
- my %piHash = ();
- if(-e "$configPath/$piConfigFile") {
- %piHash = RAFile::readRaFile("$configPath/$piConfigFile", "pi");
+ my %labs = ();
+ if(-e "$configPath/$labConfigFile") {
+ %labs = RAFile::readRaFile("$configPath/$labConfigFile", "lab");
}
- return \%piHash;
+ return \%labs;
}
sub getControlledVocab
{