pricecharts

commit 13b0f591c47296f462ed80a47c0a557923733133
parent 5ebc4031f0ee09af347112f4c5be3817ac69b9f4
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sat,  4 Apr 2015 14:55:16 -0600

gen_html: only show products with at least one price

Diffstat:
M
gen_html
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gen_html b/gen_html
@@ -44,7 +44,8 @@ for my $manufacturer (@$manufacturers) {
 	$sql = "select manufacturer from products where lower(manufacturer) = ?";
 	my ($manufacturer_cased) = $dbh->selectrow_array($sql, undef, $manufacturer);
 
-	$sql = "select manufacturer, part_num from products where " .
+	# must have at least one price
+	$sql = "select distinct manufacturer, part_num from prices where " .
 		"lower(manufacturer) = ?";
 	my $products = $dbh->selectall_arrayref($sql, undef, $manufacturer);
 	$_->[2] = get_description($_->[0], $_->[1]) for (@$products);
@@ -81,6 +82,7 @@ print "info: gen retailers/ " if ($args{v});
 for my $retailer (@$retailers) {
 	my $retailer_lc = lc($retailer);
 
+	# must have at least one price
 	$sql = "select distinct manufacturer, part_num from prices where retailer = ?";
 	my $products = $dbh->selectall_arrayref($sql, undef, $retailer);
 	$_->[2] = get_description($_->[0], $_->[1]) for (@$products);