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 f481e05e08517742274c9886835bd3ae1714c000..be8ea8d22329346297bacef3952b8b5c2b3b5488 100755 (executable)
--- 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