httemplate/browse/cust_main_county.cgi

   1 <%
   2 #
   3 # $Id: cust_main_county.cgi,v 1.1 2001-07-30 07:36:03 ivan Exp $
   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 # $Log: cust_main_county.cgi,v $
  13 # Revision 1.1  2001-07-30 07:36:03  ivan
  14 # templates!!!
  15 #
  16 # Revision 1.7  1999/04/09 04:22:34  ivan
  17 # also table()
  18 #
  19 # Revision 1.6  1999/04/09 03:52:55  ivan
  20 # explicit & for table/itable/ntable
  21 #
  22 # Revision 1.5  1999/01/19 05:13:26  ivan
  23 # for mod_perl: no more top-level my() variables; use vars instead
  24 # also the last s/create/new/;
  25 #
  26 # Revision 1.4  1999/01/18 09:41:16  ivan
  27 # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
  28 # (good idea anyway)
  29 #
  30 # Revision 1.3  1998/12/17 05:25:18  ivan
  31 # fix visual and other bugs
  32 #
  33 # Revision 1.2  1998/11/18 09:01:34  ivan
  34 # i18n! i18n!
  35 #
  36
  37 use strict;
  38 use vars qw( $cgi $p $cust_main_county );
  39 use CGI;
  40 use CGI::Carp qw(fatalsToBrowser);
  41 use FS::UID qw(cgisuidsetup swapuid);
  42 use FS::Record qw(qsearch qsearchs);
  43 use FS::CGI qw(header menubar popurl table);
  44 use FS::cust_main_county;
  45
  46 $cgi = new CGI;
  47
  48 &cgisuidsetup($cgi);
  49
  50 $p = popurl(2);
  51
  52 print $cgi->header( '-expires' => 'now' ), header("Tax Rate Listing", menubar(
  53   'Main Menu' => $p,
  54   'Edit tax rates' => $p. "edit/cust_main_county.cgi",
  55 )),<<END;
  56     Click on <u>expand country</u> to specify a country's tax rates by state.
  57     <BR>Click on <u>expand state</u> to specify a state's tax rates by county.
  58     <BR><BR>
  59 END
  60 print &table(), <<END;
  61       <TR>
  62         <TH><FONT SIZE=-1>Country</FONT></TH>
  63         <TH><FONT SIZE=-1>State</FONT></TH>
  64         <TH>County</TH>
  65         <TH><FONT SIZE=-1>Tax</FONT></TH>
  66       </TR>
  67 END
  68
  69 foreach $cust_main_county ( qsearch('cust_main_county',{}) ) {
  70   my($hashref)=$cust_main_county->hashref;
  71   print <<END;
  72       <TR>
  73         <TD>$hashref->{country}</TD>
  74 END
  75   print "<TD>", $hashref->{state}
  76       ? $hashref->{state}
  77       : qq!(ALL) <FONT SIZE=-1>!.
  78         qq!<A HREF="${p}edit/cust_main_county-expand.cgi?!. $hashref->{taxnum}.
  79         qq!">expand country</A></FONT>!
  80     , "</TD>";
  81   print "<TD>";
  82   if ( $hashref->{county} ) {
  83     print $hashref->{county};
  84   } else {
  85     print "(ALL)";
  86     if ( $hashref->{state} ) {
  87       print qq!<FONT SIZE=-1>!.
  88           qq!<A HREF="${p}edit/cust_main_county-expand.cgi?!. $hashref->{taxnum}.
  89           qq!">expand state</A></FONT>!;
  90     }
  91   }
  92   print "</TD>";
  93
  94   print <<END;
  95         <TD>$hashref->{tax}%</TD>
  96       </TR>
  97 END
  98
  99 }
 100
 101 print <<END;
 102     </TABLE>
 103     </CENTER>
 104   </BODY>
 105 </HTML>
 106 END
 107
 108 %>