Permalink
Browse files

fixed corba client (more)

svn path=/bioperl-corba-client/trunk/; revision=46
  • Loading branch information...
1 parent 4ef5f32 commit 9614f532c4a3adda8d14347921444cf1f32214c8 birney committed Feb 25, 2002
Showing with 7 additions and 5 deletions.
  1. +7 −5 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;
}

0 comments on commit 9614f53

Please sign in to comment.