From: ivan Date: Fri, 11 Jun 2004 14:57:31 +0000 (+0000) Subject: fix to find all customer scorrectly X-Git-Tag: BEFORE_FINAL_MASONIZE~1037 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=7b973e57e167efdce2218209e9198ae34f2483b2 fix to find all customer scorrectly --- diff --git a/httemplate/search/report_tax.cgi b/httemplate/search/report_tax.cgi index ed7f9ffb8..0a368d33c 100755 --- a/httemplate/search/report_tax.cgi +++ b/httemplate/search/report_tax.cgi @@ -33,7 +33,9 @@ foreach my $r ( qsearch('cust_main_county', {}) ) { JOIN cust_bill USING ( invnum ) JOIN cust_main USING ( custnum ) WHERE _date >= $beginning AND _date <= $ending - AND county = ? AND state = ? AND country = ? + AND ( county = ? OR ( ? = '' AND county IS NULL ) ) + AND ( state = ? OR ( ? = '' AND state IS NULL ) ) + AND ( country = ? OR ( ? = '' AND country IS NULL ) ) "; my $nottax = 'pkgnum != 0'; @@ -80,7 +82,7 @@ foreach my $r ( qsearch('cust_main_county', {}) ) { #ordering my @regions = map $regions{$_}, - sort { ( ($b eq $out) cmp ($a eq $out) ) || ($a cmp $b) } + sort { ( ($a eq $out) cmp ($b eq $out) ) || ($b cmp $a) } keys %regions; push @regions, { @@ -99,7 +101,7 @@ push @regions, { sub scalar_sql { my( $r, $sql ) = @_; my $sth = dbh->prepare($sql) or die dbh->errstr; - $sth->execute( map $r->$_(), qw( county state country ) ) + $sth->execute( map $r->$_(), map { $_, $_ } qw( county state country ) ) or die "Unexpected error executing statement $sql: ". $sth->errstr; $sth->fetchrow_arrayref->[0] || 0; } @@ -123,11 +125,11 @@ sub scalar_sql { <% foreach my $region ( @regions ) { %> <%= $region->{'label'} %> - $<%= $region->{'total'} %> - $<%= $region->{'exempt'} %> - $<%= $region->{'taxable'} %> + $<%= sprintf('%.2f', $region->{'total'} ) %> + $<%= sprintf('%.2f', $region->{'exempt'} ) %> + $<%= sprintf('%.2f', $region->{'taxable'} ) %> <%= $region->{'rate'} %> - $<%= $region->{'tax'} %> + $<%= sprintf('%.2f', $region->{'tax'} ) %> <% } %>