version 1.247, 2006/05/15 19:29:17
|
version 1.248, 2006/05/16 21:21:32
|
Line 161 sub proctor_checked_in {
|
Line 161 sub proctor_checked_in {
|
my ($slot_name,$slot,$type)=@_; |
my ($slot_name,$slot,$type)=@_; |
my @possible_proctors=split(",",$slot->{'proctor'}); |
my @possible_proctors=split(",",$slot->{'proctor'}); |
|
|
|
return 1 if (!@possible_proctors); |
|
|
my $key; |
my $key; |
if ($type eq 'Task') { |
if ($type eq 'Task') { |
my $version=$Apache::lonhomework::history{'resource.0.version'}; |
my $version=$Apache::lonhomework::history{'resource.0.version'}; |