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.69, 2002/09/17 15:21:51
  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 {
- Line 993  sub messagewrapper {
+ Line 1013  sub messagewrapper {
  # ------------------------------------------------------------- Aboutme Wrapper
  sub aboutmewrapper {
-     my ($link,$un,$do)=@_;
+     my ($link,$username,$domain)=@_;
-     return "<a href='/adm/$do/$un/aboutme'>$link</a>";
+     return "<a href='/adm/$domain/$username/aboutme'>$link</a>";
  }
  # ------------------------------------------------------------ Syllabus Wrapper