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.67, 2002/09/13 20:46: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=&Apache::lonnet::unescape($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 {
      my ($uname,$udom)=@_;
      my %names=
   &Apache::lonnet::get('environment',['screenname'],$udom,$uname);
-     return $names{'screenname'};
+     return &Apache::lonnet::unescape($names{'screenname'});
  }
  # ------------------------------------------------------------- Message Wrapper