pricecharts

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

commit 7911b7fcdda5519e18075d6c67c58a16ccb518ea
parent 08de252a27b3db7d6d93c6eabeae916d74dee223
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Mon, 27 Oct 2014 21:43:31 -0600

gen_svg: use an array reference for products

Diffstat:
Mgen_svg.pl | 10+++++-----
1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gen_svg.pl b/gen_svg.pl @@ -11,22 +11,22 @@ use shared; my $log = get_log("pricechart_gen_svg"); -my @part_nums; +my $part_nums; if ($args{p}) { - $part_nums[0] = $args{p}; + $part_nums->[0] = $args{p}; print $log "$args{p} generated\n"; } else { my $query = "select part_num from products"; - @part_nums = $dbh->selectcol_array($query); + $part_nums = $dbh->selectcol_arrayref($query); - print $log @part_nums . " products generated\n"; + print $log @$part_nums . " products generated\n"; } my $svg_dir = "$cfg->{general}{var}/www/htdocs/svg"; mkdir $svg_dir; -for my $part_num (@part_nums) { +for my $part_num (@$part_nums) { vprint("$part_num:\n"); my $query = "select min(date) from prices where part_num = ?";