diff options
| author | cvs2git <cvs2git> | 2004-04-07 09:08:35 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 2004-04-07 09:08:35 +0000 |
| commit | 022491d9d2723ca4d7d0718cdb1fd67e7652428e (patch) | |
| tree | fc1e50c0d78ecc401ef2214a6a11ee07242be0f8 /httemplate/edit/process/cust_main_county-collapse.cgi | |
| parent | 35effa1bf4ac902547615c816960bbc8db8e7256 (diff) | |
This commit was manufactured by cvs2svn to create tag 'NET_WHOIS_RAW_0_31'.NET_WHOIS_RAW_0_31
Diffstat (limited to 'httemplate/edit/process/cust_main_county-collapse.cgi')
| -rwxr-xr-x | httemplate/edit/process/cust_main_county-collapse.cgi | 35 |
1 files changed, 0 insertions, 35 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 5da9dea80..000000000 --- a/httemplate/edit/process/cust_main_county-collapse.cgi +++ /dev/null @@ -1,35 +0,0 @@ -<% - -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 - -foreach my $delete ( qsearch('cust_main_county', { - 'country' => $cust_main_county->country, - 'state' => $cust_main_county->state - } ) ) { -# 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(''); -$cust_main_county->county(''); -my $error = $cust_main_county->insert; -die $error if $error; - -print $cgi->redirect(popurl(3). "browse/cust_main_county.cgi"); - -%> |
