pricecharts

track prices of consumer electronics
Log | Files | Refs | README

commit 79a118716613d24a656513e009bcb332f963e933
parent 3e0d1104b3c56c4c540a8dd470005099a06f0f3e
Author: kyle <kyle@getaddrinfo.net>
Date:   Sun,  8 Nov 2015 15:58:55 -0700

html: make all graphs half width

- clean up function interface too

Diffstat:
Mps_html | 24+++++++-----------------
1 file changed, 7 insertions(+), 17 deletions(-)

diff --git a/ps_html b/ps_html @@ -171,7 +171,7 @@ for my $i (0..$num_weeks) { my %series_metadata; $series_metadata{"Total"} = { url => "", color => "000" }; $series_metadata{"Out of date"} = { url => "", color => "F00" }; -my $svg = make_svg(\%totals_series, "no_part_num", \%series_metadata, 1, ""); +my $svg = make_svg(\%totals_series, "no_part_num", \%series_metadata, ""); make_path($svg_dir, { verbose => $args{v} }); my $svg_path = "$svg_dir/history_summary.svg"; @@ -235,7 +235,7 @@ while (my ($manufacturer, $part_num) = $parts_sth->fetchrow_array()) { my $series = $dbh->selectall_hashref($series_sth, \@series_keys, undef, $manufacturer, $part_num); - my $svg = make_svg($series, $part_num, $retailer_info); + my $svg = make_svg($series, $part_num, $retailer_info, "\$"); my $manufacturer_dir = linkify($manufacturer); my $part_link = linkify($part_num); @@ -329,17 +329,10 @@ sub get_description # sub make_svg { - my $series = shift; - my $part_num = shift; - my $metadata = shift; - my $short = shift || 0; - my $right_axis_prefix = "\$"; - - my ($left, $center, $right, $top, $middle, $bottom) = (20, 930, 50, 15, 150, 20); - if ($short) { - $center = 430; - $right_axis_prefix = ""; - } + my ($series, $part_num, $metadata, $right_axis_prefix) = @_; + + my ($left, $center, $right, $top, $middle, $bottom) = + (20, 430, 50, 15, 150, 20); my $width = $right + $center + $left; my $height = $top + $middle + $bottom; @@ -393,10 +386,7 @@ sub make_svg ); } - $num_labels = 6; - if ($short) { - $num_labels = 3; - } + $num_labels = 4; # x axis labels (dates) if ($domain == 24 * 60 * 60) {