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($_));
15 $error=$new->replace($old);
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");