loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.74, 2007/10/08 09:22:50	version 1.77, 2008/02/06 16:32:30
Line 334 sub end_organicresponse {	Line 334 sub end_organicresponse {

if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::increment_counter(&Apache::response::repetition(), $partid);	&Apache::lonxml::increment_counter(&Apache::response::repetition(),
	"$partid.$id"); # part.response
if ($target eq 'analyze') {	if ($target eq 'analyze') {
	$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse';
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}
}	}
Line 563 sub end_reactionresponse {	Line 565 sub end_reactionresponse {

if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::increment_counter(&Apache::response::repetition(), $partid);	&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id");
	if ($target eq 'analyze') {
	$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse';
	&Apache::lonhomework::set_bubble_lines();
	}
}	}
&Apache::response::end_response();	&Apache::response::end_response();
return $result;	return $result;