Skip to content
Snippets Groups Projects
Commit b7bb388d authored by Andy Yates's avatar Andy Yates
Browse files

Found more deprecated calls

parent 4d4bdfa5
No related branches found
No related tags found
No related merge requests found
...@@ -974,7 +974,7 @@ sub fetch_all_alt_alleles { ...@@ -974,7 +974,7 @@ sub fetch_all_alt_alleles {
} }
my $aaga = $self->db->get_adaptor('AltAlleleGroup'); my $aaga = $self->db->get_adaptor('AltAlleleGroup');
my $aag = $aaga->fetch_Group_by_Gene_dbID($gene->dbID); my $aag = $aaga->fetch_by_gene_id($gene->dbID);
unless ($aag) { unless ($aag) {
warning("Supplied gene has no alternative alleles"); warning("Supplied gene has no alternative alleles");
return []; return [];
...@@ -995,7 +995,7 @@ sub fetch_all_alt_alleles { ...@@ -995,7 +995,7 @@ sub fetch_all_alt_alleles {
sub is_ref { sub is_ref {
my ($self, $gene_id) = @_; my ($self, $gene_id) = @_;
my $aag = $self->db->get_adaptor('AltAlleleGroup')->fetch_Group_by_Gene_dbID($gene_id); my $aag = $self->db->get_adaptor('AltAlleleGroup')->fetch_by_gene_id($gene_id);
if (defined($aag)) { if (defined($aag)) {
if ($aag->rep_Gene_id == $gene_id) { if ($aag->rep_Gene_id == $gene_id) {
return 1; return 1;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment