--- loncom/interface/lonparmset.pm 2009/06/09 23:27:04 1.458 +++ loncom/interface/lonparmset.pm 2009/06/10 16:06:13 1.460 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.458 2009/06/09 23:27:04 schualex Exp $ +# $Id: lonparmset.pm,v 1.460 2009/06/10 16:06:13 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1353,7 +1353,7 @@ ENDSCRIPT if (!($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat})) { $r->print(' style="display:none"'); } - $r->print(' />' + $r->print('>' .($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} : $tempkey) .'' ); @@ -1920,7 +1920,10 @@ sub assessparms { $uname,$udom,$csec,$cgroup); } # ---------------------------------------------------------------- Done storing - $message.='

'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'

'; + $message.='

' + .&mt('Changes can take up to 10 minutes before being active for all students.') + .&Apache::loncommon::help_open_topic('Caching') + .'

'; } #----------------------------------------------- if all selected, fill in array if ($pscat[0] eq "all") {@pscat = (keys %allparms);} @@ -1937,6 +1940,27 @@ sub assessparms { '" name="recent_'.$_.'" />'); } + # ----- Start Parameter Selection + + # Hide parm selection? + $r->print(< +// + +ENDPARMSELSCRIPT + my $parmselhiddenstyle=' style="display:none"'; + if($env{'form.hideparmsel'} eq 'hidden') { + $r->print('
'); + } else { + $r->print('
'); + } + + # Display parameter selection boxes if (!$pssymb) { $r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters'))); $r->print(&Apache::lonhtmlcommon::start_pick_box()); @@ -1966,10 +1990,31 @@ sub assessparms { $r->print(&Apache::lonhtmlcommon::row_closure(1)); $r->print(&Apache::lonhtmlcommon::end_pick_box()); + # parm selection is shown: display parm update button + $r->print('

' + .'' + .'' + .'

' + ); + + $r->print('
'); + # ----- End Parameter Selection + + # Offer link to display parameter selection again + $r->print(''); - $r->print('

'.$message.'

'); + # Display Messages + $r->print('
'.$message.'
'); - $r->print('
'); my @temp_pscat; map {