loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.72, 2007/04/18 00:19:37	version 1.73, 2007/04/18 00:48:06
Line 327 sub end_organicresponse {	Line 327 sub end_organicresponse {
}	}
$result.=&Apache::response::answer_footer('organicresponse');	$result.=&Apache::response::answer_footer('organicresponse');
}	}
	if ($target eq 'web') {
	&Apache::response::setup_prior_tries_hash(\&format_prior_answer_organic,
	['molecule'])
	}

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 336 sub end_organicresponse {	Line 340 sub end_organicresponse {
return $result;	return $result;
}	}

	sub format_prior_answer_organic {
	my ($mode,$answer,$other_data) = @_;
	my $result=&mt('Smile representation: "[_1]"','<tt>'.$answer.'</tt>');
	my $jme=$other_data->[0];
	$result.=&jme_img($jme,$answer,400);
	return $result;
	}

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