loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.248, 2006/05/16 21:21:32	version 1.249, 2006/06/08 22:33:57
Line 170 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;
}	}