--- loncom/interface/loncommon.pm	2002/08/26 14:32:29	1.60
+++ loncom/interface/loncommon.pm	2002/08/27 16:49:20	1.61
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.60 2002/08/26 14:32:29 matthew Exp $
+# $Id: loncommon.pm,v 1.61 2002/08/27 16:49:20 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -932,6 +932,26 @@ 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));