Commit 27cdca2e authored by Ian Longden's avatar Ian Longden
Browse files

removed unused sub _add_new_track

parent 8d5a9b9a
......@@ -606,7 +606,7 @@ sub add_alias{
=cut
sub get_alias{
my ($class, $key, $no_throw) = @_;
my ($class, $key) = @_;
if(!defined($registry_register{'_ALIAS'}{$key})){
return $key;
......@@ -710,7 +710,6 @@ sub add_new_tracks{
$pars{'db_alias'} = $dba->group();
# print STDERR "Adding new track for ".$dba->species."\t".$dba->group."\n";
$conf->add_new_track_generictranscript('',$dba->group(), "black",$pos,%pars);
# my( $self, $code, $text_label, $colour, $pos, %pars ) = @_;
$pos++;
}
}
......@@ -720,42 +719,4 @@ sub add_new_tracks{
}
=head2 _add_new_track
Arg [1] : hash of the configuration
Arg [2] : dbadaptor to use to get track info from
Arg [3] : start index to place track in the right place
Returntype : none
Exceptions : none
Called by : add_new_tracks
=cut
sub _add_new_track{
my ($class, $conf, $config, $dba, $start ) = @_;
my $KEY = $dba->group();
$config->{$KEY} ={
'on' => "on",
'compact' => 'yes',
'pos' => $start,
'str' => 'b',
'src' => 'all', # 'ens' or 'all'
'available'=> 'species '.$dba->species(),
'dba' => $dba,
# 'colours' => {$config->{'_colourmap'}->colourSet( 'vega_gene' )},
'glyphset' => 'generic_transcript',
'dep' => 6,
};
push @{ $config->{'_artefacts'} }, $KEY;
push @{ $config->{'_settings'}->{'features'}}, [$KEY => $KEY] ;
# [ 'transcript_lite' => "Ensembl Trans." ],
return;
}
1;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment