diff options
Diffstat (limited to 'httemplate/edit/process/cust_main_county-collapse.cgi')
-rwxr-xr-x | httemplate/edit/process/cust_main_county-collapse.cgi | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/httemplate/edit/process/cust_main_county-collapse.cgi b/httemplate/edit/process/cust_main_county-collapse.cgi deleted file mode 100755 index 9608fc9..0000000 --- a/httemplate/edit/process/cust_main_county-collapse.cgi +++ /dev/null @@ -1,46 +0,0 @@ -<% $cgi->redirect(popurl(3). "browse/cust_main_county.cgi") %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/ or die "Illegal taxnum!"; -my $taxnum = $1; -my $cust_main_county = qsearchs('cust_main_county', { 'taxnum' => $taxnum } ) - or die "Unknown taxnum $taxnum"; - -#really should do this in a .pm & start transaction - -my %search = ( - 'country' => $cust_main_county->country, - 'state' => $cust_main_county->state, - ); - -$search{'county'} = $cust_main_county->county - if $cust_main_county->city; - -foreach my $delete ( qsearch('cust_main_county', \%search) ) { -# unless ( qsearch('cust_main',{ -# 'state' => $cust_main_county->getfield('state'), -# 'county' => $cust_main_county->getfield('county'), -# 'country' => $cust_main_county->getfield('country'), -# } ) ) { - my $error = $delete->delete; - die $error if $error; -# } else { - #should really fix the $cust_main record -# } - -} - -$cust_main_county->taxnum(''); -if ( $cust_main_county->city ) { - $cust_main_county->city(''); -} else { - $cust_main_county->county(''); -} -my $error = $cust_main_county->insert; -die $error if $error; - -</%init> |