Diff for /loncom/interface/loncommon.pm between versions 1.64 and 1.67

version 1.64, 2002/09/05 15:03:33 version 1.67, 2002/09/13 20:46:09
Line 974  sub plainname { Line 974  sub plainname {
     return $name;      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='"'.$name.'"'; 
       } else {
          $name=$names{'firstname'}.' '.$names{'middlename'}.' '.
        $names{'lastname'}.' '.$names{'generation'};
          $name=~s/\s+$//;
          $name=~s/\s+/ /g;
       }
       return $name;
   }
   
   
 # ------------------------------------------------------------------ Screenname  # ------------------------------------------------------------------ Screenname
   
 sub screenname {  sub screenname {
     my ($uname,$udom)=@_;      my ($uname,$udom)=@_;
     my %names=      my %names=
  &Apache::lonnet::get('environment',['screenname'],$udom,$uname);   &Apache::lonnet::get('environment',['screenname'],$udom,$uname);
     return $names{'screenname'};      return &Apache::lonnet::unescape($names{'screenname'});
 }  }
   
 # ------------------------------------------------------------- Message Wrapper  # ------------------------------------------------------------- Message Wrapper
Line 1781  will result in $ENV{'form.uname'} and $E Line 1801  will result in $ENV{'form.uname'} and $E
   
 returns cache-controlling header code  returns cache-controlling header code
   
 =item nocache()   =item no_cache($r) 
   
 specifies header code to not have cache  specifies header code to not have cache
   

Removed from v.1.64  
changed lines
  Added in v.1.67


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