loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.90, 2011/11/14 03:08:01	version 1.91, 2013/01/15 18:09:43
Line 165 CHEMPAGE	Line 165 CHEMPAGE
if (defined($shown_text)) { $display=&mt($shown_text); }	if (defined($shown_text)) { $display=&mt($shown_text); }
my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};	my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
my $function =	my $function =
'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name();	'LONCAPA_draw_molecule_'.&get_uniq_name();
my $result=<<CHEMINPUT;	my $result=<<CHEMINPUT;
<script type="text/javascript">	<script type="text/javascript">
function $function() {	function $function() {
Line 644 sub end_chem {	Line 644 sub end_chem {
return $result;	return $result;
}	}

	my $uniq=0;
	sub get_uniq_name {
	$uniq++;
	return 'uniquename'.$uniq;
	}

1;	1;
__END__	__END__