4 % my $svcdb = $new->part_svc->svcdb;
5 <% $cgi->redirect(popurl(3). "view/$svcdb.cgi?$svcnum") %>
10 unless $FS::CurrentUser::CurrentUser->access_right('Change customer service');
12 my $svcnum = $cgi->param('svcnum');
14 my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum}) if $svcnum;
16 my $new = new FS::cust_svc ( {
18 $_, scalar($cgi->param($_));
24 $error=$new->replace($old);
27 $svcnum=$new->getfield('svcnum');