[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 03 Dec 2002 19:57:26 -0000


matthew		Tue Dec  3 14:57:26 2002 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  Trivial changes to make it shut the hell up.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.16 loncom/interface/lonpreferences.pm:1.17
--- loncom/interface/lonpreferences.pm:1.16	Wed Oct 16 15:36:25 2002
+++ loncom/interface/lonpreferences.pm	Tue Dec  3 14:57:26 2002
@@ -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 @@
     }
 # 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 @@
     }
     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,