--- loncom/homework/lonsimpleproblemedit.pm 2005/05/26 20:35:53 1.16 +++ loncom/homework/lonsimpleproblemedit.pm 2010/01/27 23:32:05 1.20.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.16 2005/05/26 20:35:53 albertel Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.20.2.3 2010/01/27 23:32:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,9 @@ use Apache::loncommon; use Apache::lonnet; use Apache::lonlocal; use Apache::lonnavmaps; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + my %qparms; my $prefix; @@ -66,7 +69,7 @@ sub questiontext { my $spell_link= &Apache::lonhtmlcommon::spelllink('simpleedit','questiontext'); return (< + +
$qt

$spell_link @@ -92,15 +95,34 @@ 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=''; + my (%values,%defaultvalues,%customvalues); + %defaultvalues = &Apache::lonlocal::texthash( + 'unused' => 'Not shown, not used' + ); if ($qtype eq 'radio') { - %values=('true' => 'True', 'false' => 'False'); + %customvalues = &Apache::lonlocal::texthash( + 'true' => 'True', + 'false' => 'False' + ); } elsif ($qtype eq 'option') { - %values=&evaloptionhash($qparms{$prefix.'options'}); + %customvalues=&evaloptionhash($qparms{$prefix.'options'}); } - $values{'unused'}='Not shown, not used'; + %values = (%defaultvalues,%customvalues); my $value=$qparms{$prefix.'value'.$number}; unless (defined($value)) { $value='unused'; } unless ($values{$value}) { $value='unused'; } @@ -112,10 +134,14 @@ sub foil { unless ($positions{$position}) { $position='random'; } - my $selectvalue=&Apache::loncommon::select_form - ($value,'value'.$number,%values); - my $selectposition=&Apache::loncommon::select_form - ($position,'position'.$number,%positions); + my $selectvalue=&Apache::loncommon::select_form( + $value, + 'value'.$number, + &Apache::lonlocal::texthash(%values)); + my $selectposition=&Apache::loncommon::select_form( + $position, + 'position'.$number, + &Apache::lonlocal::texthash(%positions)); my $text=$qparms{$prefix.'text'.$number}; my %lt=&Apache::lonlocal::texthash('foil' => 'Foil', 'value' => 'Value', @@ -140,13 +166,16 @@ ENDFOIL sub get_parent_uri { my ($cur_symb)=@_; my $navmap = Apache::lonnavmaps::navmap->new(); - my $it = $navmap->getIterator(undef, undef, undef, 1); - while ( my $res=$it->next()) { - if (ref($res) && $res->symb() eq $cur_symb) { last; } + if (defined($navmap)) { + my $it = $navmap->getIterator(undef, undef, undef, 1); + while ( my $res=$it->next()) { + if (ref($res) && $res->symb() eq $cur_symb) { last; } + } + my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack()); + if (defined($anchor)) { $anchor='#'.$anchor; } + return $src.'?symb='.&escape($symb).$anchor; } - my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack()); - if (defined($anchor)) { $anchor='#'.$anchor; } - return $src.'?symb='.&Apache::lonnet::escape($symb).$anchor; + return; } sub handler { @@ -172,6 +201,8 @@ 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'}))) { @@ -197,12 +228,24 @@ 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 %qparms=&Apache::lonnet::dump('resourcedata', @@ -212,37 +255,45 @@ sub handler { # ------------------------------------------------------------ Print the screen my $spell_header=&Apache::lonhtmlcommon::spellheader(); - $r->print(< - -The LearningOnline Network with CAPA -$spell_header - -ENDDOCUMENT - $r->print(&Apache::loncommon::bodytag('Simple Problem Editor')); + $r->print(&Apache::loncommon::start_page('Simple Problem Editor', + $spell_header)); if ($symb) { $r->print('

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

'); - $r->print('
'. - ''.&mt('Student View').' - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.'). + $r->print('
'); + my $displaylink = &get_parent_uri($symb); + if ($displaylink ne '') { + $r->print(''.&mt('Student View').' - '); + } else { + $r->print(''.&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.','','').'
'); + } + $r->print(&mt('Note: it can take up to 10 minutes for changes to take effect for all users.'). &Apache::loncommon::help_open_topic('Caching').'
'); $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'); + $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', + '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 + $r->print(''.&mt('Question Type').': ' + .&Apache::loncommon::select_form( + $qtype, + 'questiontype', + &Apache::lonlocal::texthash(%questiontypes)) ($qtype,'questiontype',%questiontypes). '

 

'); +# Script + if ($qtype eq 'numerical') { + $r->print(&script()); + } # Question Text $r->print(&questiontext()); # Radio, Option === @@ -252,8 +303,9 @@ ENDDOCUMENT unless (defined($maxfoils)) { $maxfoils=10; } unless ($maxfoils=~/^\d+$/) { $maxfoils=10; } if ($maxfoils<=0) { $maxfoils=10; } - my %randomizes=('yes' => 'Display foils in random order', - 'no' => 'Display foils in order given'); + my %randomizes=( + 'yes' => 'Display foils in random order', + 'no' => 'Display foils in order given'); my $randomize=$qparms{$prefix.'randomize'}; unless (defined($randomize)) { $randomize='yes'; } unless ($randomizes{$randomize}) { $randomize='yes'; } @@ -261,8 +313,10 @@ ENDDOCUMENT ''. '
'.&mt('Max number of foils displayed'). ':   '. - &Apache::loncommon::select_form - ($randomize,'randomize',%randomizes). + &Apache::loncommon::select_form( + $randomize, + 'randomize', + &Apache::lonlocal::texthash(%randomizes)). '
'); # Option Response: Options if ($qtype eq 'option') { @@ -304,20 +358,40 @@ ENDDOCUMENT unless ($stringtypes{$stringtype}) { $stringtype='cs'; } $r->print( ''. - '
'.&mt('Correct answer').':   '. - &Apache::loncommon::select_form - ($stringtype,'stringtype',%stringtypes). + '
  '. + &Apache::loncommon::select_form( + $stringtype, + 'stringtype', + &Apache::lonlocal::texthash(%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( ''); } else { $r->print(&mt('Could not identify problem.')); } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }