pricecharts

commit 9cd97c701e5c857625a88900f20a6b177f32a1f3
parent 30faaba1f5d12f5d028e239536390dde68076cf4
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Thu,  6 Nov 2014 22:14:43 -0700

product_scraper: use selectrow_array for query

Diffstat:
M
product_scraper.pl
 | 
7
++-----

1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/product_scraper.pl b/product_scraper.pl
@@ -39,8 +39,6 @@ tee("$vendor\n");
 tee("=") for (1..length $vendor);
 tee("\n\n");
 
-my $exists_sth = $dbh->prepare("select * from products where part_num = ?");
-
 my $qry = "insert into products(part_num, manufacturer, description, type, " .
 	"first_seen, last_seen, last_scraped) values (?, ?, ?, ?, ?, ?, ?)";
 my $insert_sth = $dbh->prepare($qry);
@@ -110,8 +108,8 @@ for (keys %product_map) {
 			next;
 		}
 
-		$exists_sth->execute($part_num);
-		if ($exists_sth->fetchrow_arrayref()) {
+		my $sql = "select * from products where part_num = ?";
+		if ($dbh->selectrow_arrayref($sql, undef, $part_num)) {
 			$update_sth->execute(time, $part_num);
 			vprint("  ($part_num) $brand $description\n");
 			$old++;
@@ -131,7 +129,6 @@ for (keys %product_map) {
 		$new + $old, scalar @thumbnails, $new, time - $start));
 }
 
-$exists_sth->finish();
 $dbh->disconnect();
 
 my $e_mail = Email::Simple->create(