--- loncom/interface/lonparmset.pm 2010/01/10 21:14:14 1.490
+++ loncom/interface/lonparmset.pm 2010/01/12 18:11:58 1.491
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.490 2010/01/10 21:14:14 raeburn Exp $
+# $Id: lonparmset.pm,v 1.491 2010/01/12 18:11:58 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1361,13 +1361,17 @@ ENDSCRIPT
.''
);
}
- $r->print(''
- .'
'
- .&mt('Show detailed Parameter Selection')
- .'
'
- );
+ $r->print('');
+ $r->print(' ');
&shortCuts($r,$allparms,$pscat,$keyorder);
+ $r->print(' ');
+
+ $r->print(
+ ''
+ .&mt('Show detailed Parameter Selection')
+ .'
'
+ );
$r->print(&Apache::lonhtmlcommon::row_closure(1));
}
@@ -1551,45 +1555,33 @@ sub parmboxes {
sub shortCuts {
my ($r,$allparms,$pscat,$keyorder)=@_;
- #part to print out the shortcuts for parmselection
- $r->print('');
+ # Parameter Selection
+ $r->print(
+ &Apache::lonhtmlcommon::start_funclist(&mt('Parameter Selection'))
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Select All').' ')
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Select Common Only').' ')
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Unselect All').' ')
+ .&Apache::lonhtmlcommon::end_funclist()
+ );
+
+ # Add Selection for...
+ $r->print(
+ &Apache::lonhtmlcommon::start_funclist(&mt('Add Selection for...'))
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Problem Dates').' ')
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Content Dates').' ')
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Discussion Settings').' ')
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Visibilities').' ')
+ .&Apache::lonhtmlcommon::add_item_funclist(
+ ''.&mt('Part Parameters').' ')
+ .&Apache::lonhtmlcommon::end_funclist()
+ );
}
sub partmenu {
@@ -1721,11 +1713,6 @@ sub displaymenu {
&parmmenu($r,$allparms,$pscat,$keyorder);
$r->print(&Apache::lonhtmlcommon::end_pick_box());
&parmboxes($r,$allparms,$pscat,$keyorder);
- $r->print(&Apache::lonhtmlcommon::start_pick_box());
- $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
- &partmenu($r,$allparts,$psprt);
- $r->print(&Apache::lonhtmlcommon::row_closure(1));
- $r->print(&Apache::lonhtmlcommon::end_pick_box());
}
sub mapmenu {
@@ -2198,7 +2185,6 @@ function parmsel_show() {
ENDPARMSELSCRIPT
- # Display Unit 1 "General Parameters"
if (!$pssymb) {
my $parmselhiddenstyle=' style="display:none"';
if($env{'form.hideparmsel'} eq 'hidden') {
@@ -2207,6 +2193,7 @@ ENDPARMSELSCRIPT
$r->print('');
}
+ # Step 1
$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));
$r->print(<
@@ -2229,26 +2216,33 @@ COURSECONTENTSCRIPT
$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);
- $r->print(&Apache::lonhtmlcommon::row_closure(1));
- $r->print(&Apache::lonhtmlcommon::end_pick_box());
- $r->print(&Apache::lonhtmlcommon::start_pick_box());
+ $r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
+ $r->print(&Apache::lonhtmlcommon::row_closure());
+ $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
+ &partmenu($r,\%allparts,\@psprt);
$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());
- #Display Unit 2 "Select Parameter"
+
+ # Step 2
$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
+
+ # Step 3
$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));
$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());
+
+ # Update Display Button
$r->print(''
.' '
.' '
.'
');
$r->print(' ');
+
# Offer link to display parameter selection again
$r->print('