httemplate/edit/process/svc_acct_sm.cgi

   1 <!-- $Id: svc_acct_sm.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
   2 <%
   3
   4 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
   5 my $svcnum =$1;
   6
   7 my $old = qsearchs('svc_acct_sm',{'svcnum'=>$svcnum}) if $svcnum;
   8
   9 #unmunge domsvc and domuid
  10 #$cgi->param('domsvc',(split(/:/, $cgi->param('domsvc') ))[0] );
  11 #$cgi->param('domuid',(split(/:/, $cgi->param('domuid') ))[0] );
  12
  13 my $new = new FS::svc_acct_sm ( {
  14   map {
  15     ($_, scalar($cgi->param($_)));
  16   #} qw(svcnum pkgnum svcpart domuser domuid domsvc)
  17   } ( fields('svc_acct_sm'), qw( pkgnum svcpart ) )
  18 } );
  19
  20 my $error = '';
  21 if ( $svcnum ) {
  22   $error = $new->replace($old);
  23 } else {
  24   $error = $new->insert;
  25   $svcnum = $new->getfield('svcnum');
  26 }
  27
  28 if ($error) {
  29   $cgi->param('error', $error);
  30   print $cgi->redirect(popurl(2). "svc_acct_sm.cgi?". $cgi->query_string );
  31 } else {
  32   print $cgi->redirect(popurl(3). "view/svc_acct_sm.cgi?$svcnum");
  33 }
  34
  35 %>