--- loncom/interface/lonpreferences.pm 2002/03/30 23:27:00 1.6 +++ loncom/interface/lonpreferences.pm 2002/08/27 13:23:01 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.6 2002/03/30 23:27:00 www Exp $ +# $Id: lonpreferences.pm,v 1.11 2002/08/27 13:23:01 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -98,24 +98,21 @@ sub des_decrypt { ################################################################ # Handler subroutines # ################################################################ + +################################################################ +# Anonymous Discussion Name Change Subroutines # +################################################################ sub screennamechanger { my $r = shift; - my $errormessage = shift; - $errormessage = ($errormessage || ''); my $user = $ENV{'user.name'}; my $domain = $ENV{'user.domain'}; - my $homeserver = $ENV{'user.home'}; my %userenv = &Apache::lonnet::get('environment',['screenname']); my $screenname=$userenv{'screenname'}; + my $bodytag=&Apache::loncommon::bodytag( + 'Change Your Anonymous Screen Name'); $r->print(< - -

Preferences for $user

-

$user is a member of domain $domain

-$errormessage -

-Change anonymous discussion screen name for $user -

+$bodytag
@@ -132,26 +129,23 @@ sub verify_and_change_screenname { my $r = shift; my $user = $ENV{'user.name'}; my $domain = $ENV{'user.domain'}; - my $homeserver = $ENV{'user.home'}; my $newscreen = $ENV{'form.screenname'}; $newscreen=~s/\W//g; my $message=''; if ($newscreen) { - my %tmp; - $tmp{'screenname'}=$newscreen; - &Apache::lonnet::put('environment',\%tmp); + &Apache::lonnet::put('environment',{'screenname' => $newscreen}); + &Apache::lonnet::appenv('environment.screenname' => $newscreen); $message='Set new screenname to '.$newscreen; } else { &Apache::lonnet::del('environment',['screenname']); + &Apache::lonnet::delenv('environment\.screenname'); $message='Reset screenname'; } + my $bodytag=&Apache::loncommon::bodytag( + 'Change Your Anonymous Screen Name'); $r->print(< - -

Preferences for $user

-

$user is a member of domain $domain

-

-Change anonymous discussion screen name for $user +$bodytag

$message @@ -194,14 +188,17 @@ sub passwordchanger { $lkey_npass2= hex($lkey_npass2); # Output javascript to deal with passwords # Output DES javascript + $r->print(""); { my $include = $r->dir_config('lonIncludes'); my $jsh=Apache::File->new($include."/londes.js"); $r->print(<$jsh>); } + my $bodytag=&Apache::loncommon::bodytag('Change Password','', + 'onLoad="init();"'); $r->print(< + +$bodytag -

Preferences for $user

-

$user is a member of domain $domain

$errormessage -

-Change password for $user -

+