pricecharts

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

commit 0db3454a5efa45100efe44b373d8a5d3b428d1f1
parent f1c970edaf627abcb79144295271c8cbf526cd88
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sat,  1 Nov 2014 16:56:07 -0600

gen_svg: simplify looping over parts

Diffstat:
Mgen_svg.pl | 18+++++-------------
1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/gen_svg.pl b/gen_svg.pl @@ -12,18 +12,6 @@ use shared; my $log = get_log("pricechart_gen_svg"); -my $part_nums; -if ($args{p}) { - $part_nums->[0] = $args{p}; - print $log "$args{p} generated\n"; -} -else { - my $query = "select part_num from products"; - $part_nums = $dbh->selectcol_arrayref($query); - - print $log @$part_nums . " products generated\n"; -} - my $svg_dir = "$cfg->{general}{var}/www/htdocs/svg"; mkdir $svg_dir; @@ -40,7 +28,9 @@ my $point_sth = $dbh->prepare($query); $query = "select distinct vendor from prices where part_num = ?"; my $vendor_sth = $dbh->prepare($query); -for my $part_num (@$part_nums) { +my $parts_sth = $dbh->prepare("select part_num, title from products"); +$parts_sth->execute(); +while (my ($part_num, $title) = $parts_sth->fetchrow_array()) { $query = "select distinct date from prices where part_num = ?"; my $dates = $dbh->selectcol_arrayref($query, undef, $part_num); $query = "select distinct price from prices where part_num = ?"; @@ -150,5 +140,7 @@ for my $part_num (@$part_nums) { close $svg_fh; } +# print $log @$part_nums . " products generated\n"; + close $log; $dbh->disconnect();