htdocs/browse/cust_main_county.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # cust_main_county.cgi: browse cust_main_county
   4 #
   5 # ivan@sisd.com 97-dec-13
   6 #
   7 # Changes to allow page to work at a relative position in server
   8 #       bmccane@maxbaud.net     98-apr-3
   9 #
  10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
  11
  12 use strict;
  13 use CGI::Base;
  14 use FS::UID qw(cgisuidsetup swapuid);
  15 use FS::Record qw(qsearch qsearchs);
  16 use FS::CGI qw(header menubar);
  17
  18 my($cgi) = new CGI::Base;
  19 $cgi->get;
  20
  21 &cgisuidsetup($cgi);
  22
  23 SendHeaders(); # one guess.
  24 print header("Tax Rate Listing", menubar(
  25   'Main Menu' => '../',
  26   'Edit tax rates' => "../edit/cust_main_county.cgi",
  27 )),<<END;
  28     <BR>Click on <u>expand</u> to specify tax rates by county.
  29     <P><TABLE BORDER>
  30       <TR>
  31         <TH><FONT SIZE=-1>State</FONT></TH>
  32         <TH>County</TH>
  33         <TH><FONT SIZE=-1>Tax</FONT></TH>
  34       </TR>
  35 END
  36
  37 my($cust_main_county);
  38 foreach $cust_main_county ( qsearch('cust_main_county',{}) ) {
  39   my($hashref)=$cust_main_county->hashref;
  40   print <<END;
  41       <TR>
  42         <TD>$hashref->{state}</TD>
  43 END
  44
  45   print "<TD>", $hashref->{county}
  46       ? $hashref->{county}
  47       : qq!(ALL) <FONT SIZE=-1>!.
  48         qq!<A HREF="../edit/cust_main_county-expand.cgi?!. $hashref->{taxnum}.
  49         qq!">expand</A></FONT>!
  50     , "</TD>";
  51
  52   print <<END;
  53         <TD>$hashref->{tax}%</TD>
  54       </TR>
  55 END
  56
  57 }
  58
  59 print <<END;
  60     </TABLE>
  61     </CENTER>
  62   </BODY>
  63 </HTML>
  64 END
  65