--- loncom/homework/lonsimpleproblemedit.pm 2010/01/27 20:38:08 1.20.2.2 +++ loncom/homework/lonsimpleproblemedit.pm 2009/08/17 19:46:49 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.20.2.2 2010/01/27 20:38:08 raeburn Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.25 2009/08/17 19:46:49 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -191,8 +191,6 @@ 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'}))) { @@ -218,24 +216,16 @@ 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'}); + &Apache::lonnet::devalidatecourseresdata( + $env{'course.'.$env{'request.course.id'}.'.num'}, + $env{'course.'.$env{'request.course.id'}.'.domain'}); + + } # ------------------------------------------------------------------- Read Data %qparms=&Apache::lonnet::dump('resourcedata', @@ -249,15 +239,29 @@ sub handler { $spell_header)); if ($symb) { $r->print('
');
my $displaylink = &get_parent_uri($symb);
- if ($displaylink ne '') {
- $r->print(''.&mt('Student View').' - ');
+ if ($displaylink ne '') {
+ my $functions=&Apache::lonhtmlcommon::start_funclist()
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''
+ .&mt('Student View').'')
+ .&Apache::lonhtmlcommon::end_funclist();
+ $r->print(&Apache::loncommon::head_subbox($functions));
} 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('An error occurred retrieving the link to this problem.')
+ .' |
' + .&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). ' |
'. + ' |
'. &Apache::loncommon::select_form ($stringtype,'stringtype',%stringtypes). ' |
'. ' '. ' '. ' '. ''. - ' |