|
version 1.615, 2005/03/22 16:49:25
|
version 1.616, 2005/03/28 17:54:06
|
|
Line 4713 sub get_slot {
|
Line 4713 sub get_slot {
|
| &Apache::lonhomework::showhash(%slotinfo); |
&Apache::lonhomework::showhash(%slotinfo); |
| my ($tmp)=keys(%slotinfo); |
my ($tmp)=keys(%slotinfo); |
| if ($tmp=~/^error:/) { return (); } |
if ($tmp=~/^error:/) { return (); } |
| return %{$slotinfo{$which}}; |
if (ref($slotinfo{$which}) eq 'HASH') { |
| |
return %{$slotinfo{$which}}; |
| |
} |
| |
return $slotinfo{$which}; |
| } |
} |
| # ------------------------------------------------- Update symbolic store links |
# ------------------------------------------------- Update symbolic store links |
| |
|
![[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