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

Diff for /loncom/interface/loncommon.pm between versions 1.288 and 1.289

version 1.288, 2005/11/15 15:14:17 version 1.289, 2005/11/15 15:40:58
Line 2775  sub bodytag { Line 2775  sub bodytag {
 h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }  h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
 a:focus { color: red; background: yellow }   a:focus { color: red; background: yellow } 
 table.thinborder { border-collapse: collapse; }  table.thinborder { border-collapse: collapse; }
 table.thinborder tr th { border-style: solid; border-width: 1px}  table.thinborder tr th, table.thinborder tr td { border-style: solid; border-width: 1px}
 table.thinborder tr td { border-style: solid; border-width: 1px}  form, .inline { display: inline; }
 .center { text-align: center; }  .center { text-align: center; }
 </style>  </style>
 <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"  <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
Line 3211  sub get_course_users { Line 3211  sub get_course_users {
   
 sub get_user_info {  sub get_user_info {
     my ($udom,$uname,$idx,$userdata) = @_;      my ($udom,$uname,$idx,$userdata) = @_;
     my %userinfo = &Apache::lonnet::get('environment',['firstname','middlename','lastname','generation','id'],$udom,$uname);      $$userdata{$uname.':'.$udom}[$$idx{fullname}] = 
     if (grep/^(con_lost|error|no_such_host)/,keys(%userinfo)) {   &plainname($uname,$udom,'lastname');
         &Apache::lonnet::logthis('get_user_info error for '.$uname.':'.$udom);      $$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname
         $$userdata{$uname.':'.$udom}[$$idx{udom}] = $udom;      $$userdata{$uname.':'.$udom}[$$idx{uname}] = $udom
         $$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname;   
     } else {  
         $userinfo{fullname} = &Apache::lonnet::format_name(@userinfo{qw/firstname middlename lastname generation/},'lastname');  
         $userinfo{uname} = $uname;  
         $userinfo{udom} = $udom;  
         foreach my $item (qw/uname udom id fullname/) {  
             $$userdata{$uname.':'.$udom}[$$idx{$item}] = $userinfo{$item};  
         }  
     }  
     return;      return;
 }  }
   
Removed from v.1.288  
changed lines
  Added in v.1.289

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