Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed corba client (more)

svn path=/bioperl-corba-client/trunk/; revision=46
  • Loading branch information...
commit 9614f532c4a3adda8d14347921444cf1f32214c8 1 parent 4ef5f32
birney authored
Showing with 7 additions and 5 deletions.
  1. +7 −5 Bio/CorbaClient/SeqFeature.pm
View
12 Bio/CorbaClient/SeqFeature.pm
@@ -159,12 +159,14 @@ sub has_tag{
sub all_tags{
my $self = shift;
- my $quals = $self->corbaref->qualifiers();
- return () unless defined $quals;
- my @tags;
- foreach my $qual ( @$quals ) {
- push @tags, $qual->{name};
+ my ($annlist,$iter) = $self->corbaref->get_annotations->get_annotations();
+
+ my @tags;
+ foreach my $ann ( @{$annlist} ) {
+ push(@tags,$ann->get_name());
}
+
+
return @tags;
}
Please sign in to comment.
Something went wrong with that request. Please try again.