loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.214, 2005/07/14 02:40:10	version 1.218, 2005/08/29 19:28:43
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;
Line 668 sub analyze {	Line 671 sub analyze {
}	}
}	}
if (scalar(keys(%allparts)) == 0 ) {	if (scalar(keys(%allparts)) == 0 ) {
$request->print('<p>'.&mt('Found no analyzable respones in this problem, currently only Numerical, Formula and String response styles are supported.').'</p>');	$request->print('<p>'.&mt('Found no analyzable responses in this problem, currently only Numerical, Formula and String response styles are supported.').'</p>');
}	}
&Apache::lonhtmlcommon::Close_PrgWin($request,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($request,\%prog_state);
&analyze_footer($request);	&analyze_footer($request);