Add a new access right for managing domain registration (registering,

transferring, revoking, renewing, etc.).

diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm
index af480df..e29620d 100644 (file)
--- a/FS/FS/AccessRight.pm
+++ b/FS/FS/AccessRight.pm
@@ -140,6 +140,7 @@ tie my %rights, 'Tie::IxHash',
     'Edit www config', #NEW
     'Edit domain catchall', #NEW
     'Edit domain nameservice', #NEW
+    'Manage domain registration',
   
     { rightname=>'View/link unlinked services', global=>1 }, #not agent-virtualizable without more work
   ],

diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi
index 1e93b94..b9a8de7 100755 (executable)
--- a/httemplate/view/svc_domain.cgi
+++ b/httemplate/view/svc_domain.cgi
@@ -14,7 +14,7 @@ Service #<% $svcnum %>
 <BR>Domain name: <B><% $domain %></B>
 % if ($export) {
 <BR>Status: <B><% $status %></B>
-%   if ( $FS::CurrentUser::CurrentUser->access_right('Change customer service') ) {
+%   if ( $FS::CurrentUser::CurrentUser->access_right('Manage domain registration') ) {
 %     if ( defined($ops{'register'}) ) {
     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=register&svcnum=<% $svcnum %>">Register at <% $registrar->{'name'} %></A>&nbsp;
 %     }