src/hg/encode/encodeLoad/doEncodeUnload.pl 1.6
1.6 2010/03/23 03:56:31 krish
fixed problem with reading config after chdir
Index: src/hg/encode/encodeLoad/doEncodeUnload.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeLoad/doEncodeUnload.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -b -B -U 4 -r1.5 -r1.6
--- src/hg/encode/encodeLoad/doEncodeUnload.pl 15 Mar 2010 22:21:53 -0000 1.5
+++ src/hg/encode/encodeLoad/doEncodeUnload.pl 23 Mar 2010 03:56:31 -0000 1.6
@@ -94,8 +94,13 @@
} else {
$tableSuffix = "_" . basename($submitDir);;
}
+my $grants = Encode::getGrants($configPath);
+my $fields = Encode::getFields($configPath);
+my $daf = Encode::getDaf($submitDir, $grants, $fields);
+my $downloadDir = Encode::downloadDir($daf);
+
chdir($submitDir) || die "Couldn't chdir to '$submitDir'";
my $unloadRa = 'out/unload.ra';
if(!(-e $unloadRa)) {
@@ -104,13 +109,8 @@
}
HgAutomate::verbose(2, "Unloading project in directory $submitDir\n");
-my $grants = Encode::getGrants($configPath);
-my $fields = Encode::getFields($configPath);
-my $daf = Encode::getDaf($submitDir, $grants, $fields);
-my $downloadDir = Encode::downloadDir($daf);
-
# Unload resources listed in unload.ra
my %ra = RAFile::readRaFile($unloadRa, 'tablename');
my $db;
for my $key (keys %ra) {