![[BACK]](/icons/back.gif){kind=icon}
Return to chemresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to chemresponse.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.31, 2004/03/12 18:41:43 | version 1.32, 2004/03/31 05:23:59 |
|---|---|
| Line 92 $molecule | Line 92 $molecule |
| </body> | </body> |
| </html> | </html> |
| CHEMPAGE | CHEMPAGE |
| $body=&HTML::Entities::encode($body); | $body=&HTML::Entities::encode($body,'<>&"'); |
| $body=~s/\n/ /g; | $body=~s/\n/ /g; |
| my $result=<<CHEMINPUT; | my $result=<<CHEMINPUT; |
| <input type="button" value="Draw Molecule" onClick="javascript:editor=window.open('','','width=500,height=500,scrollbars=no,resizable=yes');editor.document.open('text/html','replace');editor.document.writeln('$body')" /> | <input type="button" value="Draw Molecule" onClick="javascript:editor=window.open('','','width=500,height=500,scrollbars=no,resizable=yes');editor.document.open('text/html','replace');editor.document.writeln('$body')" /> |