[Bio] / FigKernelScripts / align_with_clustal.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/align_with_clustal.pl

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

revision 1.1, Mon Dec 1 20:46:40 2003 UTC revision 1.2, Wed May 19 21:34:22 2004 UTC
# Line 26  Line 26 
26  open(TMP,">$file.fasta") || die "could not open $file";  open(TMP,">$file.fasta") || die "could not open $file";
27  foreach $id (@ARGV)  foreach $id (@ARGV)
28  {  {
29        next if ($seen{$id});
30      if ($seq = $fig->get_translation($id))      if ($seq = $fig->get_translation($id))
31      {      {
32            $seen{$id} = 1;
33          print TMP ">$id\n$seq\n";          print TMP ">$id\n$seq\n";
34          $func = $fig->function_of($id);          $func = $fig->function_of($id);
35          $relabel->{$id} = "$id: $func";          $relabel->{$id} = "$id: $func";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3