commit a98d590a4dbe7f816e3313d36ef1df6b6305b763
parent 83c9f6af6ef4394d9240a9bc0472870bd6dee376
Author: Kyle Milz <kyle@getaddrinfo.net>
Date: Sat, 1 Nov 2014 16:19:46 -0600
gen_svg: don't print invalid products
Diffstat:
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/gen_svg.pl b/gen_svg.pl
@@ -41,22 +41,17 @@ $query = "select distinct vendor from prices where part_num = ?";
my $vendor_sth = $dbh->prepare($query);
for my $part_num (@$part_nums) {
- vprint("$part_num:\n");
-
$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 = ?";
my $prices = $dbh->selectcol_arrayref($query, undef, $part_num);
- if (@$dates == 0) {
- vprintf("\tno price information, skipping\n");
- next;
- }
- elsif (@$dates == 1) {
- vprintf("\tsingle price point, graphing will explode, skipping\n");
+ if (@$dates == 0 || @$dates == 1) {
next;
}
+ vprint("$part_num:\n");
+
my ($x_min, $x_max) = (min(@$dates), max(@$dates));
my ($y_min, $y_max) = (min(@$prices), max(@$prices));