pricecharts

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:
M
gen_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();