httemplate/edit/process/cust_svc.cgi

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