httemplate/edit/process/part_svc.cgi

   1 <%
   2
   3 my $svcpart = $cgi->param('svcpart');
   4
   5 my $old = qsearchs('part_svc',{'svcpart'=>$svcpart}) if $svcpart;
   6
   7 my $new = new FS::part_svc ( {
   8   map {
   9     $_, scalar($cgi->param($_));
  10 #  } qw(svcpart svc svcdb)
  11   } ( fields('part_svc'),
  12       map { my $svcdb = $_;
  13             map { ( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' )  }
  14               fields($svcdb)
  15           } qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www ) )
  16 } );
  17
  18 my $error;
  19 if ( $svcpart ) {
  20   $error = $new->replace($old);
  21 } else {
  22   $error = $new->insert;
  23   $svcpart=$new->getfield('svcpart');
  24 }
  25
  26 if ( $error ) {
  27   $cgi->param('error', $error);
  28   print $cgi->redirect(popurl(2), "part_svc.cgi?". $cgi->query_string );
  29 } else {
  30   print $cgi->redirect(popurl(3)."browse/part_svc.cgi");
  31 }
  32
  33 %>