3 # cust_main_county-expand.cgi: Expand a state into counties (output form)
5 # ivan@sisd.com 97-dec-16
7 # Changes to allow page to work at a relative position in server
8 # bmccane@maxbaud.net 98-apr-3
10 # lose background, FS::CGI ivan@sisd.com 98-sep-2
14 use CGI::Carp qw(fatalsToBrowser);
15 use FS::UID qw(cgisuidsetup);
16 use FS::Record qw(qsearch qsearchs);
17 use FS::CGI qw(header menubar);
19 my($cgi) = new CGI::Base;
24 SendHeaders(); # one guess.
26 $cgi->var('QUERY_STRING') =~ /^(\d+)$/
27 or die "Illegal taxnum!";
30 my($cust_main_county)=qsearchs('cust_main_county',{'taxnum'=>$taxnum});
31 die "Can't expand entry!" if $cust_main_county->getfield('county');
33 print header("Tax Rate (expand state)", menubar(
36 <FORM ACTION="process/cust_main_county-expand.cgi" METHOD=POST>
37 <INPUT TYPE="hidden" NAME="taxnum" VALUE="$taxnum">
39 <INPUT TYPE="radio" NAME="delim" VALUE="n" CHECKED>line
40 (rumor has it broken on some browsers) or
41 <INPUT TYPE="radio" NAME="delim" VALUE="s">whitespace.
42 <BR><INPUT TYPE="submit" VALUE="Submit">
43 <BR><TEXTAREA NAME="counties" ROWS=100></TEXTAREA>