loncom/homework/chemresponse.pm - view

File: [LON-CAPA] / loncom / homework / chemresponse.pm
Revision 1.62: download - view: text, annotated - select for diffs
Tue Jul 5 10:06:34 2005 UTC (18 years, 10 months ago) by foxr
Branches: MAIN
CVS tags: version_2_1_X, version_2_1_3, version_2_1_2, version_2_1_1, version_2_1_0, version_2_0_X, version_2_0_99_1, version_2_0_2, version_2_0_1, version_2_0_0, version_1_99_3, version_1_99_2, HEAD

Correct typeon in defaulting size in printout mode.

1: # The LearningOnline Network with CAPA 2: # chemical equation style response 3: # 4: # $Id: chemresponse.pm,v 1.62 2005/07/05 10:06:34 foxr Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # 29: package Apache::chemresponse; 30: use strict; 31: use Apache::lonxml; 32: use Apache::lonnet; 33: use Apache::lonlocal; 34: 35: BEGIN { 36: &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse','chem')); 37: } 38: 39: sub chem_standard_order { 40: my ($reaction) = @_; 41: my ($re,$pr) = split(/->|<=>/,$reaction); 42: my @reactants = split(/\s\+/,$re); 43: my @products = split(/\s\+/,$pr); 44: foreach my $substance (@reactants,@products) { 45: $substance =~ s/(\^\d*)\s+/$1_/g; # protect superscript space 46: $substance =~ s/\s*//g; # strip whitespace 47: $substance =~ s/_/ /g; # restore superscript space 48: } 49: @reactants = sort @reactants; 50: @products = sort @products; 51: my $standard = ''; 52: foreach my $substance (@reactants) { 53: $standard .= $substance; 54: $standard .= ' + '; 55: } 56: $standard =~ s/ \+ $//; # get rid of trailing plus sign 57: $standard .= ' -> '; 58: foreach my $substance (@products) { 59: $standard .= $substance; 60: $standard .= ' + '; 61: } 62: $standard =~ s/ \+ $//; # get rid of trailing plus sign 63: return $standard; 64: } 65: 66: sub separate_jme_window { 67: my ($smile_input,$jme_input,$molecule,$options,$shown_text)=@_; 68: my $smilesection; 69: if (defined($smile_input)) { 70: $smilesection=<<SMILESECTION; 71: smiles = document.applets.JME.smiles(); 72: opener.document.lonhomework.$smile_input.value = smiles; 73: SMILESECTION 74: } 75: my $jmesection; 76: if (defined($jme_input)) { 77: $jmesection=<<JMESECTION; 78: jmeFile = document.applets.JME.jmeFile(); 79: opener.document.lonhomework.$jme_input.value = jmeFile; 80: JMESECTION 81: } 82: 83: if ($molecule) { $molecule='<param name="jme" value="'.$molecule.'" />'; } 84: my $insert_answer; 85: if ($shown_text eq '') { 86: $insert_answer= 87: '<input type="button" name="submit" value="Insert Answer" onclick="javascript:submitSmiles();" />'; 88: } 89: 90: my $body=<<CHEMPAGE; 91: <html> 92: <head> 93: <title>Molecule Editor</title> 94: <script type="text/javascript"> 95: function submitSmiles() { 96: jmeFile = document.applets.JME.jmeFile(); 97: if (jmeFile == "") { 98: alert("Nothing to submit"); 99: } else { 100: $jmesection 101: $smilesection 102: window.close(); 103: } 104: } 105: function openHelpWindow() { 106: window.open("/adm/jme/jme_help.html","","scrollbars=yes,resizable=yes,width=500,height=600"); 107: } 108: function substituent(r) {document.applets.JME.setSubstituent(r);} 109: </script> 110: </head> 111: <body bgcolor="#ffffff"> 112: <center> 113: <form> 114: <table width="440"><tr> 115: <td></td> 116: <td align="right"> 117: <select onchange="javascript:substituent(options[selectedIndex].text)"> 118: <option>Select substituent</option> 119: <option>-C(=O)OH</option> 120: <option>-C(=O)OMe</option> 121: <option>-OC(=O)Me</option> 122: <option>-CMe3</option> 123: <option>-CF3</option> 124: <option>-CCl3</option> 125: <option>-NO2</option> 126: <option>-SO2-NH2</option> 127: <option>-NH-SO2-Me</option> 128: <option>-NMe2</option> 129: <option>-C#N</option> 130: <option>-C#C-Me</option> 131: <option>-C#CH</option> 132: </select> 133: </td></tr> 134: </table> 135: <applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="440" height="390" mayscript> 136: You have to enable Java and JavaScript on your machine. 137: $molecule 138: <param name="options" value="$options" /> 139: </applet><br /> 140: <font face="arial,helvetica,sans-serif" size="-1"><a href="http://www.molinspiration.com/jme/index.html">JME Editor</a> courtesy of Peter Ertl, Novartis</font> 141: <br /> 142: $insert_answer 143: <br /> 144: <input type="button" value=" Close " onclick = "javascript:window.close()" /> 145:    146: <input type="button" value=" Help " onclick = "javascript:openHelpWindow()" /> 147: </form> 148: </center> 149: </body> 150: </html> 151: CHEMPAGE 152: $body=&HTML::Entities::encode($body,'<>&"'); 153: $body=~s/\n/ /g; 154: my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); 155: my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); 156: my $display=&mt('Draw Molecule'); 157: if (defined($shown_text)) { $display=&mt($shown_text); } 158: my $result=<<CHEMINPUT; 159: <input type="button" value="$display" onclick="javascript:editor=window.open($nothing,'jmeedit','width=500,height=500,menubar=no,scrollbars=no,resizable=yes');editor.$docopen;editor.document.write('$body');editor.document.close();editor.focus()" /> 160: CHEMINPUT 161: return $result; 162: } 163: 164: sub jme_img { 165: my ($jme,$smile,$width,$options)=@_; 166: my $id=&Apache::loncommon::get_cgi_id(); 167: my $result='<img alt="'.$smile.'" src="/cgi-bin/convertjme.pl?'.$id.'"'; 168: if ($options =~ /border/) { $result.= ' border="1"'; } 169: $result.=' />'; 170: &Apache::lonnet::appenv('cgi.'.$id.'.JME' => 171: &Apache::lonnet::escape($jme), 172: 'cgi.'.$id.'.PNG' => 1, 173: 'cgi.'.$id.'.WIDTH' => $width); 174: return $result; 175: } 176: 177: sub start_organicresponse { 178: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 179: my $result; 180: my $partid = $Apache::inputtags::part; 181: my $id = &Apache::response::start_response($parstack,$safeeval); 182: if ($target eq 'meta') { 183: $result=&Apache::response::meta_package_write('organicresponse'); 184: } elsif ($target eq 'web') { 185: my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, 186: $safeeval); 187: if ( &Apache::response::show_answer() && $jmeanswer ne '') { 188: my $options=&Apache::lonxml::get_param('options',$parstack, 189: $safeeval); 190: my $width=&Apache::lonxml::get_param('width',$parstack, 191: $safeeval); 192: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack, 193: $safeeval); 194: $result.=&jme_img($jmeanswer,$answers[0],$width,$options); 195: } else { 196: my $molecule; 197: if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) { 198: $molecule=$Apache::lonhomework::history{"resource.$partid.$id.molecule"}; 199: } else { 200: $molecule=&Apache::lonxml::get_param('molecule',$parstack, 201: $safeeval); 202: } 203: my $options=&Apache::lonxml::get_param('options',$parstack, 204: $safeeval); 205: my $shown_text; 206: if (&Apache::response::show_answer()) { 207: $shown_text="Show Your Last Answer"; 208: } 209: $result=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule, 210: $options,$shown_text); 211: $result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />'; 212: } 213: } elsif ($target eq 'edit') { 214: $result .=&Apache::edit::tag_start($target,$token); 215: my $options=&Apache::lonxml::get_param('options',$parstack, 216: $safeeval); 217: if ($options !~ /multipart/) { $options.=',multipart'; } 218: $result .='<nobr>'. 219: &Apache::edit::text_arg('Starting Molecule:','molecule', 220: $token,40); 221: my $molecule=&Apache::lonxml::get_param('molecule',$parstack, 222: $safeeval); 223: $result .=&separate_jme_window(undef, 224: &Apache::edit::html_element_name('molecule'), 225: $molecule,$options); 226: $result .='</nobr><br /><nobr>'; 227: $result .=&Apache::edit::text_arg('Correct Answer:','answer', 228: $token,40); 229: $result .=&Apache::edit::hidden_arg('jmeanswer',$token); 230: my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, 231: $safeeval); 232: $result .=&separate_jme_window( 233: &Apache::edit::html_element_name('answer'), 234: &Apache::edit::html_element_name('jmeanswer'), 235: $jmeanswer,$options); 236: $result .='</nobr><br />'; 237: $result .=&Apache::edit::checked_arg('Options:','options', 238: [ ['autoez','Auto E,Z stereochemistry'], 239: ['multipart','Multipart Structures'], 240: ['nostereo','No stereochemistry'], 241: ['reaction','Is a reaction'], 242: ['number','Able to number atoms'] ], 243: ,$token); 244: $result .=&Apache::edit::text_arg('Width of correct answer image:', 245: 'width',$token,10); 246: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 247: } elsif ($target eq 'modified') { 248: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 249: $safeeval,'molecule', 250: 'answer','jmeanswer', 251: 'options','width'); 252: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 253: } 254: return $result; 255: } 256: 257: sub end_organicresponse { 258: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 259: my $result; 260: if ($target eq 'grade' && &Apache::response::submitted()) { 261: &Apache::response::setup_params($$tagstack[-1],$safeeval); 262: my $response = &Apache::response::getresponse(); 263: if ( $response =~ /[^\s]/) { 264: my $partid = $Apache::inputtags::part; 265: my $id = $Apache::inputtags::response['-1']; 266: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); 267: my %previous = &Apache::response::check_for_previous($response,$partid,$id); 268: $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; 269: my $ad; 270: foreach my $answer (@answers) { 271: &Apache::lonxml::debug("submitted a $response for $answer<br \>\n"); 272: if ($response eq $answer) { 273: $ad='EXACT_ANS'; 274: last; 275: } else { 276: $ad='INCORRECT'; 277: } 278: } 279: if ($ad && $Apache::lonhomework::type eq 'survey') { 280: $ad='SUBMITTED'; 281: } 282: &Apache::response::handle_previous(\%previous,$ad); 283: $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; 284: $Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$env{"form.MOLECULE_$id"}; 285: } 286: } elsif ($target eq "edit") { 287: $result.= &Apache::edit::tag_end($target,$token,''); 288: } elsif ($target eq 'answer') { 289: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack, 290: $safeeval); 291: $result.=&Apache::response::answer_header('organicresponse'); 292: foreach my $answer (@answers) { 293: $result.=&Apache::response::answer_part('organicresponse',$answer); 294: } 295: $result.=&Apache::response::answer_footer('organicresponse'); 296: } 297: &Apache::response::end_response; 298: return $result; 299: } 300: 301: sub start_organicstructure { 302: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 303: my $result; 304: if ($target eq 'web') { 305: my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); 306: my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); 307: my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); 308: my $id=&Apache::loncommon::get_cgi_id(); 309: $result="<img src='/cgi-bin/convertjme.pl?$id'"; 310: if ($options =~ /border/) { $result.= ' border="1"'; } 311: $result.=' />'; 312: &Apache::lonnet::appenv( 313: 'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule), 314: 'cgi.'.$id.'.PNG' => 1, 315: 'cgi.'.$id.'.WIDTH' => $width ); 316: } elsif ($target eq 'tex') { 317: my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1); 318: my $webwidth=&Apache::lonxml::get_param('width', $parstack, $safeeval); 319: my $webheight=&Apache::lonxml::get_param('height', $parstack, $safeeval); 320: if (!$webheight) { $webheight = $webwidth; } 321: if (!$texwidth) { $texwidth='90'; } 322: $result = "%DYNAMICIMAGE:$webwidth:$webheight:$texwidth\n"; 323: my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); 324: my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); 325: my $filename = $env{'user.name'}.'_'.$env{'user.domain'}. 326: '_'.time.'_'.$$.int(rand(1000)).'_organicstructure'; 327: my $id=$filename; 328: &Apache::lonnet::appenv( 329: 'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule), 330: 'cgi.'.$id.'.PS' => 1, 331: 'cgi.'.$id.'.WIDTH' => $texwidth ); 332: $id=&Apache::lonnet::escape($id); 333: &Apache::lonxml::register_ssi("/cgi-bin/convertjme.pl?$id"); 334: if ($options =~ /border/) { $result.= '\fbox{'; } 335: $result .= '\graphicspath{{/home/httpd/perl/tmp/}}\includegraphics[width='.$texwidth.' mm]{'.$filename.'.eps}'; 336: if ($options =~ /border/) { $result.= '} '; } 337: } elsif ($target eq 'edit') { 338: $result .=&Apache::edit::tag_start($target,$token); 339: $result .=&Apache::edit::text_arg('Width (pixels):','width',$token,5); 340: $result .=&Apache::edit::text_arg('TeXwidth (mm):','texwidth',$token,5); 341: $result .='<nobr>'; 342: $result .=&Apache::edit::text_arg('Molecule:','molecule',$token,40); 343: my $molecule=&Apache::lonxml::get_param('molecule',$parstack, 344: $safeeval); 345: my $options=&Apache::lonxml::get_param('options',$parstack, 346: $safeeval); 347: if ($options !~ /reaction/) { 348: $options.= ',multipart,number'; 349: } 350: 351: $result .=&separate_jme_window(undef, 352: &Apache::edit::html_element_name('molecule'), 353: $molecule,$options); 354: $result.="</nobr><br />"; 355: $result .=&Apache::edit::checked_arg('Options:','options', 356: [ ['reaction','Is a reaction'], 357: ['border','Draw a border'] ], 358: $token); 359: $result .=&Apache::edit::end_row(); 360: } elsif ($target eq 'modified') { 361: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 362: $safeeval,'molecule', 363: 'width','texwidth', 364: 'options'); 365: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 366: } 367: return $result; 368: } 369: 370: sub end_organicstructure { 371: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 372: my $result; 373: if ($target eq "edit") { 374: $result.= &Apache::edit::tag_end($target,$token,''); 375: } 376: return $result; 377: } 378: 379: sub edit_reaction_button { 380: my ($id,$field,$reaction)=@_; 381: my $id_es=&Apache::lonnet::escape($id); 382: my $field_es=&Apache::lonnet::escape($field); 383: my $reaction_es=&Apache::lonnet::escape($reaction); 384: my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); 385: my $result=<<EDITREACTION; 386: <script type="text/javascript"> 387: //  394: </script> 395: <input type='button' value='Edit Answer' onclick="javascript:create_reaction_window_${id}_${field}();void(0);" /> 396: EDITREACTION 397: return $result; 398: } 399: 400: sub start_reactionresponse { 401: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 402: my $result; 403: my $id = &Apache::response::start_response($parstack,$safeeval); 404: if ($target eq 'meta') { 405: $result=&Apache::response::meta_package_write('reactionresponse'); 406: } elsif ($target eq 'web') { 407: my $partid = $Apache::inputtags::part; 408: my $id = $Apache::inputtags::response['-1']; 409: my $reaction=$Apache::lonhomework::history{"resource.$partid.$id.submission"}; 410: if ($reaction eq '') { $reaction=&Apache::lonxml::get_param('initial',$parstack,$safeeval); } 411: my $status=$Apache::inputtags::status['-1']; 412: if ($status eq 'CAN_ANSWER') { 413: $result.=&edit_reaction_button($id,"HWVAL_$id",$reaction); 414: } 415: if ( &Apache::response::show_answer() ) { 416: my $ans=&Apache::lonxml::get_param('answer',$parstack,$safeeval); 417: if (!$Apache::lonxml::default_homework_loaded) { 418: &Apache::lonxml::default_homework_load($safeeval); 419: } 420: @Apache::scripttag::parser_env = @_; 421: $Apache::inputtags::answertxt{$id}=&Apache::run::run("return &chemparse(q\0$ans\0);",$safeeval); 422: } 423: } elsif ($target eq "edit") { 424: $result .=&Apache::edit::tag_start($target,$token); 425: my $answer=&Apache::lonxml::get_param('answer',$parstack, 426: $safeeval); 427: $result .='<nobr>'. 428: &Apache::edit::text_arg('Answer:','answer',$token,40); 429: $result .=&edit_reaction_button($id,&Apache::edit::html_element_name('answer'),$answer).'</nobr>'; 430: my $initial=&Apache::lonxml::get_param('initial',$parstack,$safeeval); 431: $result.='<nobr>'. 432: &Apache::edit::text_arg('Initial Reaction:','initial',$token,40); 433: $result .=&edit_reaction_button($id,&Apache::edit::html_element_name('initial'),$initial).'</nobr>'; 434: 435: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 436: } elsif ($target eq 'modified') { 437: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 438: $safeeval,'answer', 439: 'initial'); 440: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 441: } 442: return $result; 443: } 444: 445: sub end_reactionresponse { 446: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 447: my $result; 448: if ($target eq 'grade' && &Apache::response::submitted()) { 449: &Apache::response::setup_params($$tagstack[-1],$safeeval); 450: my $response = &Apache::response::getresponse(); 451: if ( $response =~ /[^\s]/) { 452: my $partid = $Apache::inputtags::part; 453: my $id = $Apache::inputtags::response['-1']; 454: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); 455: my %previous = &Apache::response::check_for_previous($response,$partid,$id); 456: $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; 457: my $ad; 458: foreach my $answer (@answers) { 459: &Apache::lonxml::debug("submitted a $response for $answer<br \>\n"); 460: if (&chem_standard_order($response) eq 461: &chem_standard_order($answer)) { 462: $ad='EXACT_ANS'; 463: } else { 464: $ad='INCORRECT'; 465: } 466: } 467: if ($ad && $Apache::lonhomework::type eq 'survey') { 468: $ad='SUBMITTED'; 469: } 470: &Apache::response::handle_previous(\%previous,$ad); 471: $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; 472: } 473: } elsif ($target eq "edit") { 474: $result.= &Apache::edit::tag_end($target,$token,''); 475: } elsif ($target eq 'answer') { 476: my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack, 477: $safeeval); 478: $result.=&Apache::response::answer_header('reactionresponse'); 479: foreach my $answer (@answers) { 480: $result.=&Apache::response::answer_part('reactionresponse', 481: $answer); 482: } 483: $result.=&Apache::response::answer_footer('reactionresponse'); 484: } 485: &Apache::response::end_response; 486: return $result; 487: } 488: 489: sub start_chem { 490: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 491: my $result = ''; 492: my $inside = &Apache::lonxml::get_all_text_unbalanced("/chem",$parser); 493: if ($target eq 'tex' || $target eq 'web') { 494: $inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); 495: if (!$Apache::lonxml::default_homework_loaded) { 496: &Apache::lonxml::default_homework_load($safeeval); 497: } 498: @Apache::scripttag::parser_env = @_; 499: $result=&Apache::run::run("return &chemparse(q\0$inside\0);",$safeeval); 500: } 501: return $result; 502: } 503: 504: sub end_chem { 505: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 506: my $result = ''; 507: return $result; 508: } 509: 510: 1; 511: __END__