loncom/homework/lonsimpleproblemedit.pm - view

File: [LON-CAPA] / loncom / homework / lonsimpleproblemedit.pm
Revision 1.29: download - view: text, annotated - select for diffs
Mon Oct 19 15:15:03 2009 UTC (14 years, 6 months ago) by bisitz
Branches: MAIN
CVS tags: HEAD

Optimized simple problems screen design in edit mode:
- Same width for all boxes
- First display available functions (header), then display problem title
- Wrap problem rendering preview in simple box instead of table
- Wrap question type selection in fieldset

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