loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.50, 2005/04/07 06:56:21	version 1.51, 2005/04/22 14:10:47
Line 364 sub start_reactionresponse {	Line 364 sub start_reactionresponse {
}	}
if ( &Apache::response::show_answer() ) {	if ( &Apache::response::show_answer() ) {
my $ans=&Apache::lonxml::get_param('answer',$parstack,$safeeval);	my $ans=&Apache::lonxml::get_param('answer',$parstack,$safeeval);
$ans=~s/(\\\|\')/\\$1/g;	if (!$Apache::lonxml::default_homework_loaded) {
$Apache::inputtags::answertxt{$id}=&Apache::run::run("return &chemparse('$ans');",$safeeval);	&Apache::lonxml::default_homework_load($safeeval);
	}
	@Apache::scripttag::parser_env = @_;
	$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);