Parent Directory
| 
Revision Log
| 
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 | } | } |
|
||||||||
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |