},
sub { my $row = shift; sprintf "%.2f", $row->residential },
;
-push @links, ( [ $link, $link_suffix ] x 8 );
my %search_hash = ();
my @sql_query = ();
@sql_query
). ') ) AS foo';
+
my $link = 'cust_pkg.cgi?'. join(';',
map { my $key = $_;
my @values = ref($search_hash{$_})
$result;
};
+for (1..8) { push @links, [ $link, $link_suffix ]; }
+
+
my $html_foot = sub {
if (scalar(keys %state_hash) > 1) {