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

[raeburn]

raeburn		Mon Jun  6 12:23:57 2005 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  Allow my log-in to display debugging.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.61 loncom/interface/lonpreferences.pm:1.62
--- loncom/interface/lonpreferences.pm:1.61	Sun Jun  5 22:32:36 2005
+++ loncom/interface/lonpreferences.pm	Mon Jun  6 12:23:55 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.61 2005/06/06 02:32:36 albertel Exp $
+# $Id: lonpreferences.pm,v 1.62 2005/06/06 16:23:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1155,7 +1155,7 @@
                       }));
 
 
-    if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle)$/) {
+    if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle|raeburn)$/) {
         push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',
                           subroutine => \&toggle_debug,
@@ -1191,7 +1191,7 @@
     if (($printmenu eq 'yes') && (!$env{'form.returnurl'})) {
         my $optionlist = '<table cellpadding="5">';
         if ($env{'user.name'} =~ 
-                         /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle)$/
+                         /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/
             ) {
             push (@Options,({ action => 'debugtoggle',
                               linktext => 'Toggle Debug Messages',