3 %} elsif ( $recnum ) { #editing
4 <& /elements/header-popup.html, 'Nameservice record changed' &>
5 <SCRIPT TYPE="text/javascript">
10 % my $svcnum = $new->svcnum;
11 <% $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum#dns") %>
16 unless $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice');
18 my $recnum = $cgi->param('recnum');
20 my $old = qsearchs('domain_record',{'recnum'=>$recnum}) if $recnum;
22 my $new = new FS::domain_record ( {
24 $_, scalar($cgi->param($_));
25 } fields('domain_record')
30 $new->svcnum( $old->svcnum );
31 $error = $new->replace($old);
33 $error = $new->insert;
34 #$recnum = $new->getfield('recnum');