Skip to content

Commit

Permalink
slider sub no longer needed
Browse files Browse the repository at this point in the history
  • Loading branch information
Allen Day committed Sep 5, 2004
1 parent 642b55b commit f422be4
Showing 1 changed file with 1 addition and 30 deletions.
31 changes: 1 addition & 30 deletions cgi-bin/gbrowse.PLS
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ print OUT "use lib '$OPTIONS{LIB}';\n" if defined $OPTIONS{LIB};
# In the following, perl variables are not expanded during extraction.

print OUT <<'!NO!SUBS!';
# $Id: gbrowse.PLS,v 1.106 2004-09-05 04:36:00 allenday Exp $
# $Id: gbrowse.PLS,v 1.107 2004-09-05 18:58:59 allenday Exp $
use strict;
use Bio::Graphics;
Expand Down Expand Up @@ -901,35 +901,6 @@ sub make_hilite_callback {
}
}
# This generates the navigation bar with the arrows
sub slider {
my ($segment,$buttonsDir) = @_;
my %seen; #used to keep track of available ranges for display
my $param =
{
segment => $segment,
prevname => scalar(param('name')),
halftitle => unit_label(int($segment->length/2)),
fulltitle => unit_label($segment->length),
half => int($segment->length/2),
full => $segment->length,
finezoom => get_zoomincrement(),
ranges => [ grep {!$seen{$_}++} sort {$b<=>$a} $segment->length,get_ranges() ],
buttonsdir => $buttonsDir,
};
my $show = $CONFIG->tr('Show');
my %range_labels = map {$_=>$show.' '.unit_label($_)} @{ $param->{ranges} };
$param->{range_labels} = \%range_labels;
my $output = undef;
$template->process('slider.tt2',$param,\$output);
return $output;
}
# convert bp into nice Mb/Kb units
sub unit_label {
my $value = shift;
Expand Down

0 comments on commit f422be4

Please sign in to comment.