loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.60, 2002/08/26 14:32:29
+version 1.61, 2002/08/27 16:49:20
  Line 932  sub get_related_words {
  ##              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
  sub languageids {
      return sort(keys(%language));