--- loncom/interface/lonparmset.pm 2009/03/31 17:04:15 1.441 +++ loncom/interface/lonparmset.pm 2009/05/06 16:19:34 1.444 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.441 2009/03/31 17:04:15 bisitz Exp $ +# $Id: lonparmset.pm,v 1.444 2009/05/06 16:19:34 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1322,6 +1322,11 @@ sub parmmenu { ENDSCRIPT $r->print(); + $r->print(''); + $r->print(''); + $r->print('
'.&mt('Select Parameters to View').'
'); + $r->print(''); + $r->print('
'); $r->print("\n".''); my $cnt=0; foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { @@ -1379,10 +1384,16 @@ ENDSCRIPT .'' .'
' ); + $r->print('
'); } sub partmenu { my ($r,$allparts,$psprt)=@_; + $r->print(''); + $r->print(''); + $r->print('
'. &mt('Select Parts to View').'
'); + $r->print(''); + $r->print('
'); $r->print(''); + $r->print('
'); } sub usermenu { @@ -1417,7 +1429,7 @@ sub usermenu { my $g_s_header=''; my $g_s_footer=''; - + if (%sectionhash) { $sections=&mt('Section:').' ' ,' ' - ,$chooseopt) - .'' - .'' - ); + ,$chooseopt)); + + $r->print(''); } sub displaymenu { my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; - $r->print('
'.&mt('Select Parameters to View').''. - &mt('Select Parts to View').'
'); + $r->print('
'); + $r->print('

Step 2

'); + $r->print('
'); + $r->print(''); + + #$r->print('
'.&mt('Select Parameters to View').''. &mt('Select Parts to View').'
'); &parmmenu($r,$allparms,$pscat,$keyorder); - $r->print(''); + &partmenu($r,$allparts,$psprt); - $r->print('
'); + $r->print('
'); } -sub mapmenu { - my ($r,$allmaps,$pschp,$maptitles)=@_; - $r->print(''.&mt('Select Enclosing Map or Folder').' '); +sub mapmenu {## + my ($r,$allmaps,$pschp,$maptitles)=@_; + $r->print(''); + $r->print(''); + $r->print('
'.&mt('Select Enclosing Map or Folder').'
'); + $r->print(''); + $r->print('
'); $r->print('"); + $r->print('
'); } sub levelmenu { - my ($r,$alllevs,$parmlev)=@_; - $r->print(''.&mt('Select Parameter Level'). - &Apache::loncommon::help_open_topic('Course_Parameter_Levels').' '); + my ($r,$alllevs,$parmlev)=@_; + $r->print(''); + $r->print(''); + $r->print('
'.&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'
'); + $r->print(''); + $r->print('
'); $r->print('"); + $r->print('
'); } @@ -1861,16 +1889,21 @@ sub assessparms { '" name="recent_'.$_.'" />'); } - if (!$pssymb) { - $r->print('
'); + if (!$pssymb) { + $r->print('
'); + $r->print('

Step 1

'); + $r->print('
'); + $r->print(''); &levelmenu($r,\%alllevs,$parmlev); - $r->print(''); + if ($parmlev ne 'general') { - $r->print(''); + } - $r->print('
'); + &mapmenu($r,\%allmaps,$pschp,\%maptitles); - $r->print('
'); + $r->print('
'); + $r->print(''); + $r->print(''); &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder); } else { my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); @@ -1880,7 +1913,14 @@ sub assessparms { '

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

Step 3

'); + $r->print('
'); + $r->print(''); &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups); + $r->print('
'); + $r->print('
'); + $r->print('
'); $r->print('

'.$message.'

'); @@ -4575,12 +4615,12 @@ ENDINPUTDATE } elsif ($defkeytype{$tempkey} eq 'string_yesno') { my $yeschecked=''; my $nochecked=''; - if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; } - if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; } + if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked=' checked="checked"'; } + if (&rulescache($tempkey.'_value') eq 'no') { $nochecked=' checked="checked"'; } $r->print(< $lt{'yes'}
- +
+ ENDYESNO } else { $r->print(''); @@ -4942,7 +4982,8 @@ sub handler { text=>"Parameter Manager", faq=>10, bug=>'Instructor Interface', - help => 'Parameter_Manager'}); + help => + 'Parameter_Manager,Course_Environment,Parameter_Helper,Parameter_Overview,Table_Mode'}); # ----------------------------------------------------- Needs to be in a course my $parm_permission =