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 } );
  13
  14 my $error;
  15 if ( $svcpart ) {
  16   $error = $new->replace($old);
  17 } else {
  18   $error = $new->insert;
  19   $svcpart=$new->getfield('svcpart');
  20 }
  21
  22 if ( $error ) {
  23   $cgi->param('error', $error);
  24   print $cgi->redirect(popurl(2), "part_svc.cgi?". $cgi->query_string );
  25 } else {
  26   print $cgi->redirect(popurl(3)."browse/part_svc.cgi");
  27 }
  28
  29 %>