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

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

version 1.67, 2002/09/13 20:46:09 version 1.70, 2002/10/18 13:49:49
Line 981  sub nickname { Line 981  sub nickname {
     my ($uname,$udom)=@_;      my ($uname,$udom)=@_;
     my %names=&Apache::lonnet::get('environment',      my %names=&Apache::lonnet::get('environment',
   ['nickname','firstname','middlename','lastname','generation'],$udom,$uname);    ['nickname','firstname','middlename','lastname','generation'],$udom,$uname);
     my $name=&Apache::lonnet::unescape($names{'nickname'});      my $name=$names{'nickname'};
     if ($name) {      if ($name) {
        $name='"'.$name.'"';          $name='"'.$name.'"'; 
     } else {      } else {
Line 1000  sub screenname { Line 1000  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 &Apache::lonnet::unescape($names{'screenname'});      return $names{'screenname'};
 }  }
   
 # ------------------------------------------------------------- Message Wrapper  # ------------------------------------------------------------- Message Wrapper
Line 1013  sub messagewrapper { Line 1013  sub messagewrapper {
 # ------------------------------------------------------------- Aboutme Wrapper  # ------------------------------------------------------------- Aboutme Wrapper
   
 sub aboutmewrapper {  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  # ------------------------------------------------------------ Syllabus Wrapper
Line 1222  sub maketime { Line 1222  sub maketime {
 }  }
   
   
   #########################################
   #
   # Retro-fixing of un-backward-compatible time format
   
   sub unsqltime {
       my $timestamp=shift;
       if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) {
          $timestamp=&maketime(
      'year'=>$1,'month'=>$2,'day'=>$3,
              'hours'=>$4,'minutes'=>$5,'seconds'=>$6);
       }
       return $timestamp;
   }
   
   #########################################
   
 sub findallcourses {  sub findallcourses {
     my %courses=();      my %courses=();
     my $now=time;      my $now=time;
Removed from v.1.67  
changed lines
  Added in v.1.70

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