pricecharts

commit eff312c3183e7f9e9a1f2b8be0b27f1633ae9112
parent 048f6a2bfff1765e4fc492ecdb6c737833f6f186
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Fri, 24 Apr 2015 00:32:35 -0600

pc_html: last minute fixups

- sort recently updated by last scraped descending
- spin in better places

Diffstat:
M
pc_html
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/pc_html b/pc_html
@@ -140,6 +140,7 @@ print "info: products:  " if ($args{v});
 while (my ($part_num, $row) = each %$products) {
 	my $part_num_lc = lc($part_num);
 	my $manufacturer_lc = lc($row->{manufacturer});
+	spin() if ($args{v});
 
 	$row->{description} =
 		get_description($row->{manufacturer}, $row->{part_num});
@@ -157,7 +158,7 @@ print "\b$n processed\n" if ($args{v});
 $sql = "select manufacturer, part_num from products where first_seen > ? limit 10";
 my $new = $dbh->selectall_arrayref($sql, undef, time - (7 * 24 * 60 * 60));
 
-$sql = "select manufacturer, part_num from products where last_seen > ? order by last_seen";
+$sql = "select manufacturer, part_num from products where last_scraped > ? order by last_scraped desc";
 my $upd = $dbh->selectall_arrayref($sql, undef, time - (0.5 * 60 * 60));
 
 my $cutoff = time - (30 * 24 * 60 * 60);
@@ -277,11 +278,11 @@ sub generate_folder
 	my $stale_list = $dbh->selectcol_arrayref($sql_stale_outer);
 	my $num = scalar @$stale_list;
 	for my $it (@$stale_list) {
-		spin() if ($args{v});
 
 		my $it_link = linkify($it);
 		my $types = $dbh->selectcol_arrayref($sql_types, undef, $it);
 		for my $type (sort @$types) {
+			spin() if ($args{v});
 
 			my $products = $dbh->selectall_arrayref($sql_products, undef, $type, $it);
 			$_->[2] = get_description($_->[0], $_->[1]) for (@$products);