loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.216, 2005/08/16 16:31:14	version 1.218, 2005/08/29 19:28:43
Line 94 sub get_target {	Line 94 sub get_target {
if ( defined($env{'form.submitted'}) &&	if ( defined($env{'form.submitted'}) &&
( !defined($env{'form.resetdata'})) &&	( !defined($env{'form.resetdata'})) &&
( !defined($env{'form.newrandomization'}))) {	( !defined($env{'form.newrandomization'}))) {
return ('grade', 'web','answer');	return ('grade', 'web');
} else {	} else {
return ('web','answer');	return ('web');
}	}
} elsif ($env{'request.state'} eq "construct") {	} elsif ($env{'request.state'} eq "construct") {
if ( defined($env{'form.grade_target'}) ) {	if ( defined($env{'form.grade_target'}) ) {
Line 183 sub proctor_checked_in {	Line 183 sub proctor_checked_in {
$Apache::lonxml::browse='';	$Apache::lonxml::browse='';
sub check_ip_acc {	sub check_ip_acc {
my ($acc)=@_;	my ($acc)=@_;
if (!defined($acc) \|\| $acc =~ /^\s*$/) { return 1; }	&Apache::lonxml::debug("acc is $acc");
	if (!defined($acc) \|\| $acc =~ /^\s$/ \|\| $acc =~/^\sno\s*$/i) {
	return 1;
	}
my $allowed=0;	my $allowed=0;
my $ip=$ENV{'REMOTE_ADDR'};	my $ip=$ENV{'REMOTE_ADDR'};
my $name;	my $name;