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.92, 2013/05/03 16:29:40
Line 120 CHEMJS	Line 120 CHEMJS
my $body=<<CHEMPAGE;	my $body=<<CHEMPAGE;
$js	$js
<center>	<center>
<form>	<form action="">
<table width="440"><tr>	<table width="440"><tr>
<td></td>	<td></td>
<td align="right">	<td align="right">
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__