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

[raeburn]

raeburn		Fri Oct  9 04:13:56 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	lonpreferences.pm 
  Log:
  - Another replacement of hard-coded developer usernames needed in 2.9.X.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.125.4.7 loncom/interface/lonpreferences.pm:1.125.4.8
--- loncom/interface/lonpreferences.pm:1.125.4.7	Fri Oct  9 01:44:26 2009
+++ loncom/interface/lonpreferences.pm	Fri Oct  9 04:13:55 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.125.4.7 2009/10/09 01:44:26 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.125.4.8 2009/10/09 04:13:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2041,7 +2041,7 @@
                        }));
     }
 
-    if ($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) {
+    if (&can_toggle_debug()) {
         push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',
                           subroutine => \&toggle_debug,
@@ -2076,7 +2076,7 @@
         if (&can_toggle_debug()) {
             push (@Options,({ action => 'debugtoggle',
                               linktext => 'Toggle Debug Messages',
-                              text => 'Current Debug status is -'.
+                              text => 'Current Debug status is: '.
                                       ($env{'user.debug'} ? 'on' : 'off'),
                               href => '/adm/preferences',
                               printmenu => 'yes',