version 1.56, 2005/05/26 21:26:25
|
version 1.59, 2005/06/27 14:27:25
|
Line 81 JMESECTION
|
Line 81 JMESECTION
|
} |
} |
|
|
if ($molecule) { $molecule='<param name="jme" value="'.$molecule.'" />'; } |
if ($molecule) { $molecule='<param name="jme" value="'.$molecule.'" />'; } |
|
my $insert_answer; |
|
if ($shown_text eq '') { |
|
$insert_answer= |
|
'<input type="button" name="submit" value="Insert Answer" onclick="javascript:submitSmiles();" />'; |
|
} |
|
|
my $body=<<CHEMPAGE; |
my $body=<<CHEMPAGE; |
<html> |
<html> |
<head> |
<head> |
Line 110 $molecule
|
Line 116 $molecule
|
</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> |
<form> |
<form> |
<input type="button" name="submit" value="Insert Answer" onclick = "submitSmiles();" /> |
$insert_answer |
<br /> |
<br /> |
<input type="button" value=" Close " onclick = "window.close()" /> |
<input type="button" value=" Close " onclick = "javascript:window.close()" /> |
|
|
<input type="button" value=" Help " onclick = "openHelpWindow()" /> |
<input type="button" value=" Help " onclick = "javascript:openHelpWindow()" /> |
</form> |
</form> |
</center> |
</center> |
</body> |
</body> |
Line 286 sub start_organicstructure {
|
Line 292 sub start_organicstructure {
|
'cgi.'.$id.'.WIDTH' => $width ); |
'cgi.'.$id.'.WIDTH' => $width ); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
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 $webheight=&Apache::lonxml::get_param('height', $parstack, $safeeval); |
|
if ($webheight) { $webheight = $webwidth; } |
if (!$texwidth) { $texwidth='90'; } |
if (!$texwidth) { $texwidth='90'; } |
|
$result = "%DYNAMICIMAGE:$webwidth:$webheight:$texwidth\n"; |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |
my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); |
my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); |
my $filename = $env{'user.name'}.'_'.$env{'user.domain'}. |
my $filename = $env{'user.name'}.'_'.$env{'user.domain'}. |