version 1.60, 2005/06/30 18:56:35
|
version 1.62, 2005/07/05 10:06:34
|
Line 138 $molecule
|
Line 138 $molecule
|
<param name="options" value="$options" /> |
<param name="options" value="$options" /> |
</applet><br /> |
</applet><br /> |
<font face="arial,helvetica,sans-serif" size="-1"><a href="http://www.molinspiration.com/jme/index.html">JME Editor</a> courtesy of Peter Ertl, Novartis</font> |
<font face="arial,helvetica,sans-serif" size="-1"><a href="http://www.molinspiration.com/jme/index.html">JME Editor</a> courtesy of Peter Ertl, Novartis</font> |
|
<br /> |
$insert_answer |
$insert_answer |
<br /> |
<br /> |
<input type="button" value=" Close " onclick = "javascript:window.close()" /> |
<input type="button" value=" Close " onclick = "javascript:window.close()" /> |
Line 155 CHEMPAGE
|
Line 156 CHEMPAGE
|
my $display=&mt('Draw Molecule'); |
my $display=&mt('Draw Molecule'); |
if (defined($shown_text)) { $display=&mt($shown_text); } |
if (defined($shown_text)) { $display=&mt($shown_text); } |
my $result=<<CHEMINPUT; |
my $result=<<CHEMINPUT; |
<input type="button" value="$display" onclick="javascript:editor=window.open($nothing,'jmeedit','width=500,height=500,menubar=yes,scrollbars=no,resizable=yes');editor.$docopen;editor.document.write('$body');editor.document.close();editor.focus()" /> |
<input type="button" value="$display" onclick="javascript:editor=window.open($nothing,'jmeedit','width=500,height=500,menubar=no,scrollbars=no,resizable=yes');editor.$docopen;editor.document.write('$body');editor.document.close();editor.focus()" /> |
CHEMINPUT |
CHEMINPUT |
return $result; |
return $result; |
} |
} |
Line 316 sub start_organicstructure {
|
Line 317 sub start_organicstructure {
|
my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1); |
my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1); |
my $webwidth=&Apache::lonxml::get_param('width', $parstack, $safeeval); |
my $webwidth=&Apache::lonxml::get_param('width', $parstack, $safeeval); |
my $webheight=&Apache::lonxml::get_param('height', $parstack, $safeeval); |
my $webheight=&Apache::lonxml::get_param('height', $parstack, $safeeval); |
if ($webheight) { $webheight = $webwidth; } |
if (!$webheight) { $webheight = $webwidth; } |
if (!$texwidth) { $texwidth='90'; } |
if (!$texwidth) { $texwidth='90'; } |
$result = "%DYNAMICIMAGE:$webwidth:$webheight:$texwidth\n"; |
$result = "%DYNAMICIMAGE:$webwidth:$webheight:$texwidth\n"; |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |