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

Diff for /loncom/interface/lonuserutils.pm between versions 1.43 and 1.46

version 1.43, 2008/01/05 15:19:32 version 1.46, 2008/01/06 05:32:43
Line 1307  sub print_userlist { Line 1307  sub print_userlist {
     }      }
     $r->rflush();      $r->rflush();
     if ($context eq 'course') {      if ($context eq 'course') {
         my $classlist = &Apache::loncoursedata::get_classlist();          if (($env{'form.showrole'} eq 'st') || ($env{'form.showrole'} eq 'Any')) { 
         %userlist = %{$classlist};              my $classlist = &Apache::loncoursedata::get_classlist();
               %userlist = %{$classlist};
           }
         if ($env{'form.showrole'} ne 'st') {          if ($env{'form.showrole'} ne 'st') {
             my $showroles;              my $showroles;
             if ($env{'form.showrole'} ne 'Any') {              if ($env{'form.showrole'} ne 'Any') {
Line 1788  sub make_keylist_array { Line 1790  sub make_keylist_array {
     $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();      $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();
     $index->{'role'} = &Apache::loncoursedata::CL_ROLE();      $index->{'role'} = &Apache::loncoursedata::CL_ROLE();
     $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();      $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();
       $index->{'photo'} = &Apache::loncoursedata::CL_PHOTO();
     foreach my $key (keys(%{$index})) {      foreach my $key (keys(%{$index})) {
         $keylist->[$index->{$key}] = $key;          $keylist->[$index->{$key}] = $key;
     }      }
Line 2339  END Line 2342  END
                         next;                          next;
                     }                      }
                 }                  }
                   if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
                       if (($displayphotos eq 'on') && ($role eq 'st')) {
                           $userlist->{$user}->[$index{'photo'}] =
                               &Apache::lonnet::retrievestudentphoto($udom,$uname,
                                                                   'gif','thumbnail');
                       }
                   }
             }              }
         }          }
         my %emails   = &Apache::loncommon::getemails($uname,$udom);          my %emails   = &Apache::loncommon::getemails($uname,$udom);
Line 2470  END Line 2480  END
                         $r->print('    <td>&nbsp;</td>  ');                          $r->print('    <td>&nbsp;</td>  ');
                     }                      }
                     if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {                      if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
                         if ($displayphotos eq 'on' && $sdata->[$index{'role'}] eq 'st') {                          if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
                             my $imgurl =                              $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($in{'domain'},$in{'username'},'jpg')."'".')"><img src="'.$in{'photo'}.'" border="1"></a></td>');
                         &Apache::lonnet::retrievestudentphoto($in{'domain'},$in{'username'},  
                                                           'gif','thumbnail');  
                             $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($in{'domain'},$in{'username'},'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');  
                         } else {                          } else {
                             $r->print('    <td>&nbsp;</td>  ');                              $r->print('    <td>&nbsp;</td>  ');
                         }                          }
Removed from v.1.43  
changed lines
  Added in v.1.46

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