annotate variant_effect_predictor/Bio/EnsEMBL/DBSQL/UnconventionalTranscriptAssociationAdaptor.pm @ 3:d30fa12e4cc5 default tip

Merge heads 2:a5976b2dce6f and 1:09613ce8151e which were created as a result of a recently fixed bug.
author devteam <devteam@galaxyproject.org>
date Mon, 13 Jan 2014 10:38:30 -0500
parents 1f6dce3d34e0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
1 =head1 LICENSE
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
2
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
3 Copyright (c) 1999-2012 The European Bioinformatics Institute and
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
4 Genome Research Limited. All rights reserved.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
5
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
6 This software is distributed under a modified Apache license.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
7 For license details, please see
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
8
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
9 http://www.ensembl.org/info/about/code_licence.html
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
10
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
11 =head1 CONTACT
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
12
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
13 Please email comments or questions to the public Ensembl
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
14 developers list at <dev@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
15
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
16 Questions may also be sent to the Ensembl help desk at
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
17 <helpdesk@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
18
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
19 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
20
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
21 =head1 NAME
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
22
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
23 Bio::EnsEMBL::DBSQL::UnconventionalTranscriptAssociationAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
24
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
25 =head1 SYNOPSIS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
26
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
27 $utaa = $registry->get_adaptor( 'Human', 'Core',
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
28 'UnconventionalTranscriptAssociation' );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
29
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
30 my $uta = $utaa->fetch_all_by_type('antisense');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
31
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
32 =head1 DESCRIPTION
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
33
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
34 This is an adaptor for the retrieval and storage of
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
35 UnconventionalTranscriptAssociation objects from the database. Most of
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
36 the implementation is in the superclass BaseFeatureAdaptor.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
37
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
38 =head1 METHODS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
39
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
40 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
41
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
42 package Bio::EnsEMBL::DBSQL::UnconventionalTranscriptAssociationAdaptor;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
43
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
44 use strict;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
45 use Bio::EnsEMBL::DBSQL::BaseAdaptor;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
46 use Bio::EnsEMBL::UnconventionalTranscriptAssociation;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
47
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
48 use vars qw(@ISA);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
49
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
50 @ISA = qw(Bio::EnsEMBL::DBSQL::BaseAdaptor);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
51
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
52
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
53
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
54
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
55 =head2 fetch_all_by_interaction_type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
56
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
57 Arg [1] : String type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
58 the type of associations to obtain
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
59 Example : $utas = $utaa->fetch_all_by_type('antisense');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
60 Description: Obtains all unconventional transcript associations that
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
61 have a particular interaction type.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
62 NOTE: In a multi-species database, this method will
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
63 return all the entries matching the search criteria, not
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
64 just the ones associated with the current species.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
65 Returntype : listREF of Bio::EnsEMBL::UnconventionalTranscriptAssociations
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
66 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
67 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
68 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
69 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
70
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
71 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
72
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
73 sub fetch_all_by_interaction_type {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
74
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
75 my( $self, $type) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
76
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
77 my $sth = $self->prepare("SELECT transcript_id, gene_id, interaction_type " .
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
78 "FROM unconventional_transcript_association " .
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
79 "WHERE interaction_type = ?");
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
80
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
81 $sth->bind_param(1, $type, SQL_VARCHAR);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
82 $sth->execute();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
83
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
84 my $results = $self->_objs_from_sth($sth);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
85
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
86 $sth->finish();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
87
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
88 return $results;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
89
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
90 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
91
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
92
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
93 =head2 fetch_all_by_gene
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
94
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
95 Arg [1] : String gene the gene of associations to obtain
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
96 Arg [2] : (optional) An interaction type; if set, only associations of this type will be returned.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
97 Example : $utas = $utaa->fetch_all_by_gene($gene, 'antisense');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
98 Description: Obtains all unconventional transcript associations that involve
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
99 a particular gene.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
100 Returntype : listREF of Bio::EnsEMBL::UnconventionalTranscriptAssociations
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
101 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
102 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
103 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
104 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
105
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
106 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
107
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
108 sub fetch_all_by_gene {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
109
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
110 my( $self, $gene, $type) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
111
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
112 if(!ref($gene) || !$gene->isa('Bio::EnsEMBL::Gene')) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
113 throw('$gene must be a Bio::EnsEMBL::Gene');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
114 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
115
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
116 my $sql = "SELECT transcript_id, gene_id, interaction_type FROM unconventional_transcript_association WHERE gene_id = ?";
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
117 $sql .= " AND interaction_type = ?" if ($type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
118
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
119 my $sth = $self->prepare($sql);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
120
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
121 $sth->bind_param(1, $gene->dbID(), SQL_INTEGER);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
122 $sth->bind_param(2, $type, SQL_VARCHAR) if ($type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
123
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
124 $sth->execute();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
125
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
126 my $results = $self->_objs_from_sth($sth);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
127
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
128 $sth->finish();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
129
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
130 return $results;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
131
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
132 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
133
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
134
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
135 =head2 fetch_all_by_transcript
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
136
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
137 Arg [1] : String transcript the transcript of associations to obtain
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
138 Arg [2] : (optional) An interaction type; if set, only associations of this type will be returned.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
139 Example : $utas = $utaa->fetch_all_by_transcript($transcript, 'antisense');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
140 Description: Obtains all unconventional transcript associations that involve
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
141 a particular transcript.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
142 Returntype : listREF of Bio::EnsEMBL::UnconventionalTranscriptAssociations
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
143 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
144 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
145 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
146 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
147
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
148 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
149
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
150 sub fetch_all_by_transcript {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
151
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
152 my( $self, $transcript, $type) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
153
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
154 if(!ref($transcript) || !$transcript->isa('Bio::EnsEMBL::Transcript')) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
155 throw('$transcript must be a Bio::EnsEMBL::Transcript');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
156 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
157
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
158 my $sql = "SELECT transcript_id, gene_id, interaction_type FROM unconventional_transcript_association WHERE transcript_id = ?";
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
159 $sql .= " AND interaction_type = ?" if ($type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
160
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
161 my $sth = $self->prepare($sql);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
162
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
163 $sth->bind_param(1, $transcript->dbID(), SQL_INTEGER);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
164 $sth->bind_param(2, $type, SQL_VARCHAR) if ($type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
165
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
166 $sth->execute();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
167
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
168 my $results = $self->_objs_from_sth($sth);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
169
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
170 $sth->finish();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
171
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
172 return $results;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
173
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
174 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
175
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
176
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
177 =head2 store
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
178
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
179 Arg [1] : Bio::EnsEMBL::UnconventionalTranscriptAssociation
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
180 the unconventional transcript association to store in the database
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
181 Example : $utaa_adaptor->store($uta);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
182 Description: stores unconventional transcript associations in the database
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
183 Returntype : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
184 Exceptions :
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
185 Caller : general
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
186 Status : At Risk
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
187 : under development
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
188
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
189 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
190
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
191 sub store {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
192
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
193 my( $self, $uta ) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
194
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
195 if(!ref($uta) || !$uta->isa('Bio::EnsEMBL::UnconventionalTranscriptAssociation')) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
196 throw('$uta must be a Bio::EnsEMBL::UnconventionalTranscriptAssociation');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
197 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
198
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
199 my $sth = $self->prepare(qq {INSERT into unconventional_transcript_association
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
200 (transcript_id, gene_id, interaction_type) VALUES (?,?,?)});
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
201
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
202 $sth->bind_param(1, $uta->transcript()->dbID(), SQL_INTEGER);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
203 $sth->bind_param(2, $uta->gene()->dbID, SQL_INTEGER);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
204 $sth->bind_param(3, $uta->interaction_type(), SQL_VARCHAR);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
205
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
206 $sth->execute();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
207
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
208 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
209
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
210
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
211
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
212 sub _objs_from_sth {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
213
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
214 my ($self, $sth) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
215
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
216 my $transcript_adaptor = $self->db()->get_TranscriptAdaptor();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
217 my $gene_adaptor = $self->db()->get_GeneAdaptor();
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
218
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
219 my ($gene_id, $transcript_id, $type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
220 $sth->bind_columns(\$transcript_id, \$gene_id, \$type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
221
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
222 my @results;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
223
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
224 while($sth->fetch()) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
225
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
226 my $gene = $gene_adaptor->fetch_by_dbID($gene_id);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
227 my $transcript = $transcript_adaptor->fetch_by_dbID($transcript_id);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
228
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
229 my $obj = Bio::EnsEMBL::UnconventionalTranscriptAssociation->new($transcript, $gene, $type);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
230 push @results, $obj;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
231
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
232 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
233
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
234 return \@results;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
235 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
236
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
237 1;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
238
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
239