--- loncom/homework/lonhomework.pm 2005/04/29 21:22:33 1.205 +++ loncom/homework/lonhomework.pm 2005/05/03 00:05:41 1.206 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.205 2005/04/29 21:22:33 albertel Exp $ +# $Id: lonhomework.pm,v 1.206 2005/05/03 00:05:41 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -245,7 +245,7 @@ sub check_task_access { # return ($status,$datemsg); # } my $slotstatus='NOT_IN_A_SLOT'; - my $returned_slot; + my ($returned_slot,$slot_name); foreach my $slot (@slots) { &Apache::lonxml::debug("getting $slot"); my %slot=&Apache::lonnet::get_slot($slot); @@ -256,6 +256,7 @@ sub check_task_access { &Apache::lonxml::debug("$slot is good"); $slotstatus='NEEDS_CHECKIN'; $returned_slot=\%slot; + $slot_name=$slot; last; } } @@ -264,7 +265,7 @@ sub check_task_access { &Apache::lonxml::debug("protoctor checked in"); $slotstatus='CAN_ANSWER'; } - return ($slotstatus,$datemsg,$returned_slot); + return ($slotstatus,$datemsg,$slot_name,$returned_slot); } # JB, 9/24/2002: Any changes in this function may require a change