version 1.81, 2008/09/21 20:09:06
|
version 1.84, 2008/12/22 14:55:28
|
Line 234 sub start_organicresponse {
|
Line 234 sub start_organicresponse {
|
my $options=&Apache::lonxml::get_param('options',$parstack, |
my $options=&Apache::lonxml::get_param('options',$parstack, |
$safeeval); |
$safeeval); |
if ($options !~ /multipart/) { $options.=',multipart'; } |
if ($options !~ /multipart/) { $options.=',multipart'; } |
$result .='<nobr>'. |
$result .='<span class="LC_nobreak">'. |
&Apache::edit::text_arg('Starting Molecule:','molecule', |
&Apache::edit::text_arg('Starting Molecule:','molecule', |
$token,40); |
$token,40); |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack, |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack, |
Line 242 sub start_organicresponse {
|
Line 242 sub start_organicresponse {
|
$result .=&separate_jme_window(undef, |
$result .=&separate_jme_window(undef, |
&Apache::edit::html_element_name('molecule'), |
&Apache::edit::html_element_name('molecule'), |
$molecule,$options); |
$molecule,$options); |
$result .='</nobr><br /><nobr>'; |
$result .='</span><br /><span class="LC_nobreak">'; |
$result .=&Apache::edit::text_arg('Correct Answer:','answer', |
$result .=&Apache::edit::text_arg('Correct Answer:','answer', |
$token,40); |
$token,40); |
$result .='</nobr><br /><nobr>'; |
$result .='</spann><br /><span class="LC_nobreak">'; |
$result .=&Apache::edit::text_arg('JME string of the answer (automatically updated when using the Draw Molecule button):', |
$result .=&Apache::edit::text_arg('JME string of the answer (automatically updated when using the Draw Molecule button):', |
'jmeanswer',$token); |
'jmeanswer',$token); |
my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, |
my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, |
Line 254 sub start_organicresponse {
|
Line 254 sub start_organicresponse {
|
&Apache::edit::html_element_name('answer'), |
&Apache::edit::html_element_name('answer'), |
&Apache::edit::html_element_name('jmeanswer'), |
&Apache::edit::html_element_name('jmeanswer'), |
$jmeanswer,$options); |
$jmeanswer,$options); |
$result .='</nobr><br />'; |
$result .='</span><br />'; |
$result .=&Apache::edit::checked_arg('Options:','options', |
$result .=&Apache::edit::checked_arg('Options:','options', |
[ ['autoez','Auto E,Z stereochemistry'], |
[ ['autoez','Auto E,Z stereochemistry'], |
['multipart','Multipart Structures'], |
['multipart','Multipart Structures'], |
Line 338 sub end_organicresponse {
|
Line 338 sub end_organicresponse {
|
"$partid.$id"); # part.response |
"$partid.$id"); # part.response |
if ($target eq 'analyze') { |
if ($target eq 'analyze') { |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse'; |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse'; |
|
push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id"); |
&Apache::lonhomework::set_bubble_lines(); |
&Apache::lonhomework::set_bubble_lines(); |
} |
} |
} |
} |
Line 410 sub start_organicstructure {
|
Line 411 sub start_organicstructure {
|
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::text_arg('Width (pixels):','width',$token,5); |
$result .=&Apache::edit::text_arg('Width (pixels):','width',$token,5); |
$result .=&Apache::edit::text_arg('TeXwidth (mm):','texwidth',$token,5); |
$result .=&Apache::edit::text_arg('TeXwidth (mm):','texwidth',$token,5); |
$result .='<nobr>'; |
$result .='<span class="LC_nobreak">'; |
$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, |
$safeeval); |
$safeeval); |
Line 423 sub start_organicstructure {
|
Line 424 sub start_organicstructure {
|
$result .=&separate_jme_window(undef, |
$result .=&separate_jme_window(undef, |
&Apache::edit::html_element_name('molecule'), |
&Apache::edit::html_element_name('molecule'), |
$molecule,$options); |
$molecule,$options); |
$result.="</nobr><br />"; |
$result.="</span><br />"; |
$result .=&Apache::edit::checked_arg('Options:','options', |
$result .=&Apache::edit::checked_arg('Options:','options', |
[ ['reaction','Is a reaction'], |
[ ['reaction','Is a reaction'], |
['border','Draw a border'] ], |
['border','Draw a border'] ], |
Line 503 sub start_reactionresponse {
|
Line 504 sub start_reactionresponse {
|
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::tag_start($target,$token); |
my $answer=&Apache::lonxml::get_param('answer',$parstack, |
my $answer=&Apache::lonxml::get_param('answer',$parstack, |
$safeeval); |
$safeeval); |
$result .='<nobr>'. |
$result .='<span class="LC_nobreak">'. |
&Apache::edit::text_arg('Answer:','answer',$token,40); |
&Apache::edit::text_arg('Answer:','answer',$token,40); |
|
$result .=&edit_reaction_button($id,&Apache::edit::html_element_name('answer'),$answer).'</span>'; |
my $initial=&Apache::lonxml::get_param('initial',$parstack,$safeeval); |
my $initial=&Apache::lonxml::get_param('initial',$parstack,$safeeval); |
$result.='<nobr>'. |
$result.='<span class="LC_nobreak">'. |
&Apache::edit::text_arg('Initial Reaction:','initial',$token,40); |
&Apache::edit::text_arg('Initial Reaction:','initial',$token,40); |
|
$result .=&edit_reaction_button($id,&Apache::edit::html_element_name('initial'),$initial).'</span>'; |
$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') { |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
Line 578 sub end_reactionresponse {
|
Line 581 sub end_reactionresponse {
|
&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id"); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id"); |
if ($target eq 'analyze') { |
if ($target eq 'analyze') { |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse'; |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse'; |
|
push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id"); |
&Apache::lonhomework::set_bubble_lines(); |
&Apache::lonhomework::set_bubble_lines(); |
} |
} |
} |
} |