[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

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

revision 1.77, Thu Jun 9 16:33:41 2005 UTC revision 1.78, Thu Jun 9 16:58:01 2005 UTC
# Line 2985  Line 2985 
2985              my $seq;              my $seq;
2986              if ($seq = $fig->get_translation($peg))              if ($seq = $fig->get_translation($peg))
2987              {              {
2988                  push(@$html,  ">$peg\n$seq\n");                  push(@$html,  ">$peg\n",&formatted_seq($seq));
2989              }              }
2990              else              else
2991              {              {
# Line 3000  Line 3000 
3000      }      }
3001  }  }
3002    
3003    sub formatted_seq {
3004        my($seq) = @_;
3005        my($i,$ln);
3006    
3007        my @seqs = ();
3008        my $n = length($seq);
3009        for ($i=0; ($i < $n); $i += 60) {
3010            if (($i + 60) <= $n) {
3011                $ln = substr($seq,$i,60);
3012            } else {
3013                $ln = substr($seq,$i,($n-$i));
3014            }
3015            push(@seqs,"$ln\n");
3016        }
3017        return @seqs;
3018    }

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3