loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2002/10/16 19:36:25	version 1.17, 2002/12/03 19:57:26
Line 148 sub verify_and_change_screenname {	Line 148 sub verify_and_change_screenname {
}	}
# Nickname	# Nickname
$message.='<br />';	$message.='<br />';
my $newscreen = $ENV{'form.nickname'};	$newscreen = $ENV{'form.nickname'};
$newscreen=~s/[^ \w]//g;	$newscreen=~s/[^ \w]//g;
if ($newscreen) {	if ($newscreen) {
&Apache::lonnet::put('environment',{'nickname' => $newscreen});	&Apache::lonnet::put('environment',{'nickname' => $newscreen});
Line 394 ENDERROR	Line 394 ENDERROR
}	}
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);	my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
#	#
my $currentpass = &des_decrypt($ckey ,$currentpass);	$currentpass = &des_decrypt($ckey ,$currentpass);
my $newpass1 = &des_decrypt($n1key,$newpass1);	$newpass1 = &des_decrypt($n1key,$newpass1);
my $newpass2 = &des_decrypt($n2key,$newpass2);	$newpass2 = &des_decrypt($n2key,$newpass2);
#	#
if ($newpass1 ne $newpass2) {	if ($newpass1 ne $newpass2) {
&passwordchanger($r,	&passwordchanger($r,