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__ |