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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.690, Sat May 24 23:09:40 2008 UTC revision 1.691, Wed May 28 17:46:03 2008 UTC
# Line 3681  Line 3681 
3681    
3682      FIG::display_id_and_seq($id_and_comment, $seqP, $fh);      FIG::display_id_and_seq($id_and_comment, $seqP, $fh);
3683    
 or  
3684    
     $fig->display_id_and_seq($id_and_comment, \$seqP, $fh);  
3685    
3686  Display a fasta ID and sequence to the specified open file. This method is designed  Display a fasta ID and sequence to the specified open file. This method is designed
3687  to work well with L</read_fasta_sequence> and L</rev_comp>, because it takes as  to work well with L</read_fasta_sequence> and L</rev_comp>, because it takes as
# Line 3718  Line 3716 
3716    
3717  sub display_id_and_seq {  sub display_id_and_seq {
3718    
3719      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      if (UNIVERSAL::isa($_[0],__PACKAGE__)) {
3720            shift @_;
3721            Trace("Invalid call to display_id_and_seq.");
3722        }
3723    
3724      my( $id, $seqP, $fh ) = @_;      my( $id, $seqP, $fh ) = @_;
3725    
# Line 7027  Line 7028 
7028    
7029      if (defined($location))      if (defined($location))
7030      {      {
7031          my @exons = split(/,/,$location);          my @exons = split(/\s*,\s*/,$location);
7032          my($contig, $beg, $end);          my($contig, $beg, $end);
7033    
7034          if (($exons[0] =~ /^(\S+)_(\d+)_\d+$/))          if (($exons[0] =~ /^(\S+)_(\d+)_\d+$/))

Legend:
Removed from v.1.690  
changed lines
  Added in v.1.691

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3