[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.197, Sat Jan 8 18:22:00 2005 UTC revision 1.198, Sun Jan 9 17:15:12 2005 UTC
# Line 2052  Line 2052 
2052      my($genome_name) = @_;      my($genome_name) = @_;
2053    
2054      $genome_name =~ s/^(\S{3})\S+/$1./;      $genome_name =~ s/^(\S{3})\S+/$1./;
2055      $genome_name =~ s/^(\S+\s+\S{4})\S+/$1./;      $genome_name =~ s/^(\S+)\s+(\S{3})\S+/$1$2./;
2056      if (length($genome_name) > 13)      if (length($genome_name) > 13)
2057      {      {
2058          $genome_name = substr($genome_name,0,13);          $genome_name = substr($genome_name,0,13);

Legend:
Removed from v.1.197  
changed lines
  Added in v.1.198

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3