From 1156a5b96e89c40fcf7a602a7e61b074f6236a0f Mon Sep 17 00:00:00 2001
From: Kieron Taylor <ktaylor@ebi.ac.uk>
Date: Tue, 14 Aug 2012 14:11:20 +0000
Subject: [PATCH] Added the missing help function trigger
---
.../canonical_transcripts/select_canonical_transcripts.pl | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl b/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
index dcbc1f24a3..8fa774a480 100644
--- a/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
+++ b/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
@@ -18,7 +18,7 @@ use Bio::EnsEMBL::DBSQL::DBAdaptor;
my ($host, $port, $dbname, $user,$pass);
my ($dnahost, $dnaport, $dnadbname, $dnauser, $dnapass);
my ($ccds_host, $ccds_dbname, $ccds_user, $ccds_port, $ccds_pass);
-my $log_path;
+my ($log_path,$help);
my $coord_system_name;
my $seq_region_name;
@@ -50,8 +50,11 @@ GetOptions( 'dbhost:s' => \$host,
'include_non_ref!' => \$include_non_ref,
'include_duplicates' => \$include_duplicates,
'verbose!' => \$verbose,
- 'log:s' => \$log_path,); # log file used for analysing choices in bulk
+ 'log:s' => \$log_path, # log file used for analysing choices in bulk
+ 'help!' => \$help,
+ 'h!' => \$help);
+if ($help) { &usage; exit;}
unless ($write) {
print "You have not used the -write option "
. "so results will not be written into the database\n";
--
GitLab