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