--- loncom/lonnet/perl/lonnet.pm	2005/03/22 16:49:25	1.615
+++ loncom/lonnet/perl/lonnet.pm	2005/03/28 21:49:31	1.617
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.615 2005/03/22 16:49:25 albertel Exp $
+# $Id: lonnet.pm,v 1.617 2005/03/28 21:49:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -931,6 +931,19 @@ 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 {
@@ -4713,7 +4726,10 @@ sub get_slot {
     &Apache::lonhomework::showhash(%slotinfo);
     my ($tmp)=keys(%slotinfo);
     if ($tmp=~/^error:/) { return (); }
-    return %{$slotinfo{$which}};
+    if (ref($slotinfo{$which}) eq 'HASH') {
+	return %{$slotinfo{$which}};
+    }
+    return $slotinfo{$which};
 }
 # ------------------------------------------------- Update symbolic store links