2 # <!-- $Id: cust_main_county-collapse.cgi,v 1.1 2001-08-17 11:05:31 ivan Exp $ -->
5 use vars qw ( $cgi $taxnum $cust_main_county @expansion $expansion );
7 use CGI::Carp qw(fatalsToBrowser);
8 use FS::UID qw(cgisuidsetup datasrc);
9 use FS::Record qw(qsearch qsearchs);
10 use FS::CGI qw(popurl);
11 use FS::cust_main_county;
17 my($query) = $cgi->keywords;
18 $query =~ /^(\d+)$/ or die "Illegal taxnum!";
20 $cust_main_county = qsearchs('cust_main_county',{'taxnum'=>$taxnum})
21 or die ("Unknown taxnum!");
23 #really should do this in a .pm & start transaction
25 foreach my $delete ( qsearch('cust_main_county', {
26 'country' => $cust_main_county->country,
27 'state' => $cust_main_county->state
29 # unless ( qsearch('cust_main',{
30 # 'state' => $cust_main_county->getfield('state'),
31 # 'county' => $cust_main_county->getfield('county'),
32 # 'country' => $cust_main_county->getfield('country'),
34 my $error = $delete->delete;
37 #should really fix the $cust_main record
42 $cust_main_county->taxnum('');
43 $cust_main_county->county('');
44 my $error = $cust_main_county->insert;
47 print $cgi->redirect(popurl(3). "browse/cust_main_county.cgi");