%
%
%my $svcnum = $cgi->param('svcnum');
%
%my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum}) if $svcnum;
%
%my $new = new FS::cust_svc ( {
%  map {
%    $_, scalar($cgi->param($_));
%  } fields('cust_svc')
%} );
%
%my $error;
%if ( $svcnum ) {
%  $error=$new->replace($old);
%} else {
%  $error=$new->insert;
%  $svcnum=$new->getfield('svcnum');
%}
%
%if ( $error ) {
%  #$cgi->param('error', $error);
%  #print $cgi->redirect(popurl(2). "cust_svc.cgi?". $cgi->query_string );
%  eidiot($error);
%} else { 
%  my $svcdb = $new->part_svc->svcdb;
%  print $cgi->redirect(popurl(3). "view/$svcdb.cgi?$svcnum");
%}
%
%