|
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'); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework