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           } grep defined( $FS::Record::dbdef->table($_) ),
  16                  qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www )
  17     )
  18 } );
  19
  20 my $error;
  21 if ( $svcpart ) {
  22   $error = $new->replace($old, '1.3-COMPAT');
  23 } else {
  24   $error = $new->insert;
  25   $svcpart=$new->getfield('svcpart');
  26 }
  27
  28 if ( $error ) {
  29   $cgi->param('error', $error);
  30   print $cgi->redirect(popurl(2). "part_svc.cgi?". $cgi->query_string );
  31 } else {
  32   print $cgi->redirect(popurl(3)."browse/part_svc.cgi");
  33 }
  34
  35 %>