--- loncom/interface/lonparmset.pm 2009/03/31 14:08:20 1.440 +++ loncom/interface/lonparmset.pm 2009/05/08 22:47:01 1.445 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.440 2009/03/31 14:08:20 bisitz Exp $ +# $Id: lonparmset.pm,v 1.445 2009/05/08 22:47:01 neumanie Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1321,7 +1321,8 @@ sub parmmenu { ENDSCRIPT - $r->print(); + $r->print(); + $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View'))); $r->print("\n".'
');
+
+ $r->print(' ');
+ $r->print(' Step 1'); + $r->print('' );
+ $r->print(&Apache::lonhtmlcommon::start_pick_box());
+
&levelmenu($r,\%alllevs,$parmlev);
- $r->print(' | ');
- if ($parmlev ne 'general') {
- $r->print(''); - &mapmenu($r,\%allmaps,$pschp,\%maptitles); - $r->print(' | '); - } - $r->print('
'.$message.'
'); @@ -2498,9 +2511,6 @@ sub crsenv { } } - my $start_table =&Apache::loncommon::start_data_table(); - my $start_header_row=&Apache::loncommon::start_data_table_header_row(); - my $end_header_row =&Apache::loncommon::end_data_table_header_row(); # ------------------------- Re-init course environment entries for this session &Apache::lonnet::coursedescription($env{'request.course.id'}, @@ -2671,81 +2681,22 @@ sub crsenv { ); -# The following code is kept to have access to the old version of display order - -# my @Display_Order = ('url','description','courseid','cloners'); -# (my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom); -# if ($can_toggle_cat) { -# push(@Display_Order,'hidefromcat'); -# } -# if ($can_categorize) { -# push(@Display_Order,'categories'); -# } -# push (@Display_Order,('grading', -# 'externalsyllabus', -# 'default_xml_style','pageseparators', -# 'question.email','question.email.text','comment.email', -# 'comment.email.text','policy.email','policy.email.text', -# 'student_classlist_view', -# 'student_classlist_opt_in', -# 'student_classlist_portfiles', -# 'plc.roles.denied','plc.users.denied', -# 'pch.roles.denied','pch.users.denied', -# 'allow_limited_html_in_feedback', -# 'allow_discussion_post_editing', -# 'languages', -# 'timezone', -# 'datelocale', -# 'rolenames', -# 'nothideprivileged', -# 'rndseed', -# 'receiptalg', -# 'problem_stream_switch', -# 'suppress_tries', -# 'suppress_embed_prompt', -# 'default_paper_size', -# 'print_header_format', -# 'disable_receipt_display', -# 'spreadsheet_default_classcalc', -# 'spreadsheet_default_studentcalc', -# 'spreadsheet_default_assesscalc', -# 'hideemptyrows', -# 'default_enrollment_start_date', -# 'default_enrollment_end_date', -# 'tthoptions', -# 'texengine', -# 'disablesigfigs', -# 'disableexampointprint', -# 'task_messages','task_grading')); -# foreach my $parameter (sort(keys(%values))) { -# unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) || -# ($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/) -# || ($parameter eq 'type') || -# ($parameter =~ m/^(cc|in|ta|ep|ad|st)\.plaintext$/)) { -# if (! $descriptions{$parameter}) { -# $descriptions{$parameter}=$parameter; -# push(@Display_Order,$parameter); -# } -# } -# } - - - - # ---------------------------------------------------------------- # Begin: New Version with Parameter Categories sub parameter_row { - # Create parameter line for course environment screen + # Create parameter row for course environment screen + my ($parameter, $description) = @_; - my $output = ''; - # Column 1/3: Descritive text of current parameter - $output = &Apache::loncommon::start_data_table_row() - .''.&Apache::lonnet::plaintext($role,$crstype,undef,1). -# ' | '. -# &Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value', -# $values{$role.'.plaintext'}, -# 15,$onchange). -# ' |
'.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval'). -# ' |
');
+ #$r->print('
');
+ $r->print(' ');
+
$r->print('');
-
+
# Build the list data hash from the specified parms
my $listdata;
@@ -4728,12 +4604,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(<' );
my $sortorder=$env{'form.sortorder'};
unless ($sortorder) { $sortorder='realmstudent'; }
&sortmenu($r,$sortorder);
-
+ $r->print(' - + + ENDYESNO } else { $r->print(''); @@ -5095,7 +4971,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 = |