From 26ef1f84bfa0a36f4a2bf5e1249901c45e3adce4 Mon Sep 17 00:00:00 2001
From: kiran <kiran@348d0f76-0448-11de-a6fe-93d51630548a>
Date: Mon, 28 Jun 2010 15:46:41 +0000
Subject: [PATCH] Updates to not depend on an environment variable to figure
 out where libraries are (helpful for installation at the Sanger).

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@3655 348d0f76-0448-11de-a6fe-93d51630548a
---
 perl/reports/1KG/AssembleSlides.pl                | 4 +++-
 perl/reports/1KG/GenerateDataProcessingReport.pl  | 4 +++-
 perl/reports/1KG/GenerateDataProcessingReport2.pl | 4 +++-
 perl/reports/1KG/GetSNPsPerSample.pl              | 4 +++-
 perl/reports/1KG/MakeDPRSlides.pl                 | 4 +++-
 perl/reports/1KG/MakeTopSheetSlide.pl             | 4 +++-
 perl/reports/1KG/MakeVennSlide.pl                 | 4 +++-
 perl/reports/1KG/RenderTemplate.pl                | 4 +++-
 8 files changed, 24 insertions(+), 8 deletions(-)

diff --git a/perl/reports/1KG/AssembleSlides.pl b/perl/reports/1KG/AssembleSlides.pl
index d33d7b4a6..a6ab31787 100755
--- a/perl/reports/1KG/AssembleSlides.pl
+++ b/perl/reports/1KG/AssembleSlides.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 
 my %args = &getCommandArguments("DIR" => undef, "OUT" => undef);
diff --git a/perl/reports/1KG/GenerateDataProcessingReport.pl b/perl/reports/1KG/GenerateDataProcessingReport.pl
index 4e837935a..172e020fb 100755
--- a/perl/reports/1KG/GenerateDataProcessingReport.pl
+++ b/perl/reports/1KG/GenerateDataProcessingReport.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 use DistributedMake;
 use DataTable;
diff --git a/perl/reports/1KG/GenerateDataProcessingReport2.pl b/perl/reports/1KG/GenerateDataProcessingReport2.pl
index 83943afe6..dd3ed7bc9 100755
--- a/perl/reports/1KG/GenerateDataProcessingReport2.pl
+++ b/perl/reports/1KG/GenerateDataProcessingReport2.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 use DistributedMake;
 use DataTable;
diff --git a/perl/reports/1KG/GetSNPsPerSample.pl b/perl/reports/1KG/GetSNPsPerSample.pl
index 8fa430649..191681ced 100755
--- a/perl/reports/1KG/GetSNPsPerSample.pl
+++ b/perl/reports/1KG/GetSNPsPerSample.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 
 my %args = &getCommandArguments("VCF" => undef, "OUT" => "/dev/stdout");
diff --git a/perl/reports/1KG/MakeDPRSlides.pl b/perl/reports/1KG/MakeDPRSlides.pl
index 71bb0c472..302056e12 100755
--- a/perl/reports/1KG/MakeDPRSlides.pl
+++ b/perl/reports/1KG/MakeDPRSlides.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 use File::Basename;
 use DistributedMake;
diff --git a/perl/reports/1KG/MakeTopSheetSlide.pl b/perl/reports/1KG/MakeTopSheetSlide.pl
index db46ed841..6fad34610 100755
--- a/perl/reports/1KG/MakeTopSheetSlide.pl
+++ b/perl/reports/1KG/MakeTopSheetSlide.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 use DistributedMake;
 use DataTable;
diff --git a/perl/reports/1KG/MakeVennSlide.pl b/perl/reports/1KG/MakeVennSlide.pl
index 216ebc357..4357f3991 100755
--- a/perl/reports/1KG/MakeVennSlide.pl
+++ b/perl/reports/1KG/MakeVennSlide.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 use DistributedMake;
 use Data::Dumper;
diff --git a/perl/reports/1KG/RenderTemplate.pl b/perl/reports/1KG/RenderTemplate.pl
index 19f9fb30d..8b980b247 100755
--- a/perl/reports/1KG/RenderTemplate.pl
+++ b/perl/reports/1KG/RenderTemplate.pl
@@ -1,7 +1,9 @@
 #!/usr/bin/perl -w
 
 use strict;
-use lib "$ENV{'STING_DIR'}/perl";
+use FindBin;
+use lib "$FindBin::Bin/../../";
+
 use StingArgs;
 use Data::Dumper;