Changed to use gene tree homologies, and to only use homologies of type...

Changed to use gene tree homologies, and to only use homologies of type "ortholog_one2one" and "apparent_ortholog_one2one". Should avoid many-many etc.

misc-scripts/xref_projection/project_display_xrefs.pl

@@ -9,7 +9,7 @@ use Bio::EnsEMBL::Registry;
 use Bio::EnsEMBL::DBSQL::DBAdaptor;
 use Bio::EnsEMBL::DBSQL::GeneAdaptor;
 
-my $method_link_type = "ENSEMBL_ORTHOLOGUES";
+my $method_link_type = "TREE_HOMOLOGIES";
 
 my ($conf, $compara, $from_species, @to_multi, $print, $names, $go_terms, $delete_names, $delete_go_terms);
 
@@ -107,6 +107,8 @@ sub project_homologies() {
 
   foreach my $homology (@{$homologies}) {
 
+    next if ($homology->description ne "ortholog_one2one" && $homology->description ne "apparent_ortholog_one2one");
+
     my @mas = @{$homology->get_all_Member_Attribute};
     my ($from_member, $from_attribute) = @{$mas[0]};
     my ($to_member, $to_attribute) = @{$mas[1]};