httemplate/edit/process/svc_acct_pop.cgi

   1 <!-- $Id: svc_acct_pop.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
   2 <%
   3
   4 my $popnum = $cgi->param('popnum');
   5
   6 my $old = qsearchs('svc_acct_pop',{'popnum'=>$popnum}) if $popnum;
   7
   8 my $new = new FS::svc_acct_pop ( {
   9   map {
  10     $_, scalar($cgi->param($_));
  11   } fields('svc_acct_pop')
  12 } );
  13
  14 my $error = '';
  15 if ( $popnum ) {
  16   $error = $new->replace($old);
  17 } else {
  18   $error = $new->insert;
  19   $popnum=$new->getfield('popnum');
  20 }
  21
  22 if ( $error ) {
  23   $cgi->param('error', $error);
  24   print $cgi->redirect(popurl(2). "svc_acct_pop.cgi?". $cgi->query_string );
  25 } else {
  26   print $cgi->redirect(popurl(3). "browse/svc_acct_pop.cgi");
  27 }
  28
  29 %>