--- loncom/interface/lonpreferences.pm 2002/09/13 19:32:09 1.14
+++ loncom/interface/lonpreferences.pm 2002/12/03 19:57:26 1.17
@@ -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.17 2002/12/03 19:57:26 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -148,7 +148,7 @@ sub verify_and_change_screenname {
}
# Nickname
$message.='
';
- my $newscreen = $ENV{'form.nickname'};
+ $newscreen = $ENV{'form.nickname'};
$newscreen=~s/[^ \w]//g;
if ($newscreen) {
&Apache::lonnet::put('environment',{'nickname' => $newscreen});
@@ -394,9 +394,9 @@ ENDERROR
}
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
#
- my $currentpass = &des_decrypt($ckey ,$currentpass);
- my $newpass1 = &des_decrypt($n1key,$newpass1);
- my $newpass2 = &des_decrypt($n2key,$newpass2);
+ $currentpass = &des_decrypt($ckey ,$currentpass);
+ $newpass1 = &des_decrypt($n1key,$newpass1);
+ $newpass2 = &des_decrypt($n2key,$newpass2);
#
if ($newpass1 ne $newpass2) {
&passwordchanger($r,
@@ -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(<