4 % my $svcnum = $new->svcnum;
5 <% $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum") %>
10 unless $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice');
12 my $recnum = $cgi->param('recnum');
14 my $old = qsearchs('agent',{'recnum'=>$recnum}) if $recnum;
16 my $new = new FS::domain_record ( {
18 $_, scalar($cgi->param($_));
19 } fields('domain_record')
24 $error=$new->replace($old);
27 $recnum=$new->getfield('recnum');