[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm

[raeburn]

raeburn		Fri Jul 18 08:36:14 2008 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  - Only show "Restrict Domain Coordinator Access" link if user has an active author role. 
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.124 loncom/interface/lonpreferences.pm:1.125
--- loncom/interface/lonpreferences.pm:1.124	Tue Jun 10 10:49:07 2008
+++ loncom/interface/lonpreferences.pm	Fri Jul 18 08:36:11 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.124 2008/06/10 14:49:07 www Exp $
+# $Id: lonpreferences.pm,v 1.125 2008/07/18 12:36:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1929,7 +1929,8 @@
                             text => 'Register Clicker'},
                       printmenu => 'yes',
                       }));
-   if ($env{'user.adv'}) {
+    my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
+    if (keys(%author_roles) > 0) {
       push (@Options,({ action   => 'changedomcoord',
                         linktext => 'Restrict Domain Coordinator Access',
                         href     => '/adm/preferences',