httemplate/edit/process/svc_forward.cgi

   1 <%
   2
   3 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
   4 my $svcnum =$1;
   5
   6 my $old = qsearchs('svc_forward',{'svcnum'=>$svcnum}) if $svcnum;
   7
   8 my $new = new FS::svc_forward ( {
   9   map {
  10     ($_, scalar($cgi->param($_)));
  11   } ( fields('svc_forward'), qw( pkgnum svcpart ) )
  12 } );
  13
  14 my $error = '';
  15 if ( $svcnum ) {
  16   $error = $new->replace($old);
  17 } else {
  18   $error = $new->insert;
  19   $svcnum = $new->getfield('svcnum');
  20 }
  21
  22 if ($error) {
  23   $cgi->param('error', $error);
  24   print $cgi->redirect(popurl(2). "svc_forward.cgi?". $cgi->query_string );
  25 } else {
  26   print $cgi->redirect(popurl(3). "view/svc_forward.cgi?$svcnum");
  27 }
  28
  29 %>