--- loncom/interface/lonpreferences.pm 2002/09/13 19:32:09 1.14 +++ loncom/interface/lonpreferences.pm 2002/10/16 19:36:25 1.16 @@ -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.16 2002/10/16 19:36:25 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -478,6 +478,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 +519,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(<