--- loncom/lonnet/perl/lonnet.pm 2005/03/22 16:49:25 1.615 +++ loncom/lonnet/perl/lonnet.pm 2005/03/28 17:54:06 1.616 @@ -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.616 2005/03/28 17:54:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4713,7 +4713,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