loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.69, 2006/07/27 20:34:40	version 1.71, 2006/12/04 21:23:01
Line 245 sub start_organicresponse {	Line 245 sub start_organicresponse {
$result .='</nobr><br /><nobr>';	$result .='</nobr><br /><nobr>';
$result .=&Apache::edit::text_arg('Correct Answer:','answer',	$result .=&Apache::edit::text_arg('Correct Answer:','answer',
$token,40);	$token,40);
	$result .='</nobr><br /><nobr>';
$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 466 sub start_reactionresponse {	Line 467 sub start_reactionresponse {
&Apache::lonxml::default_homework_load($safeeval);	&Apache::lonxml::default_homework_load($safeeval);
}	}
@Apache::scripttag::parser_env = @_;	@Apache::scripttag::parser_env = @_;
$Apache::inputtags::answertxt{$id}=&Apache::run::run("return &chemparse(q\0$ans\0);",$safeeval);	$Apache::inputtags::answertxt{$id}=[&Apache::run::run("return &chemparse(q\0$ans\0);",$safeeval)];
}	}
} elsif ($target eq "edit") {	} elsif ($target eq "edit") {
$result .=&Apache::edit::tag_start($target,$token);	$result .=&Apache::edit::tag_start($target,$token);