--- loncom/homework/lonsimpleproblemedit.pm 2009/06/11 16:48:28 1.23 +++ loncom/homework/lonsimpleproblemedit.pm 2009/10/19 15:15:03 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.23 2009/06/11 16:48:28 bisitz Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.29 2009/10/19 15:15:03 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -71,7 +71,7 @@ sub questiontext { return (< $qt
- +
$spell_link @@ -85,9 +85,9 @@ sub hint { my $spell_link= &Apache::lonhtmlcommon::spelllink('simpleedit','hinttext'); return (< +
$ht
- +
$spell_link
@@ -95,6 +95,19 @@ sub hint { ENDHINT } +sub script { + my $text=$qparms{$prefix.'numericalscript'}; + my $ht=&mt('Scripting (optional)'); + return (< +$ht
+ + + +
+ENDSCRIPT +} + sub foil { my $number=shift; my %values=''; @@ -128,11 +141,11 @@ sub foil { my $spell_link= &Apache::lonhtmlcommon::spelllink('simpleedit',"text$number"); return (< +
$lt{'foil'}
$lt{'value'}: $selectvalue$lt{'pos'}: $selectposition
$lt{'text'}:
- +
$spell_link
@@ -178,6 +191,9 @@ sub handler { # ------------------------------------------------ Prefix for everything stored $prefix=$env{'request.course.id'}.'.'.$symb.'.0.'; +#------------------------------------------------- Prefix for storing weight of Problem Parts + my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.'; + # ---------------------------------------------------------- Anything to store? if (($symb) && (defined($env{'form.questiontype'}))) { @@ -203,11 +219,25 @@ sub handler { $storecontent{$prefix.$parm}=~s/\s+$//s; } } +# ---------------------------------------------------- Set weights of hidden parts to zero +# ------------------------------------------------------ and used part to 1 + $storecontent{$weightprefix.'essay.weight'}=0; + $storecontent{$weightprefix.'numerical.weight'}=0; + $storecontent{$weightprefix.'option.weight'}=0; + $storecontent{$weightprefix.'radio.weight'}=0; + $storecontent{$weightprefix.'string.weight'}=0; + $storecontent{$weightprefix.$env{'form.questiontype'}.'.weight'}=1; + + my $reply=&Apache::lonnet::cput ('resourcedata',\%storecontent, $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); + &Apache::lonnet::devalidatecourseresdata( + $env{'course.'.$env{'request.course.id'}.'.num'}, + $env{'course.'.$env{'request.course.id'}.'.domain'}); + } # ------------------------------------------------------------------- Read Data @@ -221,7 +251,7 @@ sub handler { $r->print(&Apache::loncommon::start_page('Simple Problem Editor', $spell_header)); if ($symb) { - $r->print('

'.&Apache::lonnet::gettitle($symb).'

'); + my $title='

'.&Apache::lonnet::gettitle($symb).'

'; my $displaylink = &get_parent_uri($symb); if ($displaylink ne '') { my $functions=&Apache::lonhtmlcommon::start_funclist() @@ -229,9 +259,11 @@ sub handler { '' .&mt('Student View').'') .&Apache::lonhtmlcommon::end_funclist(); - $r->print(&Apache::loncommon::head_subbox($functions)); + $r->print(&Apache::loncommon::head_subbox($functions) + .$title); } else { - $r->print('

' + $r->print($title + .'

' .&mt('An error occurred retrieving the link to this problem.') .'
' .&mt('You may need to [_1]re-select the course[_2] and then return to this resource to view it.' @@ -245,24 +277,38 @@ sub handler { .'

' ); - $r->print('
'. - &rawrendering($symb). - '

'); + $r->print( + '
' + .&rawrendering($symb) + .'
' + ); $r->print('
'); # Question Type my %questiontypes=('radio' => '1 out of N multiple choice (radio button)', 'option' => 'Option response', 'string' => 'Short string response', - 'essay' => 'Essay, open end'); + 'essay' => 'Essay, open end', + 'numerical' => 'Numerical response'); $qtype=$qparms{$prefix.'questiontype'}; unless (defined($qtype)) { $qtype='radio'; } unless ($questiontypes{$qtype}) { $qtype='radio'; } - $r->print(''.&mt('Question Type'). - ': '.&Apache::loncommon::select_form - ($qtype,'questiontype',%questiontypes). - '

 

'); + $r->print( + '
' + .''.&mt('Question Type').'' + .&Apache::loncommon::select_form + ($qtype,'questiontype',%questiontypes) + .'
' + ); + $r->print( + '

' + .'' + .'

' + ); +# Script + if ($qtype eq 'numerical') { + $r->print(&script()); + } # Question Text $r->print(&questiontext()); # Radio, Option === @@ -278,19 +324,19 @@ sub handler { unless (defined($randomize)) { $randomize='yes'; } unless ($randomizes{$randomize}) { $randomize='yes'; } $r->print( - ''. + '
'. '
'.&mt('Max number of foils displayed'). ':   '. &Apache::loncommon::select_form ($randomize,'randomize',%randomizes). - '
'); + '
'); # Option Response: Options if ($qtype eq 'option') { my $options=$qparms{$prefix.'options'}; unless (defined($options)) { $options="('true','false')"; } my %optionshash=&evaloptionhash($options); $r->print( - ''. + '
'. '
'.&mt('Add new option').': '. ''. @@ -323,14 +369,32 @@ sub handler { unless (defined($stringtype)) { $stringtype='cs'; } unless ($stringtypes{$stringtype}) { $stringtype='cs'; } $r->print( - ''. - '
'.&mt('Correct answer').':   '. + ''. + '
  '. &Apache::loncommon::select_form ($stringtype,'stringtype',%stringtypes). '

'); # Hint $r->print(&hint()); } + if ($qtype eq 'numerical') { + my $numericalanswer=$qparms{$prefix.'numericalanswer'}; + unless (defined($numericalanswer)) { $numericalanswer=''; } + my $numericaltolerance=$qparms{$prefix.'numericaltolerance'}; + unless (defined($numericaltolerance)) { $numericaltolerance='5%'; } + my $numericalsigfigs=$qparms{$prefix.'numericalsigfigs'}; + unless (defined($numericalsigfigs)) { $numericalsigfigs='1,15'; } + + $r->print( + ''. + '
  '. + '  '. + '  '. + '  '. + ''. + '

'); + $r->print(&hint()); + } # Store Button $r->print( '');