version 1.61, 2002/08/27 16:49:20
|
version 1.62, 2002/08/28 14:11:27
|
Line 939 sub plainname {
|
Line 939 sub plainname {
|
my %names=&Apache::lonnet::get('environment', |
my %names=&Apache::lonnet::get('environment', |
['firstname','middlename','lastname','generation'], |
['firstname','middlename','lastname','generation'], |
$udom,$uname); |
$udom,$uname); |
return $names{'firstname'}.' '.$names{'middlename'}.' '. |
my $name=$names{'firstname'}.' '.$names{'middlename'}.' '. |
$names{'lastname'}.' '.$names{'generation'}; |
$names{'lastname'}.' '.$names{'generation'}; |
|
$name=~s/\s+$//; |
|
$name=~s/\s+/ /g; |
|
return $name; |
} |
} |
|
|
# ------------------------------------------------------------------ Screenname |
# ------------------------------------------------------------------ Screenname |
Line 952 sub screenname {
|
Line 955 sub screenname {
|
return $names{'screenname'}; |
return $names{'screenname'}; |
} |
} |
|
|
|
# ------------------------------------------------------------- Message Wrapper |
|
|
|
sub messagewrapper { |
|
my ($link,$un,$do)=@_; |
|
return |
|
"<a href='/adm/email?compose=individual&recname=$un&recdom=$do'>$link</a>"; |
|
} |
|
# ------------------------------------------------------------- Aboutme Wrapper |
|
|
|
sub aboutmewrapper { |
|
my ($link,$un,$do)=@_; |
|
return "<a href='/adm/$do/$un/aboutme'>$link</a>"; |
|
} |
|
|
|
# ------------------------------------------------------------ Syllabus Wrapper |
|
|
|
|
|
sub syllabuswrapper { |
|
my ($link,$un,$do)=@_; |
|
return "<a href='/public/$do/$un/syllabus'>$link</a>"; |
|
} |
|
|
# ---------------------------------------------------------------- Language IDs |
# ---------------------------------------------------------------- Language IDs |
sub languageids { |
sub languageids { |
return sort(keys(%language)); |
return sort(keys(%language)); |