--- loncom/interface/lonpreferences.pm	2002/03/30 17:59:34	1.5
+++ loncom/interface/lonpreferences.pm	2002/08/19 13:10:55	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.5 2002/03/30 17:59:34 www Exp $
+# $Id: lonpreferences.pm,v 1.9 2002/08/19 13:10:55 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -98,26 +98,64 @@ 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'};
     $r->print(<<ENDSCREEN);
 <html>
 <body bgcolor="#FFFFFF">
 <h1>Preferences for $user</h1>
 <h3>$user is a member of domain $domain</h3>
-$errormessage
 <p>
 Change anonymous discussion screen name for $user
 </p>
+<form name="server" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="verify_and_change_screenname" />
+New screenname:
+<input type="text" size="20" value="$screenname" name="screenname" />
+<input type="submit" value="Change" />
+</form>
 </body>
 </html>
 ENDSCREEN
 }
+
+sub verify_and_change_screenname {
+    my $r = shift;
+    my $user       = $ENV{'user.name'};
+    my $domain     = $ENV{'user.domain'};
+    my $newscreen  = $ENV{'form.screenname'};
+    $newscreen=~s/\W//g;
+    my $message='';
+    if ($newscreen) {
+        &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';
+    }
+    $r->print(<<ENDVCSCREEN);
+<html>
+<body bgcolor="#FFFFFF">
+<h1>Preferences for $user</h1>
+<h3>$user is a member of domain $domain</h3>
+<p>
+Change anonymous discussion screen name for $user
+</p>
+$message
+</body></html>
+ENDVCSCREEN
+}
+
 ######################################################
 #            password handler subroutines            #
 ######################################################
@@ -154,13 +192,14 @@ sub passwordchanger {
     $lkey_npass2= hex($lkey_npass2);
     # Output javascript to deal with passwords
     # Output DES javascript
+    $r->print("<html><head>");
     {
 	my $include = $r->dir_config('lonIncludes');
 	my $jsh=Apache::File->new($include."/londes.js");
 	$r->print(<$jsh>);
     }
     $r->print(<<ENDFORM);
-
+</head>
 <body bgcolor="#FFFFFF" onLoad="init();">
 
 <script language="JavaScript">
@@ -319,14 +358,13 @@ ENDERROR
     # Inform the user the password has (not?) been changed
     if ($result =~ /^ok$/) {
 	$r->print(<<"ENDTEXT");
-<h2>Password for $user was successfully changed</h2>
+<h2>The password for $user was successfully changed</h2>
 ENDTEXT
     } else {
 	# error error: run in circles, scream and shout
         $r->print(<<ENDERROR);
-<h2><font color="#ff0000">Password for $user was not changed</font></h2>
-There was an internal error when attempting to change your password.
-Please contact your instructor or the domain coordinator.
+<h2><font color="#ff0000">The password for $user was not changed</font></h2>
+Please make sure your old password was entered correctly.
 ENDERROR
     }
     return;
@@ -336,7 +374,6 @@ ENDERROR
 #            other handler subroutines               #
 ######################################################
 
-
 ################################################################
 #                          Main handler                        #
 ################################################################
@@ -349,13 +386,15 @@ sub handler {
     &Apache::loncommon::no_cache($r);
     $r->send_http_header;
     return OK if $r->header_only;
-    # Spit out the header
+    #
     if ($ENV{'form.action'} eq 'changepass') {
 	&passwordchanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {
 	&verify_and_change_password($r);
     } elsif ($ENV{'form.action'} eq 'changescreenname') {
         &screennamechanger($r);
+    } elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') {
+        &verify_and_change_screenname($r);
     } else {
 	$r->print(<<ENDHEADER);
 <html>
