<% include('/elements/header-popup.html', 'Addition successful' ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); $cgi->param('taxnum') =~ /^(\d+)$/ or die "Illegal taxnum!"; my $taxnum = $1; my $cust_main_county = qsearchs('cust_main_county',{'taxnum'=>$taxnum}) or die ("Unknown taxnum!"); my @expansion = split /[\n\r]{1,2}/, $cgi->param('expansion'); #warn scalar(@expansion); #warn "$_: $expansion[$_]\n" foreach (0..$#expansion); @expansion=map { unless ( /^\s*([\w\- ]+)\s*$/ ) { $cgi->param('error', "Illegal item in expansion: $_"); print $cgi->redirect(popurl(2). "cust_main_county-expand.cgi?". $cgi->query_string ); myexit(); } $1; } @expansion; foreach ( @expansion) { my(%hash)=$cust_main_county->hash; my($new)=new FS::cust_main_county \%hash; $new->setfield('taxnum',''); if ( $cgi->param('taxclass') ) { $new->setfield('taxclass', $_); } elsif ( ! $cust_main_county->state ) { $new->setfield('state',$_); } else { $new->setfield('county',$_); } my $error = $new->insert; die $error if $error; } unless ( qsearch( 'cust_main', { 'state' => $cust_main_county->state, 'county' => $cust_main_county->county, 'country' => $cust_main_county->country, } ) || ! @expansion ) { my $error = $cust_main_county->delete; die $error if $error; }