--- loncom/interface/lonparmset.pm 2009/11/05 18:10:37 1.477
+++ loncom/interface/lonparmset.pm 2009/11/06 10:14:12 1.478
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.477 2009/11/05 18:10:37 raeburn Exp $
+# $Id: lonparmset.pm,v 1.478 2009/11/06 10:14:12 amueller Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2197,9 +2197,7 @@ ENDPARMSELSCRIPT
# Display Unit 1 "General Parameters"
if (!$pssymb) {
- #$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));
- $r->print('
');
- $r->print('
'.&mt('Resource Specification').'
');
+ $r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('Resource Specification')));
$r->print(<
// print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('');
- $r->print('');
#Display Unit 2 "Select Parameter"
- #$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
- $r->print('');
- $r->print('
'.&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)')));
} else {
+ # parameter screen for a single resource.
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
my $title = &Apache::lonnet::gettitle($pssymb);
$r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).
''.
'
');
+ $r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Specification (optional)'),'no_number'));
}
- $r->print('');
- #$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));
- $r->print('');
- $r->print('
'.&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());
- $r->print('');
# parm selection is shown: display parm update button
$r->print(''
@@ -2275,6 +2268,7 @@ COURSECONTENTSCRIPT
.''
.'
'
);
+
# Display Messages
$r->print(''.$message.'
');