// print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());
- $r->print('');
#Display Unit 2 "Select Parameter"
- $r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Parameter Specification')));
+ $r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
- $r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Specification (optional)')));
+ $r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));
} else {
# parameter screen for a single resource.
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
@@ -2239,7 +2238,7 @@ COURSECONTENTSCRIPT
''.
'
');
- $r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Specification (optional)'),'no_number'));
+ $r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('User Specification (optional)')));
}
$r->print(&Apache::lonhtmlcommon::start_pick_box());
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
@@ -3175,7 +3174,7 @@ ENDOVER
\%keyorder,\%defkeytype);
if (grep {$_ eq 'all'} (@psprt)) {
- @psprt = keys(%allparts);
+ @psprt = keys(%allparts);
}
# Menu to select levels, etc
@@ -3187,10 +3186,10 @@ ENDOVER
$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);
if ($parmlev ne 'general') {
- #$r->print('');
+ &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);
+ #$r->print('');
}
$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());
@@ -3208,7 +3207,7 @@ ENDOVER
$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
#$r->print(''.
- $r->print(''.
+ $r->print(''.
''.&mt('Parts').' | '.&mt('Section(s)').
' | '.&mt('Group(s)').' |
---|
');
&partmenu($r,\%allparts,\@psprt);
@@ -3243,15 +3242,15 @@ ENDOVER
if (($env{'form.store'}) || ($env{'form.dis'})) {
- if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
+ if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
# Read modified data
- my $resourcedata=&readdata($crs,$dom);
+ my $resourcedata=&readdata($crs,$dom);
# List data
- &listdata($r,$resourcedata,$listdata,$sortorder);
+ &listdata($r,$resourcedata,$listdata,$sortorder);
}
$r->print(&tableend().
((($env{'form.store'}) || ($env{'form.dis'}))?'':'').
| |