fixes to run under the mason strictness
authorivan <ivan>
Tue, 9 Nov 2004 07:23:09 +0000 (07:23 +0000)
committerivan <ivan>
Tue, 9 Nov 2004 07:23:09 +0000 (07:23 +0000)
httemplate/search/report_tax.cgi

index aa9ed6f..e3d203e 100755 (executable)
@@ -42,7 +42,7 @@ my $gotcust = "
             )
 ";
 
-my($total, $exempt, $taxable, $tax) = ( 0, 0, 0, 0 );
+my($total, $exempt, $taxable, $owed, $tax) = ( 0, 0, 0, 0, 0 );
 my $out = 'Out of taxable region(s)';
 my %regions;
 foreach my $r (qsearch('cust_main_county', {}, '', $gotcust) ) {
@@ -153,7 +153,11 @@ push @regions, {
 
 sub getlabel {
   my $r = shift;
+
+  my $label;
   if ( $r->tax == 0 ) {
+    #kludge to avoid "will not stay shared" warning
+    my $out = 'Out of taxable region(s)';
     $label = $out;
   } elsif ( $r->taxname ) {
     $label = $r->taxname;