Fix species lookup

svn path=/; revision=670

diff --git a/interactome_scripts/association_file_from_orthologs_simple.pl b/interactome_scripts/association_file_from_orthologs_simple.pl
index 280cbbdfbbd00d7eddd58bad083c0ea0e6ac647a..8a3b3897d5a416c13bc40cef5ea80410afd8148e 100755 (executable)
--- a/interactome_scripts/association_file_from_orthologs_simple.pl
+++ b/interactome_scripts/association_file_from_orthologs_simple.pl
@@ -10,7 +10,6 @@ $year += 1900;
 $month = sprintf '%02d', $month+1;
 $day = sprintf '%02d', $day;
 my $curr_date = "$year$month$day";
-print "$curr_date\n";
 
 
 
@@ -33,7 +32,7 @@ my $inorthofile = $ARGV[1];
 my $outfile = $ARGV[2];
 
 # Get species and taxon
-my $species = find_species("$ingaffile");
+my $species = find_species("$inorthofile");
 my $new_taxon = find_taxon($species);