--- loncom/interface/lonpreferences.pm 2002/09/13 19:32:09 1.14 +++ loncom/interface/lonpreferences.pm 2002/10/14 20:41:07 1.15 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.14 2002/09/13 19:32:09 www Exp $ +# $Id: lonpreferences.pm,v 1.15 2002/10/14 20:41:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -378,8 +378,7 @@ ENDHEADER "Password data was blank.\n

"); return; } - # Get the keys - my $lonhost = $r->dir_config('lonHostID'); + # Get the keysecen my $lonhost = $r->dir_config('lonHostID'); my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost); if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) { # I do not a have a better idea about how to handle this @@ -478,6 +477,14 @@ sub handler { &msgforwardchanger($r); } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') { &verify_and_change_msgforward($r); + } elsif ($ENV{'form.action'} eq 'debugtoggle') { + if ($ENV{'user.name'} eq 'albertel' ) { + if ($ENV{'user.debug'}) { + &Apache::lonnet::delenv('user\.debug'); + } else { + &Apache::lonnet::appenv('user.debug' => 1); + } + } } else { $r->print(< @@ -511,15 +518,24 @@ ENDSCREENNAMEFORM ENDMSGFORWARDFORM # The "about me" page - my $aboutmeaction= - '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; - $r->print(<print(< ENDABOUTME - # Other preference setting code should be added here + if ($ENV{'user.name'} eq 'albertel') { + $r->print(< + + +Current Debug status is -$ENV{'user.debug'}-. + +ENDDEBUG + } + # Other preference setting code should be added here } $r->print(<