% % %print 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 % Taxclass
(per-package classification) %END % %if ( dbdef->table('cust_main_county')->column('taxname') ) { % print 'Tax name
(printed on invoices)'; %} % %print <Tax % Exempt
per
month %END % %if ( dbdef->table('cust_main_county')->column('setuptax') ) { % print 'Setup
fee
exempt'; %} %if ( dbdef->table('cust_main_county')->column('recurtax') ) { % print 'Recurring
fee
exempt'; %} % %print ''; % %foreach my $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 "{state} % ? ' BGCOLOR="#ffffff">'.$hashref->{state} % : ' BGCOLOR="#cccccc">(ALL)' % , ""; % % print "{county} % ? ' BGCOLOR="#ffffff">'. $hashref->{county} % : ' BGCOLOR="#cccccc">(ALL)' % , ""; % % print "{taxclass} % ? ' BGCOLOR="#ffffff">'. $hashref->{taxclass} % : ' BGCOLOR="#cccccc">(ALL)' % , ""; % % print qq!! % if dbdef->table('cust_main_county')->column('taxname'); % % print qq!

%

!; % print qq!

\$

!; % % print qq!{setuptax} =~ /^Y$/i ? ' CHECKED' : '' ). % '>' % if dbdef->table('cust_main_county')->column('setuptax'); % % print qq!{recurtax} =~ /^Y$/i ? ' CHECKED' : '' ). % '>' % if dbdef->table('cust_main_county')->column('recurtax'); % % print ''; % %} % %print < % % % % % %END % %