--- loncom/lonnet/perl/lonnet.pm	2005/03/18 19:28:20	1.613
+++ 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.613 2005/03/18 19:28:20 albertel Exp $
+# $Id: lonnet.pm,v 1.616 2005/03/28 17:54:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4702,6 +4702,22 @@ sub gettitle {
     return $title;
 }
 
+sub get_slot {
+    my ($which,$cnum,$cdom)=@_;
+    if (!$cnum || !$cdom) {
+	(undef,my $courseid)=&Apache::lonxml::whichuser();
+	$cdom=$ENV{'course.'.$courseid.'.domain'};
+	$cnum=$ENV{'course.'.$courseid.'.num'};
+    }
+    my %slotinfo=&get('slots',[$which],$cdom,$cnum);
+    &Apache::lonhomework::showhash(%slotinfo);
+    my ($tmp)=keys(%slotinfo);
+    if ($tmp=~/^error:/) { return (); }
+    if (ref($slotinfo{$which}) eq 'HASH') {
+	return %{$slotinfo{$which}};
+    }
+    return $slotinfo{$which};
+}
 # ------------------------------------------------- Update symbolic store links
 
 sub symblist {