![[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.52, 2005/05/25 14:33:00 | version 1.53, 2005/05/25 21:45:07 |
|---|---|
| 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('/adm/rat/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; |
| } | } |