Commit 830757f3 authored by William McLaren's avatar William McLaren
Browse files

Changed StructuralVariationFeature to StructuralVariation

parent 69be0ab2
......@@ -1525,35 +1525,35 @@ sub get_all_VariationFeatures{
}
}
=head2 get_all_StructuralVariationFeatures
=head2 get_all_StructuralVariations
Args : $class [optional]
Description :returns all structural variation features on this slice. This function will only work
Description :returns all structural variations on this slice. This function will only work
correctly if the variation database has been attached to the core database.
If $class is set, only structural variations of that class will be returned.
ReturnType : listref of Bio::EnsEMBL::Variation::StructuralVariationFeature
ReturnType : listref of Bio::EnsEMBL::Variation::StructuralVariation
Exceptions : none
Caller : contigview, snpview
Status : At Risk
=cut
sub get_all_StructuralVariationFeatures{
sub get_all_StructuralVariations{
my $self = shift;
my $sv_class = shift;
if(!$self->adaptor()) {
warning('Cannot get structural variation features without attached adaptor');
warning('Cannot get structural variations without attached adaptor');
return [];
}
my $svf_adaptor = Bio::EnsEMBL::DBSQL::MergedAdaptor->new(-species => $self->adaptor()->db()->species, -type => "StructuralVariationFeature");
if( $svf_adaptor ) {
my $sv_adaptor = Bio::EnsEMBL::DBSQL::MergedAdaptor->new(-species => $self->adaptor()->db()->species, -type => "StructuralVariation");
if( $sv_adaptor ) {
if(defined $sv_class) {
return $svf_adaptor->fetch_all_by_Slice_constraint($self, qq{ svf.class = '$sv_class' });
return $sv_adaptor->fetch_all_by_Slice_constraint($self, qq{ sv.class = '$sv_class' });
}
else {
return $svf_adaptor->fetch_all_by_Slice($self);
return $sv_adaptor->fetch_all_by_Slice($self);
}
}
else {
......
Markdown is supported
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