--- loncom/interface/lonparmset.pm 2011/01/13 17:44:30 1.506 +++ loncom/interface/lonparmset.pm 2011/03/11 02:39:53 1.511 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.506 2011/01/13 17:44:30 www Exp $ +# $Id: lonparmset.pm,v 1.511 2011/03/11 02:39:53 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -306,6 +306,27 @@ use HTML::Entities; use LONCAPA qw(:DEFAULT :match); +sub startSettingsScreen { + my ($r,$mode)=@_; + + $r->print("\n".'
' - .&mt('Show detailed Parameter Selection') - .'
' - ); - - $r->print(&Apache::lonhtmlcommon::row_closure(1)); } # return a hash sub categories { @@ -1476,24 +1452,12 @@ sub parmboxes { 'file_submission' => [], 'misc' => [], ); - my $hidelink = - '' - .'' - .&mt('Hide detailed Parameter Selection') - .'' - .'
' - ."\n"; -; + foreach $tempparameter (keys %$allparms) { &whatIsMyCategory($tempparameter, \%categoryList); } #part to print the parm-list - $r->print( - ' \n"); } # # This function offers some links on the parameter section to get with one click a group a parameters @@ -1686,11 +1644,19 @@ function group_or_section(caller) { # This function shows on table Mode the available Parameters for the selected Resources # sub displaymenu { - my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; + my ($r,$allparms,$pscat,$psprt,$keyorder)=@_; + $r->print(&Apache::lonhtmlcommon::start_pick_box()); + $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View'))); + &parmmenu($r,$allparms,$pscat,$keyorder); - $r->print(&Apache::lonhtmlcommon::end_pick_box()); + $r->print(&Apache::loncommon::start_scrollbox()); &parmboxes($r,$allparms,$pscat,$keyorder); + $r->print(&Apache::loncommon::end_scrollbox()); + + $r->print(&Apache::lonhtmlcommon::row_closure(1)); + $r->print(&Apache::lonhtmlcommon::end_pick_box()); + } sub mapmenu { @@ -1753,12 +1719,12 @@ sub mapmenu { # Info about selectable folders/maps $r->print( '' .'' + .' value="'.&mt('Update Display').'" />' .'' .'
'); $r->print(''); @@ -2313,7 +2280,7 @@ COURSECONTENTSCRIPT $r->print(&Apache::lonhtmlcommon::end_pick_box()); $r->print('' .'' + .' value="'.&mt('Update Display').'" />' .'' .'
'); } @@ -2745,7 +2712,9 @@ ENDMAPONE ); } # end of $parmlev eq general } - $r->print(''.&Apache::loncommon::end_page()); + $r->print(''); + &endSettingsScreen($r); + $r->print(&Apache::loncommon::end_page()); } # end sub assessparms ################################################## @@ -3277,9 +3246,9 @@ sub newoverview { text=>"Overview Mode"}); my $start_page = &Apache::loncommon::start_page('Set Parameters'); my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview'); + $r->print($start_page.$breadcrumbs); + &startSettingsScreen($r,'parmset'); $r->print(<