--- loncom/interface/lonparmset.pm 2009/05/12 12:20:53 1.448 +++ loncom/interface/lonparmset.pm 2009/05/16 22:18:20 1.449 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.448 2009/05/12 12:20:53 bisitz Exp $ +# $Id: lonparmset.pm,v 1.449 2009/05/16 22:18:20 neumanie Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1500,9 +1500,7 @@ function group_or_section(caller) { sub displaymenu { my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; - $r->print('
'); - $r->print('

Step 2

'); - $r->print('
' ); + $r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters'))); $r->print(&Apache::lonhtmlcommon::start_pick_box()); &parmmenu($r,$allparms,$pscat,$keyorder); $r->print(&Apache::lonhtmlcommon::row_closure()); @@ -1511,7 +1509,6 @@ sub displaymenu { &partmenu($r,$allparts,$psprt); $r->print(&Apache::lonhtmlcommon::row_closure(1)); $r->print(&Apache::lonhtmlcommon::end_pick_box()); - $r->print('
'); } sub mapmenu { @@ -1865,10 +1862,7 @@ sub assessparms { } if (!$pssymb) { - - $r->print('
'); - $r->print('

Step 1

'); - $r->print('
' ); + $r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters'))); $r->print(&Apache::lonhtmlcommon::start_pick_box()); &levelmenu($r,\%alllevs,$parmlev); @@ -1880,8 +1874,7 @@ sub assessparms { $r->print(&Apache::lonhtmlcommon::row_closure(1)); $r->print(&Apache::lonhtmlcommon::end_pick_box()); - $r->print('
'); - + &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder); } else { my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); @@ -1891,14 +1884,12 @@ sub assessparms { '

'); } - $r->print('
'); - $r->print('

Step 3

'); - $r->print('
' ); + $r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection'))); $r->print(&Apache::lonhtmlcommon::start_pick_box()); &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups); $r->print(&Apache::lonhtmlcommon::row_closure(1)); $r->print(&Apache::lonhtmlcommon::end_pick_box()); - $r->print('
'); + $r->print('

'.$message.'

');