'
- .&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
+ if (%sectionhash || %grouphash) {
+ $r->print('
');
+ $r->print('');
+ $r->print(''.&mt('Group/Section').' ');
+ $r->print(' | ');
+ $r->print('');
+ $r->print($sections.$groups);
+ $r->print(' |
');
+ }
+ $r->print('
');
+ $r->print('');
+ $r->print(''. &mt('User').' ');
+ $r->print(' | ');
+ $r->print('');
+
+ $r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
,''
,' '
- ,$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('');
+
&mapmenu($r,\%allmaps,$pschp,\%maptitles);
- $r->print(' | ');
+
}
- $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.'
');