loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.180, 2004/09/27 18:36:53	version 1.182, 2004/10/18 18:08:54
Line 292 sub check_access {	Line 292 sub check_access {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
}	}
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {
my $interval=&Apache::lonnet::EXT("resource.$id.interval");	my $interval=&Apache::lonnet::EXT("resource.$id.interval");
&Apache::lonxml::debug("looking for interval $interval");	&Apache::lonxml::debug("looking for interval $interval");
if ($interval) {	if ($interval) {
Line 489 sub analyze {	Line 489 sub analyze {
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) {	for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) {
&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state,
&mt('last problem'));	&mt('last problem'));
	if (&Apache::loncommon::connection_aborted($request)) { return; }
my $subresult=&Apache::lonnet::ssi($request->uri,	my $subresult=&Apache::lonnet::ssi($request->uri,
('grade_target' => 'analyze'),	('grade_target' => 'analyze'),
('rndseed' => $i+$rndseed));	('rndseed' => $i+$rndseed));