[Bio] / FigKernelPackages / FigFam.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FigFam.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55, Thu Jun 7 21:18:40 2007 UTC revision 1.56, Thu Jun 28 23:06:21 2007 UTC
# Line 706  Line 706 
706  sub list_members {  sub list_members {
707      my ($self)  = @_;      my ($self)  = @_;
708    
709        my $fig     = $self->{fig};
710      my $fam_dir = $self->{dir};      my $fam_dir = $self->{dir};
711      my @pegs    = map { chomp; $_ } `cut -f2 $fam_dir/PEGs`;      my @pegs    = map { chomp;
712                            (not $fig->is_deleted_fid($_)) ? ($_) : ()
713                            } `cut -f2 $fam_dir/PEGs`;
714    
715      return @pegs;      return @pegs;
716  }  }

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3