|
version 1.67, 2002/09/13 20:46:09
|
version 1.69, 2002/09/17 15:21:51
|
|
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 |
|
Line 1013 sub messagewrapper {
|
Line 1013 sub messagewrapper {
|
| # ------------------------------------------------------------- Aboutme Wrapper |
# ------------------------------------------------------------- Aboutme Wrapper |
| |
|
| sub aboutmewrapper { |
sub aboutmewrapper { |
| my ($link,$un,$do)=@_; |
my ($link,$username,$domain)=@_; |
| return "<a href='/adm/$do/$un/aboutme'>$link</a>"; |
return "<a href='/adm/$domain/$username/aboutme'>$link</a>"; |
| } |
} |
| |
|
| # ------------------------------------------------------------ Syllabus Wrapper |
# ------------------------------------------------------------ Syllabus Wrapper |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface