--- loncom/interface/lonpreferences.pm	2002/10/16 19:36:25	1.16
+++ 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.16 2002/10/16 19:36:25 albertel 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.='<br />';
-    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,