loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.291, 2005/04/29 21:22:33	version 1.294, 2005/06/13 20:20:33
Line 372 sub store_aggregates {	Line 372 sub store_aggregates {
}	}
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {	if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
$aggregate{$symb."\0".$part."\0users"} = 1;	$aggregate{$symb."\0".$part."\0users"} = 1;
	} else {
	my (undef,$last_reset) = &Apache::grades::get_last_resets($symb,$env{'request.course.id'},[$part]);
	if ($last_reset) {
	if (&Apache::grades::get_num_tries(\%Apache::lonhomework::history,$last_reset,$part) == 0) {
	$aggregate{$symb."\0".$part."\0users"} = 1;
	}
	}
}	}
$aggregate{$symb."\0".$part."\0attempts"} = 1;	$aggregate{$symb."\0".$part."\0attempts"} = 1;
}	}
if (%aggregate) {	if (keys (%aggregate) > 0) {
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
$cdomain,$cname);	$cdomain,$cname);

}	}
}	}

Line 745 sub end_problem {	Line 751 sub end_problem {
}	}
if ($target eq 'answer' && ($env{'request.state'} eq 'construct')	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
&& $env{'form.answer_output_mode'} ne 'tex') {	&& $env{'form.answer_output_mode'} ne 'tex') {
$result.='</html>'; # normally we get it from xmlend, but in CSTR	$result.=&Apache::lonxml::xmlend().'</html>';
	# normally we get it from above, but in CSTR
# we always show answer mode too.	# we always show answer mode too.
}	}
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {