version 1.60, 2002/08/26 14:32:29
|
version 1.61, 2002/08/27 16:49:20
|
Line 932 sub get_related_words {
|
Line 932 sub get_related_words {
|
## End Thesaurus Functions ## |
## End Thesaurus Functions ## |
############################################################### |
############################################################### |
|
|
|
# -------------------------------------------------------------- Plaintext name |
|
|
|
sub plainname { |
|
my ($uname,$udom)=@_; |
|
my %names=&Apache::lonnet::get('environment', |
|
['firstname','middlename','lastname','generation'], |
|
$udom,$uname); |
|
return $names{'firstname'}.' '.$names{'middlename'}.' '. |
|
$names{'lastname'}.' '.$names{'generation'}; |
|
} |
|
|
|
# ------------------------------------------------------------------ Screenname |
|
|
|
sub screenname { |
|
my ($uname,$udom)=@_; |
|
my %names= |
|
&Apache::lonnet::get('environment',['screenname'],$udom,$uname); |
|
return $names{'screenname'}; |
|
} |
|
|
# ---------------------------------------------------------------- Language IDs |
# ---------------------------------------------------------------- Language IDs |
sub languageids { |
sub languageids { |
return sort(keys(%language)); |
return sort(keys(%language)); |