[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.256, Tue Mar 29 18:42:26 2005 UTC revision 1.257, Tue Mar 29 19:29:39 2005 UTC
# Line 2238  Line 2238 
2238    
2239      $genome_name =~ s/^(\S{3})\S+/$1./;      $genome_name =~ s/^(\S{3})\S+/$1./;
2240      $genome_name =~ s/^(\S+)\s+(\S{3})\S+/$1$2./;      $genome_name =~ s/^(\S+)\s+(\S{3})\S+/$1$2./;
2241      if (length($genome_name) > 13)      $genome_name =~ s/ //g;
2242        if (length($genome_name) > 10)
2243      {      {
2244          $genome_name = substr($genome_name,0,13);          $genome_name = substr($genome_name,0,10);
2245      }      }
2246      return $genome_name;      return $genome_name;
2247  }  }

Legend:
Removed from v.1.256  
changed lines
  Added in v.1.257

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3