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

[raeburn]

raeburn		Wed Sep 16 21:04:27 2009 EDT

  Modified files:              (Branch: GCI_1)
    /loncom/interface	lonpreferences.pm 
  Log:
  - Customization for GCI_1.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.125.6.1 loncom/interface/lonpreferences.pm:1.125.6.2
--- loncom/interface/lonpreferences.pm:1.125.6.1	Wed Sep 16 20:49:18 2009
+++ loncom/interface/lonpreferences.pm	Wed Sep 16 21:04:27 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.125.6.1 2009/09/16 20:49:18 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.125.6.2 2009/09/16 21:04:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1806,7 +1806,8 @@
                       printmenu => 'yes',
                       subroutine => \&verify_and_change_colors,
                       }));
-    push (@Options,({ action => 'changelanguages',
+    if ($env{'user.adv'}) {
+        push (@Options,({ action => 'changelanguages',
                       linktext => 'Change Language Preferences',
                       href => '/adm/preferences',
 		      help => 'Prefs_Language',
@@ -1822,6 +1823,7 @@
                       printmenu => 'yes',
                       subroutine=>\&verify_and_change_languages, }
                     ));
+    }
     push (@Options,({ action => 'changewysiwyg',
                       linktext => 'Change WYSIWYG Editor Preferences',
                       href => '/adm/preferences',
@@ -1853,9 +1855,9 @@
                       printmenu => 'yes',
                       subroutine => \&verify_and_change_discussion, }
                     ));
-
-    my $role = ($env{'user.adv'} ? 'Roles' : 'Course');
-    push (@Options,({ action   => 'changerolespref',
+    if ($env{'user.adv'}) {
+        my $role = ($env{'user.adv'} ? 'Roles' : 'Course');
+        push (@Options,({ action   => 'changerolespref',
                       linktext => 'Change '.$role.' Page Preferences',
                       href     => '/adm/preferences',
                       subroutine => \&rolesprefchanger,
@@ -1871,7 +1873,7 @@
                       printmenu => 'yes',
                       }));
 
-    push (@Options,({ action   => 'changetexenginepref',
+        push (@Options,({ action   => 'changetexenginepref',
                       linktext => 'Change How Math Equations Are Displayed',
                       href     => '/adm/preferences',
                       subroutine => \&texenginechanger,
@@ -1887,16 +1889,17 @@
                       printmenu => 'yes',
                       }));
 
-    if ($env{'environment.remote'} eq 'off') {
-	push (@Options,({ action => 'launch',
-			  linktext => 'Launch Remote Control',
-			  href => '/adm/remote?url=/adm/preferences',
-		      }));
-    } else {
-	push (@Options,({ action => 'collapse',
+        if ($env{'environment.remote'} eq 'off') {
+	    push (@Options,({ action => 'launch',
+	   		      linktext => 'Launch Remote Control',
+			      href => '/adm/remote?url=/adm/preferences',
+		          }));
+        } else {
+	    push (@Options,({ action => 'collapse',
 			  linktext => 'Collapse Remote Control',
 			  href => '/adm/remote?url=/adm/preferences',
-		      }));
+		          }));
+        }
     }
 
     push (@Options,({ action   => 'changeicons',
@@ -1914,8 +1917,8 @@
                             text => 'Change Main Menu'},
                       printmenu => 'yes',
                       }));
-
-    push (@Options,({ action   => 'changeclicker',
+    if ($env{'user.adv'}) {
+        push (@Options,({ action   => 'changeclicker',
                       linktext => 'Register Response Devices ("Clickers")',
                       href     => '/adm/preferences',
                       subroutine => \&clickerchanger,
@@ -1930,9 +1933,9 @@
                             text => 'Register Clicker'},
                       printmenu => 'yes',
                       }));
-    my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
-    if (keys(%author_roles) > 0) {
-      push (@Options,({ action   => 'changedomcoord',
+        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',
                         subroutine => \&domcoordchanger,
@@ -1947,6 +1950,7 @@
                               text => 'Restrict Domain Coordinator Access'},
                         printmenu => 'yes',
                       }));
+        }
     }
 
     push (@Options,({ action   => 'lockwarning',