1 <!-- $Id: svc_forward.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
4 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
7 my $old = qsearchs('svc_forward',{'svcnum'=>$svcnum}) if $svcnum;
9 my $new = new FS::svc_forward ( {
11 ($_, scalar($cgi->param($_)));
12 } ( fields('svc_forward'), qw( pkgnum svcpart ) )
17 $error = $new->replace($old);
19 $error = $new->insert;
20 $svcnum = $new->getfield('svcnum');
24 $cgi->param('error', $error);
25 print $cgi->redirect(popurl(2). "svc_forward.cgi?". $cgi->query_string );
27 print $cgi->redirect(popurl(3). "view/svc_forward.cgi?$svcnum");