loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.71, 2006/12/04 21:23:01	version 1.72, 2007/04/18 00:19:37
Line 542 sub end_reactionresponse {	Line 542 sub end_reactionresponse {
}	}
$result.=&Apache::response::answer_footer('reactionresponse');	$result.=&Apache::response::answer_footer('reactionresponse');
}	}
	if ($target eq 'web') {
	&Apache::response::setup_prior_tries_hash(\&format_prior_response_reaction);
	}

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') {
Line 551 sub end_reactionresponse {	Line 554 sub end_reactionresponse {
return $result;	return $result;
}	}

	sub format_prior_response_reaction {
	my ($mode,$answer) =@_;
	return '<span class="LC_prior_reaction">'.
	&HTML::Entities::encode($answer,'"<>&').'</span>';
	}

sub start_chem {	sub start_chem {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
my $result = '';	my $result = '';