Parent Directory
| 
Revision Log
| 
Patch
| revision 1.467, Fri May 5 16:43:09 2006 UTC | revision 1.468, Sat May 6 19:25:14 2006 UTC | |
|---|---|---|
| # | Line 3888 | Line 3888 |
| 3888 | $genus_species->{$pair->[0]} = $pair->[1]; | $genus_species->{$pair->[0]} = $pair->[1]; |
| 3889 | } | } |
| 3890 | $ans = $genus_species->{$genome}; | $ans = $genus_species->{$genome}; |
| 3891 | if ((! $ans) && open(GEN,"<$FIG_Config::organisms/$genome/GENOME")) | |
| 3892 | { | |
| 3893 | $ans = <GEN>; | |
| 3894 | close(GEN); | |
| 3895 | chomp $ans; | |
| 3896 | $genus_species->{$genome} = $ans; | |
| 3897 | } | |
| 3898 | } | } |
| 3899 | return $ans; | return $ans; |
| 3900 | } | } |
|
||||||||
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |