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.7, 2002/04/03 18:47:39
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);