[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Fri, 18 Jul 2008 12:36:14 -0000
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',