--- loncom/interface/loncoursedata.pm	2003/04/21 15:12:37	1.70
+++ loncom/interface/loncoursedata.pm	2003/05/19 15:44:15	1.71
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.70 2003/04/21 15:12:37 matthew Exp $
+# $Id: loncoursedata.pm,v 1.71 2003/05/19 15:44:15 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -209,6 +209,39 @@ sub LoadDiscussion {
     return \%Discuss;
 }
 
+################################################
+################################################
+
+=pod
+
+=item &GetUserName(username,userdomain)
+
+Returns a hash with the following entries:
+   'firstname', 'middlename', 'lastname', 'generation', and 'fullname'
+
+   'fullname' is the result of &Apache::loncoursedata::ProcessFullName.
+
+=cut
+
+################################################
+################################################
+sub GetUserName {
+    my ($username,$userdomain) = @_;
+    $username = $ENV{'user.name'} if (! defined($username));
+    $userdomain = $ENV{'user.domain'} if (! defined($username));
+    my %userenv = &Apache::lonnet::get('environment',
+                           ['firstname','middlename','lastname','generation'],
+                                       $userdomain,$username);
+    $userenv{'fullname'} = &ProcessFullName($userenv{'lastname'},
+                                            $userenv{'generation'},
+                                            $userenv{'firstname'},
+                                            $userenv{'middlename'});
+    return %userenv;
+}
+
+################################################
+################################################
+
 =pod
 
 =item &ProcessFullName()
@@ -219,6 +252,8 @@ is Lastname generation, firstname middle
 
 =cut
 
+################################################
+################################################
 sub ProcessFullName {
     my ($lastname, $generation, $firstname, $middlename)=@_;
     my $Str = '';