--- loncom/homework/chemresponse.pm 2003/10/16 21:52:27 1.17 +++ loncom/homework/chemresponse.pm 2003/10/18 07:24:35 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.17 2003/10/16 21:52:27 albertel Exp $ +# $Id: chemresponse.pm,v 1.19 2003/10/18 07:24:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -143,12 +143,10 @@ sub start_organicresponse { $result .='
'; $result .=&Apache::edit::checked_arg('Options:','options', [ ['autoez','Auto E,Z sterochemistry'], - ['multipart','MultiPart Structures'], - ['hydrogens','Show Hydrogens'], + ['multipart','Multipart Structures'], ['nostereo','No stereochemistry'], ['reaction','Is a reaction'], - ['number','Able to number atoms'], - ['border','Draw a border'] ], + ['number','Able to number atoms'] ], ,$token); $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); } elsif ($target eq 'modified') { @@ -210,7 +208,9 @@ sub start_organicstructure { my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); my $id=time.'_'.int(rand(1000)); - $result=""; + $result=" &Apache::lonnet::escape($molecule), 'cgi.'.$id.'.PNG' => 1, @@ -250,8 +250,7 @@ sub start_organicstructure { $molecule,$options); $result.="
"; $result .=&Apache::edit::checked_arg('Options:','options', - [ ['hydrogens','Show Hydrogens'], - ['reaction','Is a reaction'], + [ ['reaction','Is a reaction'], ['border','Draw a border'] ], $token); $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();