loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/chemresponse.pm between versions 1.83 and 1.85

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.83, 2008/12/11 14:52:30	version 1.85, 2008/12/22 15:05:49
Line 245 sub start_organicresponse {	Line 245 sub start_organicresponse {
$result .='</span><br /><span class="LC_nobreak">';	$result .='</span><br /><span class="LC_nobreak">';
$result .=&Apache::edit::text_arg('Correct Answer:','answer',	$result .=&Apache::edit::text_arg('Correct Answer:','answer',
$token,40);	$token,40);
$result .='</spann><br /><span class="LC_nobreak">';	$result .='</span><br /><span class="LC_nobreak">';
$result .=&Apache::edit::text_arg('JME string of the answer (automatically updated when using the Draw Molecule button):',	$result .=&Apache::edit::text_arg('JME string of the answer (automatically updated when using the Draw Molecule button):',
'jmeanswer',$token);	'jmeanswer',$token);
my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack,	my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack,
Line 338 sub end_organicresponse {	Line 338 sub end_organicresponse {
"$partid.$id"); # part.response	"$partid.$id"); # part.response
if ($target eq 'analyze') {	if ($target eq 'analyze') {
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse';	$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse';
	push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id");
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}
}	}
Line 580 sub end_reactionresponse {	Line 581 sub end_reactionresponse {
&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id");	&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id");
if ($target eq 'analyze') {	if ($target eq 'analyze') {
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse';	$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse';
	push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id");
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}
}	}

Removed from v.1.83
changed lines
	Added in v.1.85