|
version 1.707, 2006/02/07 16:21:05
|
version 1.708, 2006/02/08 23:47:00
|
|
Line 948 sub studentphoto {
|
Line 948 sub studentphoto {
|
| my ($udom,$unam,$ext) = @_; |
my ($udom,$unam,$ext) = @_; |
| my $home=&Apache::lonnet::homeserver($unam,$udom); |
my $home=&Apache::lonnet::homeserver($unam,$udom); |
| if (defined($env{'request.course.id'})) { |
if (defined($env{'request.course.id'})) { |
| if ($env{'course.'.$env{'request.course.id'}.'.internal.showphotos'}) { |
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) { |
| if ($udom eq $env{'course.'.$env{'request.course.id'}.'.domain'}) { |
if ($udom eq $env{'course.'.$env{'request.course.id'}.'.domain'}) { |
| return(&retrievestudentphoto($udom,$unam,$ext)); |
return(&retrievestudentphoto($udom,$unam,$ext)); |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl