-sub maf_track
-{
- # Martin A. Hansen, April 2008.
-
- # Given a genome returns the corresponding mafTrack database table name.
-
- my ( $genome, # genome to lookup.
- ) = @_;
-
- # Returns a string.
-
- my ( %hash );
-
- # The below has should be in a config file - fix later.
-
- %hash = (
- danRer4 => 'multiz7way',
- dm2 => 'multiz15way',
- dm3 => 'multiz15way',
- fr2 => 'multiz7way',
- galGal3 => 'multiz7way',
- gasAcu1 => 'multiz7way',
- hg18 => 'multiz17way',
- mm8 => 'multiz17way',
- mm9 => 'multiz17way',
- oryLat1 => 'multiz7way',
- panTro2 => 'multiz17way',
- tetNig1 => 'multiz7way',
- );
-
- &Maasha::Common::error( qw(multiz track not found) ) if not exists $hash{ $genome };
-
- return $hash{ $genome };
-}
-
-