<% # use strict; use vars qw( $cgi $cust_main_county ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header menubar popurl table); use FS::cust_main_county; $cgi = new CGI; &cgisuidsetup($cgi); print $cgi->header( '-expires' => 'now' ), header("Edit tax rates", menubar( 'Main Menu' => popurl(2), )); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print qq!

!, &table(), < Country State County Tax END foreach $cust_main_county ( sort { $a->country cmp $b->country or $a->state cmp $b->state or $a->county cmp $b->county } qsearch('cust_main_county',{}) ) { my($hashref)=$cust_main_county->hashref; print < $hashref->{country} END print "", $hashref->{state} ? $hashref->{state} : '(ALL)' , ""; print "", $hashref->{county} ? $hashref->{county} : '(ALL)' , ""; print qq!%!; END } print < END %>