version 1.240, 2006/04/13 19:01:40
|
version 1.243, 2006/05/09 19:03:02
|
Line 234 sub check_slot_access {
|
Line 234 sub check_slot_access {
|
my ($status,$datemsg)=&check_access($id); |
my ($status,$datemsg)=&check_access($id); |
|
|
my $useslots = &Apache::lonnet::EXT("resource.$id.useslots"); |
my $useslots = &Apache::lonnet::EXT("resource.$id.useslots"); |
if ($useslots ne 'resource') { |
if ($useslots ne 'resource' && $useslots ne 'sequence') { |
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|
Line 266 sub check_slot_access {
|
Line 266 sub check_slot_access {
|
my $slotstatus='NOT_IN_A_SLOT'; |
my $slotstatus='NOT_IN_A_SLOT'; |
my ($returned_slot,$slot_name); |
my ($returned_slot,$slot_name); |
foreach my $slot (@slots) { |
foreach my $slot (@slots) { |
|
$slot =~ s/(^\s*|\s*$)//g; |
&Apache::lonxml::debug("getting $slot"); |
&Apache::lonxml::debug("getting $slot"); |
my %slot=&Apache::lonnet::get_slot($slot); |
my %slot=&Apache::lonnet::get_slot($slot); |
&Apache::lonhomework::showhash(%slot); |
&Apache::lonhomework::showhash(%slot); |
Line 303 sub check_slot_access {
|
Line 304 sub check_slot_access {
|
|
|
&Apache::lonxml::debug(" slot is $slotstatus checkedin ($checkedin) got_grade ($got_grade) is_correct ($is_correct)"); |
&Apache::lonxml::debug(" slot is $slotstatus checkedin ($checkedin) got_grade ($got_grade) is_correct ($is_correct)"); |
|
|
# has a current checked in recrd, but hasn't got a grade, must be awaiting |
# no slot is currently open, and has been checked in for this version |
# a grade |
# but hasn't got a grade, therefore must be awaiting a grade |
if ($checkedin |
if (!defined($slot_name) |
|
&& $checkedin |
&& !$got_grade) { |
&& !$got_grade) { |
return ('WAITING_FOR_GRADE'); |
return ('WAITING_FOR_GRADE'); |
} |
} |