From: elserj <elserj@localhost>
Date: Fri, 1 Mar 2019 20:57:30 +0000 (+0000)
Subject: New Zea mays genes have additional padding 0 in transcript id
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=9ec92b0d7158dfafd82c0cfab2619e7399324f5d;p=old-jaiswallab-svn%2F.git

New Zea mays genes have additional padding 0 in transcript id

svn path=/; revision=658
---

diff --git a/interactome_scripts/inparanoid_output_parse.pl b/interactome_scripts/inparanoid_output_parse.pl
index f481e05..be8ea8d 100755
--- a/interactome_scripts/inparanoid_output_parse.pl
+++ b/interactome_scripts/inparanoid_output_parse.pl
@@ -153,8 +153,7 @@ foreach my $input_file (@files) {
 				
 				# skip Maize genes that are not the first transcript
 				if($species eq "Zea_mays") {
-						next if ($gene =~ /\_T0[2-9]$/);
-						next if ($gene =~ /\_T1[0-9]$/);
+						next if ($gene !~ /\_T001$/);
 				}
 				
 				# skip Theobroma genes that are not the first transcript