loncom/homework/lonsimpleproblemedit.pm - view

File: [LON-CAPA] / loncom / homework / lonsimpleproblemedit.pm
Revision 1.32: download - view: text, annotated - select for diffs
Sun Jun 6 02:40:35 2010 UTC (13 years, 10 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_10_X, version_2_10_1, version_2_10_0_RC2, version_2_10_0_RC1, version_2_10_0, loncapaMITrelate_1, language_hyphenation_merge, language_hyphenation, HEAD, BZ4492-merge, BZ4492-feature_horizontal_radioresponse, BZ4492-feature_Support_horizontal_radioresponse, BZ4492-Support_horizontal_radioresponse

- Bug 6251.
  - Third arg is now a ref to a hash, instead of a hash.
  - New (optional) fourth arg, is an additional attribute for the
    select tag, e.g., an onchange action.
- Update calls to loncommon::select_form() accordingly.

1: # The LearningOnline Network 2: # Simple Problem Parameter Setting "Editor" 3: # 4: # $Id: lonsimpleproblemedit.pm,v 1.32 2010/06/06 02:40:35 raeburn 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::lonsimpleproblemedit; 30: 31: use strict; 32: use Apache::Constants qw(:common :http); 33: use Apache::loncommon; 34: use Apache::lonnet; 35: use Apache::lonlocal; 36: use Apache::lonnavmaps; 37: use lib '/home/httpd/lib/perl/'; 38: use LONCAPA; 39: 40: 41: my %qparms; 42: my $prefix; 43: my $qtype; 44: 45: sub evaloptionhash { 46: my $options=shift; 47: $options=~s/^$\'//; 48: $options=~s/\'$$//; 49: my %returnhash=(); 50: foreach (split(/\'\,\'/,$options)) { 51: $returnhash{$_}=$_; 52: } 53: return %returnhash; 54: } 55: 56: sub rawrendering { 57: my ($symb)=@_; 58: my %data=('show_errors'=>'on', 59: 'simple_edit_button' => 'off', 60: 'devalidatecourseresdata'=>'on'); 61: return &Apache::loncommon::get_student_view($symb,time,time, 62: $env{'request.course.id'}, 63: 'web',\%data); 64: } 65: 66: sub questiontext { 67: my $text=$qparms{$prefix.'questiontext'}; 68: my $qt=&mt('Question Text'); 69: my $spell_link= 70: &Apache::lonhtmlcommon::spelllink('simpleedit','questiontext'); 71: return (<<ENDQUESTION); 72: <table bgcolor="#dddd22" cellspacing="4" cellpadding="2" style="width:100%"> 73: <tr><td><b>$qt</b><br /> 74: <textarea style="width:99%" name="questiontext" cols="80" rows="8">$text</textarea> 75: <br />$spell_link 76: </td></tr> 77: </table> 78: <br /> 79: ENDQUESTION 80: } 81: 82: sub hint { 83: my $text=$qparms{$prefix.'hinttext'}; 84: my $ht=&mt('Hint Text'); 85: my $spell_link= 86: &Apache::lonhtmlcommon::spelllink('simpleedit','hinttext'); 87: return (<<ENDHINT); 88: <table bgcolor="#accacc" cellspacing="4" cellpadding="2" style="width:100%"> 89: <tr><td><b>$ht</b><br /> 90: <textarea style="width:99%" name="hinttext" cols="80" rows="4">$text</textarea> 91: <br />$spell_link 92: </td></tr> 93: </table> 94: <br /> 95: ENDHINT 96: } 97: 98: sub script { 99: my $text=$qparms{$prefix.'numericalscript'}; 100: my $ht=&mt('Scripting (optional)'); 101: return (<<ENDSCRIPT); 102: <table bgcolor="#ccccaa" cellspacing="4" cellpadding="2" style="width:100%"> 103: <tr><td><b>$ht</b><br /> 104: <textarea style="width:99%" name="numericalscript" cols="80" rows="4">$text</textarea> 105: </td></tr> 106: </table> 107: <br /> 108: ENDSCRIPT 109: } 110: 111: sub foil { 112: my $number=shift; 113: my (%values,%defaultvalues,%customvalues); 114: %defaultvalues = &Apache::lonlocal::texthash( 115: 'unused' => 'Not shown, not used' 116: ); 117: if ($qtype eq 'radio') { 118: %customvalues = &Apache::lonlocal::texthash( 119: 'true' => 'True', 120: 'false' => 'False' 121: ); 122: } elsif ($qtype eq 'option') { 123: %customvalues=&evaloptionhash($qparms{$prefix.'options'}); 124: } 125: %values = (%defaultvalues,%customvalues); 126: my $value=$qparms{$prefix.'value'.$number}; 127: unless (defined($value)) { $value='unused'; } 128: unless ($values{$value}) { $value='unused'; } 129: my $position=$qparms{$prefix.'position'.$number}; 130: my %positions=('random' => 'Random position', 131: 'top' => 'Show always at top position', 132: 'bottom' => 'Show always at bottom position'); 133: unless (defined($position)) { $position='random'; } 134: unless ($positions{$position}) { 135: $position='random'; 136: } 137: my $selectvalue=&Apache::loncommon::select_form( 138: $value, 139: 'value'.$number, 140: \%values); 141: my $selectposition=&Apache::loncommon::select_form( 142: $position, 143: 'position'.$number, 144: {&Apache::lonlocal::texthash(%positions)}); 145: my $text=$qparms{$prefix.'text'.$number}; 146: my %lt=&Apache::lonlocal::texthash('foil' => 'Foil', 147: 'value' => 'Value', 148: 'pos' => 'Position', 149: 'text' => 'Text'); 150: 151: my $spell_link= 152: &Apache::lonhtmlcommon::spelllink('simpleedit',"text$number"); 153: return (<<ENDFOIL); 154: <table bgcolor="#E8D8EE" cellspacing="2" cellpadding="1" style="width:100%"> 155: <tr><td colspan="2"><b>$lt{'foil'}</b></td></tr> 156: <tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr> 157: <tr><td colspan="2">$lt{'text'}:<br /> 158: <textarea style="width:99%" name="text$number" cols="80" rows="4">$text</textarea> 159: <br />$spell_link 160: </td></tr> 161: </table> 162: <br /> 163: ENDFOIL 164: } 165: 166: sub get_parent_uri { 167: my ($cur_symb)=@_; 168: my $navmap = Apache::lonnavmaps::navmap->new(); 169: if (defined($navmap)) { 170: my $it = $navmap->getIterator(undef, undef, undef, 1); 171: while ( my $res=$it->next()) { 172: if (ref($res) && $res->symb() eq $cur_symb) { last; } 173: } 174: my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack()); 175: if (defined($anchor)) { $anchor='#'.$anchor; } 176: return $src.'?symb='.&escape($symb).$anchor; 177: } 178: return; 179: } 180: 181: sub handler { 182: my $r = shift; 183: 184: if ($r->header_only) { 185: &Apache::loncommon::content_type($r,'text/html'); 186: $r->send_http_header; 187: return OK; 188: } 189: 190: # -------------------------------------------------------------------- Allowed? 191: unless (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { 192: return HTTP_NOT_ACCEPTABLE; 193: } 194: # ----------------------------------------------------------------- Send header 195: &Apache::loncommon::content_type($r,'text/html'); 196: $r->send_http_header; 197: # ----------------------------------------------------- Figure out where we are 198: my $uri=$r->uri; 199: $uri=~s/\/smpedit$//; 200: my $symb=&Apache::lonnet::symbread(); 201: 202: # ------------------------------------------------ Prefix for everything stored 203: $prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; 204: #------------------------------------------------- Prefix for storing weight of Problem Parts 205: my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; 206: 207: # ---------------------------------------------------------- Anything to store? 208: 209: if (($symb) && (defined($env{'form.questiontype'}))) { 210: my %storecontent=(); 211: undef %storecontent; 212: if ($env{'form.questiontype'} eq 'option') { 213: my %curoptions=&evaloptionhash($env{'form.options'}); 214: if ($env{'form.delopt'}) { 215: delete $curoptions{$env{'form.delopt'}}; 216: } 217: if ($env{'form.newopt'}) { 218: $env{'form.newopt'}=~s/\'/\\\'/g; 219: $curoptions{$env{'form.newopt'}}=$env{'form.newopt'}; 220: } 221: $env{'form.options'}="('".join("','",keys %curoptions)."')"; 222: } 223: $env{'form.hiddenparts'}='!'.$env{'form.questiontype'}; 224: foreach (keys %env) { 225: if ($_=~/^form\.(\w+)$/) { 226: my $parm=$1; 227: $storecontent{$prefix.$parm}=$env{'form.'.$parm}; 228: $storecontent{$prefix.$parm}=~s/^\s+//s; 229: $storecontent{$prefix.$parm}=~s/\s+$//s; 230: } 231: } 232: # ---------------------------------------------------- Set weights of hidden parts to zero 233: # ------------------------------------------------------ and used part to 1 234: $storecontent{$weightprefix.'essay.weight'}=0; 235: $storecontent{$weightprefix.'numerical.weight'}=0; 236: $storecontent{$weightprefix.'option.weight'}=0; 237: $storecontent{$weightprefix.'radio.weight'}=0; 238: $storecontent{$weightprefix.'string.weight'}=0; 239: $storecontent{$weightprefix.$env{'form.questiontype'}.'.weight'}=1; 240: 241: 242: my $reply=&Apache::lonnet::cput 243: ('resourcedata',\%storecontent, 244: $env{'course.'.$env{'request.course.id'}.'.domain'}, 245: $env{'course.'.$env{'request.course.id'}.'.num'}); 246: 247: &Apache::lonnet::devalidatecourseresdata( 248: $env{'course.'.$env{'request.course.id'}.'.num'}, 249: $env{'course.'.$env{'request.course.id'}.'.domain'}); 250: 251: } 252: # ------------------------------------------------------------------- Read Data 253: 254: %qparms=&Apache::lonnet::dump('resourcedata', 255: $env{'course.'.$env{'request.course.id'}.'.domain'}, 256: $env{'course.'.$env{'request.course.id'}.'.num'}, 257: $env{'request.course.id'}.'.'.$symb); 258: 259: # ------------------------------------------------------------ Print the screen 260: my $spell_header=&Apache::lonhtmlcommon::spellheader(); 261: $r->print(&Apache::loncommon::start_page('Simple Problem Editor', 262: $spell_header)); 263: if ($symb) { 264: my $title='<h1>'.&Apache::lonnet::gettitle($symb).'</h1>'; 265: my $displaylink = &get_parent_uri($symb); 266: if ($displaylink ne '') { 267: my $functions=&Apache::lonhtmlcommon::start_funclist() 268: .&Apache::lonhtmlcommon::add_item_funclist( 269: '<a href="'.$displaylink.'">' 270: .&mt('Student View').'</a>') 271: .&Apache::lonhtmlcommon::end_funclist(); 272: $r->print(&Apache::loncommon::head_subbox($functions) 273: .$title); 274: } else { 275: $r->print($title 276: .'<p class="LC_error">' 277: .&mt('An error occurred retrieving the link to this problem.') 278: .'<br />' 279: .&mt('You may need to [_1]re-select the course[_2] and then return to this resource to view it.' 280: ,'<a href="/adm/roles">','</a>') 281: .'</p>' 282: ); 283: } 284: $r->print('<p class="LC_warning">' 285: .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.') 286: .&Apache::loncommon::help_open_topic('Caching') 287: .'</p>' 288: ); 289: 290: $r->print( 291: '<div class="LC_Box">' 292: .&rawrendering($symb) 293: .'</div>' 294: ); 295: $r->print('<form name="simpleedit" method="post">'); 296: # Question Type 297: my %questiontypes=( 298: 'radio' => '1 out of N multiple choice (radio button)', 299: 'option' => 'Option Response', 300: 'string' => 'Short string response', 301: 'essay' => 'Essay, open end', 302: 'numerical' => 'Numerical Response'); 303: $qtype=$qparms{$prefix.'questiontype'}; 304: unless (defined($qtype)) { $qtype='radio'; } 305: unless ($questiontypes{$qtype}) { $qtype='radio'; } 306: $r->print( 307: '<fieldset style="width:400px;">' 308: .'<legend>'.&mt('Question Type').'</legend>' 309: .&Apache::loncommon::select_form( 310: $qtype, 311: 'questiontype', 312: {&Apache::lonlocal::texthash(%questiontypes)}) 313: .'</fieldset>' 314: ); 315: $r->print( 316: '<p>' 317: .'<input type="submit" value="'.&mt('Save and Edit').'" />' 318: .'</p>' 319: ); 320: # Script 321: if ($qtype eq 'numerical') { 322: $r->print(&script()); 323: } 324: # Question Text 325: $r->print(&questiontext()); 326: # Radio, Option === 327: if (($qtype eq 'radio') || ($qtype eq 'option')) { 328: # Response 329: my $maxfoils=$qparms{$prefix.'maxfoils'}; 330: unless (defined($maxfoils)) { $maxfoils=10; } 331: unless ($maxfoils=~/^\d+$/) { $maxfoils=10; } 332: if ($maxfoils<=0) { $maxfoils=10; } 333: my %randomizes=( 334: 'yes' => 'Display foils in random order', 335: 'no' => 'Display foils in order given'); 336: my $randomize=$qparms{$prefix.'randomize'}; 337: unless (defined($randomize)) { $randomize='yes'; } 338: unless ($randomizes{$randomize}) { $randomize='yes'; } 339: $r->print( 340: '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2" style="width:100%">'. 341: '<tr><td>'.&mt('Max number of foils displayed'). 342: ': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '. 343: &Apache::loncommon::select_form( 344: $randomize, 345: 'randomize', 346: {&Apache::lonlocal::texthash(%randomizes)}). 347: '</td></tr><tr><td bgcolor="#F0F0F0">'); 348: # Option Response: Options 349: if ($qtype eq 'option') { 350: my $options=$qparms{$prefix.'options'}; 351: unless (defined($options)) { $options="('true','false')"; } 352: my %optionshash=&evaloptionhash($options); 353: $r->print( 354: '<table bgcolor="#ffcc22" cellspacing="4" cellpadding="2" style="width:100%">'. 355: '<tr><td><input type="hidden" name="options" value="'. 356: $options.'" />'.&mt('Add new option').': '. 357: '<input type="text" name="newopt" size="15" />'. 358: &mt('Delete an option').': '. 359: &Apache::loncommon::select_form('','delopt',{'' => '',%optionshash}). 360: '</td></tr><tr><td>'); 361: } 362: # Foils 363: for (my $i=1;$i<=10;$i++) { 364: $r->print(&foil($i)); 365: } 366: # End Options 367: if ($qtype eq 'option') { 368: $r->print('</td></tr></table>'); 369: } 370: 371: # End Response 372: $r->print('</td></tr></table><br />'); 373: # Hint 374: $r->print(&hint()); 375: } 376: if ($qtype eq 'string') { 377: my %stringtypes=( 378: 'cs' => 'Case sensitive', 379: 'ci' => 'Case Insensitive', 380: 'mc' => 'Multiple Choice, Order of characters unchecked'); 381: my $stringanswer=$qparms{$prefix.'stringanswer'}; 382: unless (defined($stringanswer)) { $stringanswer=''; } 383: my $stringtype=$qparms{$prefix.'stringtype'}; 384: unless (defined($stringtype)) { $stringtype='cs'; } 385: unless ($stringtypes{$stringtype}) { $stringtype='cs'; } 386: $r->print( 387: '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2" style="width:100%">'. 388: '<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /></label>  '. 389: &Apache::loncommon::select_form( 390: $stringtype, 391: 'stringtype', 392: {&Apache::lonlocal::texthash(%stringtypes)}). 393: '</td></tr></table><br />'); 394: # Hint 395: $r->print(&hint()); 396: } 397: if ($qtype eq 'numerical') { 398: my $numericalanswer=$qparms{$prefix.'numericalanswer'}; 399: unless (defined($numericalanswer)) { $numericalanswer=''; } 400: my $numericaltolerance=$qparms{$prefix.'numericaltolerance'}; 401: unless (defined($numericaltolerance)) { $numericaltolerance='5%'; } 402: my $numericalsigfigs=$qparms{$prefix.'numericalsigfigs'}; 403: unless (defined($numericalsigfigs)) { $numericalsigfigs='1,15'; } 404: 405: $r->print( 406: '<table bgcolor="#00ee44" cellspacing="4" cellpadding="2" style="width:100%">'. 407: '<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" /></label>  '. 408: '<label>'.&mt('Unit').': <input type="text" size="5" name="numericalunit" value="'.$qparms{$prefix.'numericalunit'}.'" /></label>  '. 409: '<label>'.&mt('Format').': <input type="text" size="5" name="numericalformat" value="'.$qparms{$prefix.'numericalformat'}.'" /></label>  '. 410: '<label>'.&mt('Tolerance').': <input type="text" size="5" name="numericaltolerance" value="'.$numericaltolerance.'" /></label>  '. 411: '<label>'.&mt('Significant digits').': <input type="text" size="5" name="numericalsigfigs" value="'.$numericalsigfigs.'" /></label>'. 412: '</td></tr></table><br />'); 413: $r->print(&hint()); 414: } 415: # Store Button 416: $r->print( 417: '<input type="submit" value="'.&mt('Save and Edit').'" /></form>'); 418: } else { 419: $r->print(&mt('Could not identify problem.')); 420: } 421: $r->print(&Apache::loncommon::end_page()); 422: return OK; 423: } 424: 425: 1; 426: __END__