httemplate/edit/process/svc_acct_pop.cgi

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