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:
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);