[BACK]Return to loncoursedata.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursedata.pm between versions 1.70 and 1.71

version 1.70, 2003/04/21 15:12:37 version 1.71, 2003/05/19 15:44:15
Line 209  sub LoadDiscussion { Line 209  sub LoadDiscussion {
     return \%Discuss;      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  =pod
   
 =item &ProcessFullName()  =item &ProcessFullName()
Line 219  is Lastname generation, firstname middle Line 252  is Lastname generation, firstname middle
   
 =cut  =cut
   
   ################################################
   ################################################
 sub ProcessFullName {  sub ProcessFullName {
     my ($lastname, $generation, $firstname, $middlename)=@_;      my ($lastname, $generation, $firstname, $middlename)=@_;
     my $Str = '';      my $Str = '';
Removed from v.1.70  
changed lines
  Added in v.1.71

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>