From c8ee8cd551087540b1284349786d3d328f2d6f3e Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Wed, 16 Jul 2003 12:35:03 +0000
Subject: [PATCH] Added list_dbIDs and list_stable_dbIDs
---
.../Bio/EnsEMBL/DBSQL/TranscriptAdaptor.pm | 33 +++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/modules/Bio/EnsEMBL/DBSQL/TranscriptAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/TranscriptAdaptor.pm
index 3c26a2aa28..cbdf8bce7c 100644
--- a/modules/Bio/EnsEMBL/DBSQL/TranscriptAdaptor.pm
+++ b/modules/Bio/EnsEMBL/DBSQL/TranscriptAdaptor.pm
@@ -549,6 +549,39 @@ sub update {
$sth->execute( $display_xref_id, $exon_count, $transcript->dbID() );
}
+=head2 list_dbIDs
+
+ Arg [1] : none
+ Example : @g_ids = $transcript_adaptor->list_dbIDs();
+ Description: Gets an array of internal ids for all transcripts in the current db
+ Returntype : list of ints
+ Exceptions : none
+ Caller : ?
+
+=cut
+
+sub list_dbIDs {
+ my ($self) = @_;
+
+ return $self->_list_dbIDs("transcript");
+}
+
+=head2 list_stable_dbIDs
+
+ Arg [1] : none
+ Example : @stable_transcript_ids = $transcript_adaptor->list_stable_dbIDs();
+ Description: Gets an array of stable ids for all transcripts in the current db
+ Returntype : list of ints
+ Exceptions : none
+ Caller : ?
+
+=cut
+
+sub list_stable_dbIDs {
+ my ($self) = @_;
+
+ return $self->_list_dbIDs("transcript_stable_id", "stable_id");
+}
--
GitLab