2 #<!-- $Id: cust_main_county.cgi,v 1.5 2001-10-30 14:54:07 ivan Exp $ -->
5 use vars qw( $cgi $cust_main_county );
7 use CGI::Carp qw(fatalsToBrowser);
8 use FS::UID qw(cgisuidsetup);
9 use FS::Record qw(qsearch qsearchs);
10 use FS::CGI qw(header menubar popurl table);
11 use FS::cust_main_county;
17 print header("Edit tax rates", menubar(
18 'Main Menu' => popurl(2),
21 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
23 if $cgi->param('error');
25 print qq!<FORM ACTION="!, popurl(1),
26 qq!process/cust_main_county.cgi" METHOD=POST>!, &table(), <<END;
28 <TH><FONT SIZE=-1>Country</FONT></TH>
29 <TH><FONT SIZE=-1>State</FONT></TH>
31 <TH><FONT SIZE=-1>Tax</FONT></TH>
35 foreach $cust_main_county ( sort { $a->country cmp $b->country
36 or $a->state cmp $b->state
37 or $a->county cmp $b->county
38 } qsearch('cust_main_county',{}) ) {
39 my($hashref)=$cust_main_county->hashref;
42 <TD>$hashref->{country}</TD>
45 print "<TD>", $hashref->{state}
50 print "<TD>", $hashref->{county}
55 print qq!<TD><INPUT TYPE="text" NAME="tax!, $hashref->{taxnum},
56 qq!" VALUE="!, $hashref->{tax}, qq!" SIZE=6 MAXLENGTH=6>%</TD></TR>!;
63 <INPUT TYPE="submit" VALUE="Apply changes">