From b48c591d7b8785d6789523f19aff073332f16477 Mon Sep 17 00:00:00 2001
From: Andrew Yates <ayates@ebi.ac.uk>
Date: Thu, 21 Jun 2012 13:25:51 +0000
Subject: [PATCH] Switch to using get_all_GeneMembers() which is the supported
 API in 68

---
 .../xref_projection/project_display_xrefs.pl  | 21 +++++++------------
 1 file changed, 8 insertions(+), 13 deletions(-)

diff --git a/misc-scripts/xref_projection/project_display_xrefs.pl b/misc-scripts/xref_projection/project_display_xrefs.pl
index d3afafa840..15ee4676ee 100644
--- a/misc-scripts/xref_projection/project_display_xrefs.pl
+++ b/misc-scripts/xref_projection/project_display_xrefs.pl
@@ -843,21 +843,16 @@ sub fetch_homologies {
   foreach my $homology (@{$homologies}) {
 
     next if (!homology_type_allowed($homology->description));
-
-    my @mas = @{$homology->get_all_Member_Attribute};
-
-    # order of member-attributes is arbitrary, so need to find which one corresponds to the "from" species
+    
+    my $members = $homology->get_all_GeneMembers();
     my @to_stable_ids;
     my $from_stable_id;
-
-    foreach my $ma (@mas) {
-
-      my ($member, $attribute) = @{$ma};
-
-      if (lc($member->genome_db()->name()) eq $from_species_alias) {
-          $from_stable_id = $member->stable_id();
-      } else {
-          push @to_stable_ids, $member->stable_id();
+    foreach my $member (@{$members}) {
+      if ($member->genome_db()->name() eq $from_species_alias) {
+        $from_stable_id = $member->stable_id();
+      }
+      else {
+        push(@to_stable_ids, $member->stable_id());
       }
     }
 
-- 
GitLab