version 1.15, 2003/10/16 18:30:46
|
version 1.18, 2003/10/17 22:26:38
|
Line 143 sub start_organicresponse {
|
Line 143 sub start_organicresponse {
|
$result .='</nobr><br />'; |
$result .='</nobr><br />'; |
$result .=&Apache::edit::checked_arg('Options:','options', |
$result .=&Apache::edit::checked_arg('Options:','options', |
[ ['autoez','Auto E,Z sterochemistry'], |
[ ['autoez','Auto E,Z sterochemistry'], |
['multipart','MultiPart Structures'], |
['multipart','Multipart Structures'], |
['hydrogens','Show Hydrogens'], |
|
['nostereo','No stereochemistry'], |
['nostereo','No stereochemistry'], |
['reaction','Is a reaction'], |
['reaction','Is a reaction'], |
['number','Able to number atoms'], |
['number','Able to number atoms'] ], |
['border','Draw a border'] ], |
|
,$token); |
,$token); |
$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
Line 207 sub start_organicstructure {
|
Line 205 sub start_organicstructure {
|
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval); |
|
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); |
$result=<<CHEMOUTPUT; |
my $id=time.'_'.int(rand(1000)); |
<applet code="JME.class" archive="/adm/jme/JME.jar" width="$width" height="$height"> |
$result="<img src='/cgi-bin/convertjme.pl?$id' />"; |
<param name="options" value="depict,$options" /> |
&Apache::lonnet::appenv( |
<param name="jme" value="$molecule" /> |
'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule), |
</applet> |
'cgi.'.$id.'.PNG' => 1, |
CHEMOUTPUT |
'cgi.'.$id.'.WIDTH' => $width ); |
|
} elsif ($target eq 'tex') { |
|
my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,1); |
|
if (!$texwidth) { $texwidth='90'; } |
|
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); |
|
my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); |
|
my $filename = $ENV{'user.name'}.'_'.$ENV{'user.domain'}. |
|
'_'.time.'_'.$$.int(rand(1000)).'_organicstructure'; |
|
my $id=$filename; |
|
&Apache::lonnet::appenv( |
|
'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule), |
|
'cgi.'.$id.'.PS' => 1, |
|
'cgi.'.$id.'.WIDTH' => $texwidth ); |
|
$id=&Apache::lonnet::escape($id); |
|
&Apache::lonxml::register_ssi("/cgi-bin/convertjme.pl?$id"); |
|
$result = '\graphicspath{{/home/httpd/perl/tmp/}}\includegraphics[width='.$texwidth.' mm]{'.$filename.'.eps}'; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::text_arg('Width:','width',$token,5); |
$result .=&Apache::edit::text_arg('Width:','width',$token,5); |
$result .=&Apache::edit::text_arg('Height:','height',$token,5); |
$result .=&Apache::edit::text_arg('Height:','height',$token,5); |
|
$result .=&Apache::edit::text_arg('TeXwidth:','texwidth',$token,5); |
$result .='<nobr>'; |
$result .='<nobr>'; |
$result .=&Apache::edit::text_arg('Molecule:','molecule',$token,40); |
$result .=&Apache::edit::text_arg('Molecule:','molecule',$token,40); |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack, |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack, |
Line 235 CHEMOUTPUT
|
Line 248 CHEMOUTPUT
|
$molecule,$options); |
$molecule,$options); |
$result.="</nobr><br />"; |
$result.="</nobr><br />"; |
$result .=&Apache::edit::checked_arg('Options:','options', |
$result .=&Apache::edit::checked_arg('Options:','options', |
[ ['hydrogens','Show Hydrogens'], |
[ ['reaction','Is a reaction'], |
['reaction','Is a reaction'], |
|
['border','Draw a border'] ], |
['border','Draw a border'] ], |
$token); |
$token); |
$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
Line 244 CHEMOUTPUT
|
Line 256 CHEMOUTPUT
|
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
$safeeval,'molecule', |
$safeeval,'molecule', |
'width','height', |
'width','height', |
'options'); |
'texwidth','options'); |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
} |
} |
return $result; |
return $result; |