--- loncom/interface/lonpreferences.pm 2002/09/07 03:44:14 1.12 +++ 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.12 2002/09/07 03:44:14 www Exp $ +# $Id: lonpreferences.pm,v 1.15 2002/10/14 20:41:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,18 +106,22 @@ sub screennamechanger { my $r = shift; my $user = $ENV{'user.name'}; my $domain = $ENV{'user.domain'}; - my %userenv = &Apache::lonnet::get('environment',['screenname']); + my %userenv = &Apache::lonnet::get + ('environment',['screenname','nickname']); my $screenname=$userenv{'screenname'}; + my $nickname=$userenv{'nickname'}; my $bodytag=&Apache::loncommon::bodytag( - 'Change Your Anonymous Screen Name'); + 'Change Your Nickname and Anonymous Screen Name'); $r->print(< $bodytag
-New screenname: +
New screenname (shown if you post anonymously): +
New nickname (shown if you post non-anonymously): +
@@ -129,8 +133,9 @@ sub verify_and_change_screenname { my $r = shift; my $user = $ENV{'user.name'}; my $domain = $ENV{'user.domain'}; +# Screenname my $newscreen = $ENV{'form.screenname'}; - $newscreen=~s/\W//g; + $newscreen=~s/[^ \w]//g; my $message=''; if ($newscreen) { &Apache::lonnet::put('environment',{'screenname' => $newscreen}); @@ -141,8 +146,22 @@ sub verify_and_change_screenname { &Apache::lonnet::delenv('environment\.screenname'); $message='Reset screenname'; } +# Nickname + $message.='
'; + my $newscreen = $ENV{'form.nickname'}; + $newscreen=~s/[^ \w]//g; + if ($newscreen) { + &Apache::lonnet::put('environment',{'nickname' => $newscreen}); + &Apache::lonnet::appenv('environment.nickname' => $newscreen); + $message.='Set new nickname to '.$newscreen; + } else { + &Apache::lonnet::del('environment',['nickname']); + &Apache::lonnet::delenv('environment\.nickname'); + $message.='Reset nickname'; + } + my $bodytag=&Apache::loncommon::bodytag( - 'Change Your Anonymous Screen Name'); + 'Change Your Nickname and Anonymous Screen Name'); $r->print(< $bodytag @@ -359,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 @@ -459,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(< @@ -472,41 +498,51 @@ ENDHEADER if ($currentauth =~ /^(unix|internal):/) { $r->print(< - - + + ENDPASSWORDFORM + } # Change screen name $r->print(< - - + + ENDSCREENNAMEFORM $r->print(< - - + + 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(< ENDFOOTER return OK; -} +} 1; __END__