version 1.67, 2002/09/13 20:46:09
|
version 1.68, 2002/09/14 21:01:38
|
Line 981 sub nickname {
|
Line 981 sub nickname {
|
my ($uname,$udom)=@_; |
my ($uname,$udom)=@_; |
my %names=&Apache::lonnet::get('environment', |
my %names=&Apache::lonnet::get('environment', |
['nickname','firstname','middlename','lastname','generation'],$udom,$uname); |
['nickname','firstname','middlename','lastname','generation'],$udom,$uname); |
my $name=&Apache::lonnet::unescape($names{'nickname'}); |
my $name=$names{'nickname'}; |
if ($name) { |
if ($name) { |
$name='"'.$name.'"'; |
$name='"'.$name.'"'; |
} else { |
} else { |
Line 1000 sub screenname {
|
Line 1000 sub screenname {
|
my ($uname,$udom)=@_; |
my ($uname,$udom)=@_; |
my %names= |
my %names= |
&Apache::lonnet::get('environment',['screenname'],$udom,$uname); |
&Apache::lonnet::get('environment',['screenname'],$udom,$uname); |
return &Apache::lonnet::unescape($names{'screenname'}); |
return $names{'screenname'}; |
} |
} |
|
|
# ------------------------------------------------------------- Message Wrapper |
# ------------------------------------------------------------- Message Wrapper |