![]() ![]() | ![]() |
version 1.51, 2005/04/22 14:10:47 | version 1.54, 2005/05/26 20:49:23 |
---|---|
Line 121 $molecule | Line 121 $molecule |
CHEMPAGE | CHEMPAGE |
$body=&HTML::Entities::encode($body,'<>&"'); | $body=&HTML::Entities::encode($body,'<>&"'); |
$body=~s/\n/ /g; | $body=~s/\n/ /g; |
my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); | |
my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); | my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); |
my $result=<<CHEMINPUT; | my $result=<<CHEMINPUT; |
<input type="button" value="Draw Molecule" onclick="javascript:editor=window.open('/rat/adm/empty.html','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="Draw Molecule" 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()" /> |
CHEMINPUT | CHEMINPUT |
return $result; | return $result; |
} | } |