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); |