[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.29, Tue Dec 26 00:39:51 2006 UTC revision 1.30, Mon Jan 29 18:59:08 2007 UTC
# Line 345  Line 345 
345      return join("\n", @disp) . "\n";      return join("\n", @disp) . "\n";
346  }  }
347    
348    sub fasta_of {
349        my($self, $fh) = @_;
350    
351        my $fam_id   = $self->family_id;
352        my $fam_dir  = $self->{dir};
353    
354        if (-s "$fam_dir/PEGs.fasta") {
355            open(FASTA, "<$fam_dir/PEGs.fasta")
356                || die "Could not read-open $fam_dir/PEGs.fasta";
357    
358            my $seq_of = {};
359            my ($id, $seqP);
360            while (($id, $seqP) = &FIG::read_fasta_record(\*FASTA)) {
361                $seq_of->{$id} = $$seqP;
362                if (defined($fh)) {
363                    print $fh ">$id\n$$seqP\n";
364                }
365            }
366            close(FASTA) || die "Could not close $fam_dir/PEGs.fasta";
367            return $seq_of;
368        }
369        else {
370            return undef;
371        }
372    }
373    
374  sub ok_func {  sub ok_func {
375      my($fig,$func,$func2,$id2,$fam) = @_;      my($fig,$func,$func2,$id2,$fam) = @_;
376    

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3