loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.65, 2002/09/09 11:50:07
+version 1.66, 2002/09/13 19:32:09
  Line 974  sub plainname {
      return $name;
  }
+ # -------------------------------------------------------------------- Nickname
+ sub nickname {
+     my ($uname,$udom)=@_;
+     my %names=&Apache::lonnet::get('environment',
+   ['nickname','firstname','middlename','lastname','generation'],$udom,$uname);
+     my $name=$names{'nickname'};
+     if ($name) {
+        $name='&quot;'.$name.'&quot;';
+     } else {
+        $name=$names{'firstname'}.' '.$names{'middlename'}.' '.
+ 	     $names{'lastname'}.' '.$names{'generation'};
+        $name=~s/\s+$//;
+        $name=~s/\s+/ /g;
+     }
+     return $name;
+ }
  # ------------------------------------------------------------------ Screenname
  sub screenname {