pricecharts

track prices of consumer electronics
Log | Files | Refs | README

commit 99d0490dd8667bece955574785cd616099a47ed2
parent d107cd1ac10deae87b337fde727283ffd3facb23
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sat, 25 Apr 2015 22:31:27 -0600

pc_html: spin less times

Diffstat:
Mpc_html | 7+++----
1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/pc_html b/pc_html @@ -123,7 +123,7 @@ generate_folder($stale_list, $types, $products_fine, "Types", $coarse, $summary) # # products # -print "info: products: " if ($args{v}); +print "info: products: " if ($args{v}); $stale_clause = $args{a} ? "" : "where svg_stale = 1"; my $sql = "select * from products $stale_clause"; @@ -133,7 +133,6 @@ my $n = scalar keys %$products; while (my ($part_num, $row) = each %$products) { my $part_link = linkify($part_num); my $manuf_link = linkify($row->{manufacturer}); - spin() if ($args{v}); $row->{description} = get_description($row->{manufacturer}, $row->{part_num}); @@ -142,7 +141,7 @@ while (my ($part_num, $row) = each %$products) { "products/$manuf_link/$part_link.html") || die "template: " . $template->error() . "\n"; } -print "\b$n processed\n" if ($args{v}); +print "$n processed\n" if ($args{v}); # # index @@ -241,11 +240,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);