DNS Records
% my @records; if ( @records = $svc_domain->domain_record ) { <% include('/elements/table-grid.html') %> % my $bgcolor1 = '#eeeeee'; % my $bgcolor2 = '#ffffff'; % my $bgcolor = $bgcolor2; Zone Type Data TTL % foreach my $domain_record ( @records ) { % my $type = $domain_record->rectype eq '_mstr' % ? "(slave)" % : $domain_record->recaf. ' '. $domain_record->rectype; <% $domain_record->reczone %> <% $type %> <% $domain_record->recdata %> <% $domain_record->ttl %> % unless ( $domain_record->rectype eq 'SOA' % || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') % ) { % ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; (edit) (delete) % } % if ( $bgcolor eq $bgcolor1 ) { % $bgcolor = $bgcolor2; % } else { % $bgcolor = $bgcolor1; % } % } % } else {
% } % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
IN

Or % if ( @records ) { delete all records and % } slave from nameserver IP
% }
<%init> my($svc_domain, %opt) = @_; my $svcnum = $svc_domain->svcnum;