3 %my $svcnum = $cgi->param('svcnum');
5 %my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum}) if $svcnum;
7 %my $new = new FS::cust_svc ( {
9 % $_, scalar($cgi->param($_));
10 % } fields('cust_svc')
15 % $error=$new->replace($old);
17 % $error=$new->insert;
18 % $svcnum=$new->getfield('svcnum');
22 % #$cgi->param('error', $error);
23 % #print $cgi->redirect(popurl(2). "cust_svc.cgi?". $cgi->query_string );
26 % my $svcdb = $new->part_svc->svcdb;
27 % print $cgi->redirect(popurl(3). "view/$svcdb.cgi?$svcnum");