X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main_county-expand.cgi;h=265dd1dabb9e4897e43ae1476d2e4a9613d2735f;hp=092a2d068c55b8e026a984519caeeb0ff59e7b70;hb=f822e27a1e00594332ffa487a1c284234c5580a6;hpb=1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 diff --git a/httemplate/edit/cust_main_county-expand.cgi b/httemplate/edit/cust_main_county-expand.cgi index 092a2d068..265dd1dab 100755 --- a/httemplate/edit/cust_main_county-expand.cgi +++ b/httemplate/edit/cust_main_county-expand.cgi @@ -1,51 +1,52 @@ - -<% +<% include('/elements/header-popup.html', "Enter $title") %> -my($taxnum, $delim, $expansion ); +<% include('/elements/error.html') %> + +
+ + + + + +
+ + +
+ + + +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +my($taxnum, $expansion); +my($query) = $cgi->keywords; if ( $cgi->param('error') ) { $taxnum = $cgi->param('taxnum'); - $delim = $cgi->param('delim'); $expansion = $cgi->param('expansion'); } else { - my ($query) = $cgi->keywords; $query =~ /^(\d+)$/ - or die "Illegal taxnum!"; + or die "Illegal taxnum (query $query)"; $taxnum = $1; - $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 $title; + +die "Can't expand entry!" if $cust_main_county->city; + +if ( $cust_main_county->county ) { + $title = 'Cities'; +} elsif ( $cust_main_county->state ) { + $title = 'Counties'; +} else { + $title = 'States/Provinces'; +} 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 (rumor has it broken on some browsers) or', - 'whitespace.'; -print < -
- - - - -END -%> +