From 543a69afa8766dec2939ae59e2a0d929c7627e82 Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Fri, 23 Sep 2005 09:31:50 +0000
Subject: [PATCH] Added fetch_coded_for_regulatory_factors()
---
modules/Bio/EnsEMBL/Gene.pm | 22 ++++++++++++++++++++++
modules/Bio/EnsEMBL/Transcript.pm | 21 +++++++++++++++++++++
2 files changed, 43 insertions(+)
diff --git a/modules/Bio/EnsEMBL/Gene.pm b/modules/Bio/EnsEMBL/Gene.pm
index 460eabc11c..aca5f70af3 100755
--- a/modules/Bio/EnsEMBL/Gene.pm
+++ b/modules/Bio/EnsEMBL/Gene.pm
@@ -1142,5 +1142,27 @@ sub chr_name {
}
}
+=head2 fetch_coded_for_regulatory_factors
+
+ Arg [1] : none
+ Example : $gene->fetch_coded_for_regualtory_factors()
+ Description: Fetches any regulatory_factors that are coded for by this gene
+ Returntype : Listref of Bio::Ensembl::RegulatoryFactor
+ Exceptions :
+ Caller : ?
+ Status : At Risk
+ : under development
+
+=cut
+
+sub fetch_coded_for_regulatory_factors {
+
+ my ($self) = @_;
+
+ my $rfa = $self->adaptor->db->get_RegulatoryFactorAdaptor();
+
+ return $rfa->fetch_factors_coded_for_by_gene($self);
+
+}
1;
diff --git a/modules/Bio/EnsEMBL/Transcript.pm b/modules/Bio/EnsEMBL/Transcript.pm
index c28b718717..2e0bee8339 100755
--- a/modules/Bio/EnsEMBL/Transcript.pm
+++ b/modules/Bio/EnsEMBL/Transcript.pm
@@ -2099,7 +2099,28 @@ sub fetch_all_regulatory_features {
}
+=head2 fetch_coded_for_regulatory_factors
+ Arg [1] : none
+ Example : $transcript->fetch_coded_for_regualtory_factors()
+ Description: Fetches any regulatory_factors that are coded for by this transcript
+ Returntype : Listref of Bio::Ensembl::RegulatoryFactor
+ Exceptions :
+ Caller : ?
+ Status : At Risk
+ : under development
+
+=cut
+
+sub fetch_coded_for_regulatory_factors {
+
+ my ($self) = @_;
+
+ my $rfa = $self->adaptor->db->get_RegulatoryFactorAdaptor();
+
+ return $rfa->fetch_factors_coded_for_by_transcript($self);
+
+}
=head2 _compare_xrefs
--
GitLab