loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2002/03/30 23:27:00	version 1.8, 2002/04/30 14:03:52
Line 137 sub verify_and_change_screenname {	Line 137 sub verify_and_change_screenname {
$newscreen=~s/\W//g;	$newscreen=~s/\W//g;
my $message='';	my $message='';
if ($newscreen) {	if ($newscreen) {
my %tmp;	&Apache::lonnet::put('environment',{'screenname' => $newscreen});
$tmp{'screenname'}=$newscreen;	&Apache::lonnet::appenv('environment.screenname' => $newscreen);
&Apache::lonnet::put('environment',\%tmp);
$message='Set new screenname to '.$newscreen;	$message='Set new screenname to '.$newscreen;
} else {	} else {
&Apache::lonnet::del('environment',['screenname']);	&Apache::lonnet::del('environment',['screenname']);
	&Apache::lonnet::delenv('environment\.screenname');
$message='Reset screenname';	$message='Reset screenname';
}	}
$r->print(<<ENDVCSCREEN);	$r->print(<<ENDVCSCREEN);
Line 365 ENDTEXT	Line 365 ENDTEXT
# error error: run in circles, scream and shout	# error error: run in circles, scream and shout
$r->print(<<ENDERROR);	$r->print(<<ENDERROR);
<h2><font color="#ff0000">Password for $user was not changed</font></h2>	<h2><font color="#ff0000">Password for $user was not changed</font></h2>
There was an internal error when attempting to change your password.	Please make sure your old password was entered correctly.
Please contact your instructor or the domain coordinator.
ENDERROR	ENDERROR
}	}
return;	return;