<% my($taxnum, $delim, $expansion, $taxclass ); my($query) = $cgi->keywords; if ( $cgi->param('error') ) { $taxnum = $cgi->param('taxnum'); $delim = $cgi->param('delim'); $expansion = $cgi->param('expansion'); $taxclass = $cgi->param('taxclass'); } else { $query =~ /^(taxclass)?(\d+)$/ or die "Illegal taxnum (query $query)"; $taxclass = $1 ? 'taxclass' : ''; $taxnum = $2; $delim = 'n'; $expansion = ''; } my $cust_main_county = qsearchs('cust_main_county',{'taxnum'=>$taxnum}) or die "cust_main_county.taxnum $taxnum not found"; die "Can't expand entry!" if $cust_main_county->getfield('county'); my $p1 = popurl(1); print header("Tax Rate (expand)", menubar( 'Main Menu' => popurl(2), )); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print < Separate by END print 'line (broken on some browsers) or', 'whitespace.'; print <
END %>