httemplate/edit/process/cust_main_county.cgi

   1 <%
   2 #<!-- $Id: cust_main_county.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use FS::UID qw(cgisuidsetup);
   9 use FS::CGI qw(popurl);
  10 use FS::Record qw(qsearch qsearchs);
  11 use FS::cust_main_county;
  12
  13 $cgi = new CGI;
  14 &cgisuidsetup($cgi);
  15
  16 foreach ( $cgi->param ) {
  17   /^tax(\d+)$/ or die "Illegal form $_!";
  18   my($taxnum)=$1;
  19   my($old)=qsearchs('cust_main_county',{'taxnum'=>$taxnum})
  20     or die "Couldn't find taxnum $taxnum!";
  21   next unless $old->getfield('tax') ne $cgi->param("tax$taxnum");
  22   my(%hash)=$old->hash;
  23   $hash{tax}=$cgi->param("tax$taxnum");
  24   my($new)=new FS::cust_main_county \%hash;
  25   my($error)=$new->replace($old);
  26   if ( $error ) {
  27     $cgi->param('error', $error);
  28     print $cgi->redirect(popurl(2). "cust_main_county.cgi?". $cgi->query_string );
  29     exit;
  30   }
  31 }
  32
  33 print $cgi->redirect(popurl(3). "browse/cust_main_county.cgi");
  34
  35 %>