loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.616, 2005/03/28 17:54:06
+version 1.617, 2005/03/28 21:49:31
  Line 931  sub userenvironment {
      return %returnhash;
  }
+ # ---------------------------------------------------------- Get a studentphoto
+ sub studentphoto {
+     my ($udom,$unam,$ext) = @_;
+     my $home=&Apache::lonnet::homeserver($unam,$udom);
+     my $ret=&Apache::lonnet::reply("studentphoto:$udom:$unam:$ext",$home);
+     my $url="/uploaded/$udom/$unam/internal/studentphoto.".$ext;
+     if ($ret ne 'ok') {
+ 	return '/adm/lonKaputt/lonlogo_broken.gif';
+     }
+     my $tokenurl=&Apache::lonnet::tokenwrapper($url);
+     return $tokenurl;
+ }
  # -------------------------------------------------------------------- New chat
  sub chatsend {