loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.247, 2006/05/15 19:29:17	version 1.249, 2006/06/08 22:33:57
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'};
Line 168 sub proctor_checked_in {	Line 170 sub proctor_checked_in {
} elsif ($type eq 'problem') {	} elsif ($type eq 'problem') {
$key ='resource.0.checkedin';	$key ='resource.0.checkedin';
}	}
	# backward compatability, used to be username@domain,
	# now is username:domain
	my $who = $Apache::lonhomework::history{$key};
	if ($who !~ /:/) {
	$who =~ tr/@/:/;
	}
foreach my $possible (@possible_proctors) {	foreach my $possible (@possible_proctors) {
if ($Apache::lonhomework::history{$key} eq $possible	if ($who eq $possible
&& $Apache::lonhomework::history{$key.'.slot'} eq $slot_name) {	&& $Apache::lonhomework::history{$key.'.slot'} eq $slot_name) {
return 1;	return 1;
}	}