[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
raeburn
raeburn@source.lon-capa.org
Sun, 17 May 2009 01:02:10 -0000
This is a MIME encoded message
--raeburn1242522130
Content-Type: text/plain
raeburn Sun May 17 01:02:10 2009 EDT
Modified files:
/loncom/interface lonparmset.pm
Log:
- lonparmset::crsenv() eliminated.
- Routines in courseprefs.pm are used instead.
--raeburn1242522130
Content-Type: text/plain
Content-Disposition: attachment; filename="raeburn-20090517010210.txt"
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.449 loncom/interface/lonparmset.pm:1.450
--- loncom/interface/lonparmset.pm:1.449 Sat May 16 22:18:20 2009
+++ loncom/interface/lonparmset.pm Sun May 17 01:02:10 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.449 2009/05/16 22:18:20 neumanie Exp $
+# $Id: lonparmset.pm,v 1.450 2009/05/17 01:02:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -214,19 +214,6 @@
When storing information, store as part 0
When requesting information, request from full part
-=item crsenv()
-
-Show and set course data and parameters. This is a large routine that should
-be simplified and shortened... someday.
-
-Inputs: $r
-
-Returns: nothing
-
-=item can_modify_catsettings()
-
-=item assign_course_categories()
-
=item tablestart()
=item tableend()
@@ -322,7 +309,7 @@
=item handler() :
-Main handler. Calls &assessparms and &crsenv subroutines.
+Main handler. Calls &assessparms subroutine.
=back
@@ -2304,806 +2291,6 @@
$r->print('</form>'.&Apache::loncommon::end_page());
} # end sub assessparms
-
-
-sub crsenv {
- my $r=shift;
- my $setoutput='';
-
- &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
- text=>"Course Environment"});
- my $breadcrumbs =
- &Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');
- my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
- my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
-
- my (%crsinfo,$chome);
- my $crstype = &Apache::loncommon::course_type();
-
- #
- # Go through list of changes
- foreach (keys %env) {
- next if ($_!~/^form\.(.+)\_setparmval$/);
- my $name = $1;
- my $value = $env{'form.'.$name.'_value'};
- if ($name eq 'newp') {
- $name = $env{'form.newp_name'};
- }
- if ($name =~ /^rolenames_([^_]+)$/) {
- $name = $1.'.plaintext';
- my $standardtitle =
- &Apache::lonnet::plaintext($1,$crstype,$env{'request.course.id'},1);
- my %adv_roles =
- &Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
- if ($value ne '') {
- foreach my $role (keys(%adv_roles)) {
- if ($role =~ m{^cr/$match_domain/$match_name/\Q$value\E$}) {
- $setoutput.= '<span class="LC_error">'.
- &mt('Requested replacement title for [_1] role is already used as the name of a custom role ([_2]).',$standardtitle,$value).
- '</span><br />';
- undef($value);
- }
- }
- }
- }
- if ($name eq 'url') {
- $value=~s/^\/res\///;
- my $bkuptime=time;
- my @tmp = &Apache::lonnet::get
- ('environment',['url'],$dom,$crs);
- $setoutput.=&mt('Backing up previous URL').': '.
- &Apache::lonnet::put
- ('environment',
- {'top level map backup '.$bkuptime => $tmp[1] },
- $dom,$crs).
- '<br />';
- }
- #
- # Deal with modified default spreadsheets
- if ($name =~ /^spreadsheet_default_(classcalc|
- studentcalc|
- assesscalc)$/x) {
- my $sheettype = $1;
- if ($sheettype eq 'classcalc') {
- # no need to do anything since viewing the sheet will
- # cause it to be updated.
- } elsif ($sheettype eq 'studentcalc') {
- # expire all the student spreadsheets
- &Apache::lonnet::expirespread('','','studentcalc');
- } else {
- # expire all the assessment spreadsheets
- # this includes non-default spreadsheets, but better to
- # be safe than sorry.
- &Apache::lonnet::expirespread('','','assesscalc');
- # expire all the student spreadsheets
- &Apache::lonnet::expirespread('','','studentcalc');
- }
- }
- #
- # Deal with the enrollment dates
- if ($name =~ /^default_enrollment_(start|end)_date$/) {
- $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
- }
- #
- # Deal with the emails
- if ($name =~ /\.email$/) {
- foreach my $specifier (split(',',$value)) {
- my ($user,$sections_or_groups)=
- ($specifier=~/^([^\(]+)\(([^\)]+)\)/);
- if (!$sections_or_groups) {
- $user = $specifier;
- }
- my ($name,$domain) = split(':',$user);
- if (!defined($user) || !defined($domain)) {
- $setoutput.= '<br /> <span class="LC_error">'.
- &mt("Invalid e-mail address specified, address must be of the form username:domain what was specified was ([_1])",$user).
- '</span>';
- undef($value);
- } elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
- $setoutput.= '<br /> <span class="LC_error">'.
- &mt("Invalid e-mail address specified, user [_1] is unknown.",$name).
- '</span>';
- undef($value);
- }
- }
- }
- # Get existing cloners
- my @oldcloner = ();
- if ($name eq 'cloners') {
- my %clonenames=&Apache::lonnet::dump('environment',$dom,$crs,'cloners');
- if ($clonenames{'cloners'} =~ /,/) {
- @oldcloner = split/,/,$clonenames{'cloners'};
- } else {
- $oldcloner[0] = $clonenames{'cloners'};
- }
- }
- #
- # Let the user know we made the changes
- if ($name && defined($value)) {
- my %failed_cloners;
- if ($name eq 'cloners') {
- $value =~ s/\s//g;
- $value =~ s/^,//;
- $value =~ s/,$//;
- # check requested clones are valid users.
- %failed_cloners = &check_cloners(\$value,\@oldcloner);
- }
- my $put_result = &Apache::lonnet::put('environment',
- {$name=>$value},$dom,$crs);
- if ($put_result eq 'ok') {
- $setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>';
- if ($name =~ /^default_enrollment_(start|end)_date$/) {
- $setoutput .= &Apache::lonlocal::locallocaltime($value);
- } elsif ($name eq 'categories') {
- $setoutput .= $env{'form.categories_display'};
- } else {
- $setoutput .= $value;
- }
- $setoutput .= '</b>.<br />';
- if ($name eq 'cloners') {
- &change_clone($value,\@oldcloner);
- }
- # Update environment and nohist_courseids.db
- if (($name eq 'description') || ($name eq 'cloners') ||
- ($name eq 'hidefromcat') || ($name eq 'categories')) {
- if ($chome eq '') {
- %crsinfo =
- &Apache::lonnet::courseiddump($dom,'.',1,'.','.',
- $crs,undef,undef,'.');
- $chome = &Apache::lonnet::homeserver($crs,$dom);
- }
- }
- if ($name eq 'description' && defined($value)) {
- &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.description' => $value});
- if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
- $crsinfo{$env{'request.course.id'}}{'description'} = $value;
- my $putresult =
- &Apache::lonnet::courseidput($dom,\%crsinfo,
- $chome,'notime');
- }
- }
- if (($name eq 'cloners') || ($name eq 'hidefromcat') || ($name eq 'categories')) {
- if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
- &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.'.$name => $value});
- $crsinfo{$env{'request.course.id'}}{$name} = $value;
- my $putresult =
- &Apache::lonnet::courseidput($dom,\%crsinfo,
- $chome,'notime');
- }
- }
- } else {
- $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
- ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
- }
- if (($name eq 'cloners') && (keys(%failed_cloners) > 0)) {
- $setoutput.= &mt('Unable to include').': ';
- my @fails;
- my $num = 0;
- if (defined($failed_cloners{'format'})) {
- $fails[$num] .= '<b>'.$failed_cloners{'format'}.
- '</b>, '.&mt('reason').' - '.
- &mt('Invalid format');
- $num ++;
- }
- if (defined($failed_cloners{'domain'})) {
- $fails[$num] .= '<b>'.$failed_cloners{'domain'}.
- '</b>, '.&mt('reason').' - '.
- &mt('Domain does not exist');
- $num ++;
- }
- if (defined($failed_cloners{'newuser'})) {
- $fails[$num] .= '<b>'.$failed_cloners{'newuser'}. '</b>, '.&mt('reason').' - '.
- &mt('LON-CAPA user(s) do(es) not exist.').
- '.<br />'.&mt('Please ').
- ' <a href="/adm/createuser">'.
- &mt('add the user(s)').'</a>, '.
- &mt('and then return to the ').
- '<a href="/adm/parmset?action=crsenv">'.
- &mt('Course Parameters page').'</a> '.
- &mt('to add the new user(s) to the list of possible cloners');
- }
- $setoutput .= join('; ',@fails).'.<br />';
- }
- }
- }
-
-# ------------------------- Re-init course environment entries for this session
-
- &Apache::lonnet::coursedescription($env{'request.course.id'},
- {'freshen_cache' => 1});
-
-# -------------------------------------------------------- Get parameters again
-
- my %values=&Apache::lonnet::dump('environment',$dom,$crs);
- my $SelectStyleFile=&mt('Select Style File');
- my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');
- my $output='';
- my $output_SB = ''; # will be replaced by "$output" when all changes are done
- my $can_categorize;
- my %lt=&Apache::lonlocal::texthash(
- 'par' => 'Parameter',
- 'val' => 'Value',
- 'set' => 'Set?',
- 'sav' => 'Save',
- );
- if (! exists($values{'con_lost'})) {
- my %descriptions=
- ('url' => '<b>'.&mt('Top Level Map').'</b><br />'.
- '<a href="javascript:openbrowser'.
- "('envform','url','sequence')\">".
- &mt('Select Map').'</a><br /><span class="LC_warning"> '.
- &mt('Modification may make assessment data inaccessible!').
- '</span>',
- 'description' => '<b>'.&mt('Course Title').'</b>',
- 'courseid' => '<b>'.&mt('Course ID or number').
- '</b><br />'.
- '('.&mt('internal, optional').')',
- 'cloners' => '<b>'.&mt('Users allowed to clone course').'</b><br />'
- .'("<tt>'.&mt('user:domain,user:domain,*:domain').'</tt>")<br />'
- .&mt('Users with active Course Coordinator role in this course are permitted to clone and need not be included.').'<br />'
- .&mt('Use [_1] to allow course to be cloned by anyone in the specified domain.','"<tt>*:domain</tt>"').'<br />'
- .&mt('Use [_1] to allow unrestricted cloning in all domains.','"<tt>*</tt>"'),
- 'grading' => '<b>'.&mt('Grading').'</b><br />'.
- &mt('[_1], [_2], or [_3]','"<tt>standard</tt>"','"<tt>external</tt>"','"<tt>spreadsheet</tt>"').&Apache::loncommon::help_open_topic('GradingOptions'),
- 'task_grading' => '<b>'.&mt('Bridge Task Grading').'</b><br />'
- .&mt('Instructors and TAs in sections, when grading bridge tasks, should be allowed to grade other sections.').'<br />'
- .'('.&mt('[_1]: they are allowed (this is the default). [_2]: no, they can only grade their own section.','"<tt>any</tt>"','"<tt>section</tt>"').')',
- 'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b><br />'.
- '<a href="javascript:openbrowser'.
- "('envform','default_xml_style'".
- ",'sty')\">$SelectStyleFile</a><br />",
- 'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').'</b><br />'
- .'("<tt>'.&mt('user:domain,user:domain(section;section;...;*;...),...').'</tt>")',
- 'question.email.text' => '<b>'.&mt('Custom Text for Resource Content Question Option in Feedback').'</b>',
- 'comment.email' => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'
- .'("<tt>'.&mt('user:domain,user:domain(section;section;...;*;...),...').'</tt>")',
- 'comment.email.text' => '<b>'.&mt('Custom Text for Course Content Option in Feedback').'</b>',
- 'policy.email' => '<b>'.&mt('Feedback Addresses for Course Policy').'</b><br />'
- .'("<tt>'.&mt('user:domain,user:domain(section;section;...;*;...),...').'</tt>")',
- 'policy.email.text' => '<b>'.&mt('Custom Text for Course Policy Option in Feedback').'</b>',
- 'hideemptyrows' => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'
- .'('.&mt('[_1] for default hiding','"<tt>yes</tt>"').')',
- 'pageseparators' => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'
- .'('.&mt('[_1] for visible separation.','"<tt>yes</tt>"').' '
- .&mt('Changes will not show until next login.').')',
- 'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b><br />'
- .'('.&mt('[_1]: students can view all sections. [_2]: students can only view their own section. blank or [_3] prevents student view.','"<tt>all</tt>"','"<tt>section</tt>"','"<tt>disabled</tt>"').')',
- 'student_classlist_portfiles' => '<b>'.&mt('Include link to accessible portfolio files').'</b><br />'
- .'('.&mt("[_1] for link to each a listing of each student's files.",'"<tt>yes</tt>"').')',
- 'student_classlist_opt_in' => '<b>'.&mt("Student's agreement needed for listing in student-viewable roster").'</b><br />'
- .'('.&mt('[_1] to require students to opt-in to listing in the roster (on the roster page).','"<tt>yes</tt>"').')',
- 'plc.roles.denied'=> '<b>'.&mt('Disallow chat room use for Roles').'</b><br />'
- .'('.&mt('[_1]: student, [_2]: TA, [_3]: instructor','"<tt>st</tt>"','"<tt>ta</tt>"','"<tt>in</tt>"').')<br />'
- .'("<tt>'.&mt('role,role,...').'</tt>") '
- .Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
- 'plc.users.denied' =>
- '<b>'.&mt('Disallow chat room use for Users').'</b><br />'.
- '("<tt>'.&mt('user:domain,user:domain,...').'</tt>")',
-
- 'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').'</b><br />'
- .'('.&mt('[_1]: student, [_2]: TA, [_3]: instructor','"<tt>st</tt>"','"<tt>ta</tt>"','"<tt>in</tt>"')
- .'("<tt>'.&mt('role,role,...').'</tt>") '
- .Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
- 'pch.users.denied' =>
- '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
- '("<tt>'.&mt('user:domain,user:domain,...').'</tt>")',
- 'spreadsheet_default_classcalc'
- => '<b>'.&mt('Default Course Spreadsheet').'</b> '.
- '<a href="javascript:openbrowser'.
- "('envform','spreadsheet_default_classcalc'".
- ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
- 'spreadsheet_default_studentcalc'
- => '<b>'.&mt('Default Student Spreadsheet').'</b><br />'.
- '<a href="javascript:openbrowser'.
- "('envform','spreadsheet_default_calc'".
- ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
- 'spreadsheet_default_assesscalc'
- => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
- '<a href="javascript:openbrowser'.
- "('envform','spreadsheet_default_assesscalc'".
- ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
- 'allow_limited_html_in_feedback'
- => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
- '('.&mt('Set value to [_1] to allow.','"<tt>yes</tt>"').')',
- 'allow_discussion_post_editing'
- => '<b>'.&mt('Allow users with specified roles to edit/delete their own discussion posts').'</b><br />'
- .'('.&mt('[_1]: student, [_2]: TA, [_3]: instructor','"<tt>st</tt>"','"<tt>ta</tt>"','"<tt>in</tt>"').')<br />'
- .'('.&mt('Set value to [_1] to allow all roles.','"<tt>yes</tt>"').')'
- .'("<tt>'.&mt('role:section,role:section,...').'</tt>")<br />'
- .'('.&mt('Example: "<tt>st:001,st:002,in,cc</tt>" would permit students in sections 001 and 002 and instructors in any section, and course coordinators to edit their own posts.').')',
- 'rndseed'
- => '<b>'.&mt('Randomization algorithm used').'</b><br />'
- .'<span class="LC_error">'
- .&mt('Modifying this will make problems have different numbers and answers!')
- .'</span>',
- 'receiptalg'
- => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
- &mt('This controls how receipt numbers are generated.'),
- 'suppress_tries'
- => '<b>'.&mt('Suppress number of tries in printing').'</b><br />'.
- ' ('.&mt('[_1] to suppress, anything else to not suppress','"<tt>yes</tt>"').')',
- 'problem_stream_switch'
- => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
- ' ('.&mt('[_1] if allowed, anything else if not','"<tt>yes</tt>"').')',
- 'default_paper_size'
- => '<b>'.&mt('Default paper type').'</b><br />'.
- ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'.
- ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'.
- ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
- 'print_header_format'
- => ' <b>'.&mt('Print header format').'</b><br />'
- .&mt('Substitutions:<br />[_1]: student name, [_2]: course id, [_3]: assignment note. Numbers after the <tt>%</tt> limit the field size.','"<tt>%n</tt>"','"<tt>%c</tt>"','"<tt>%a</tt>"'),
- 'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
- 'default_enrollment_end_date' => '<b>'.&mt('Default ending date for student access.').'</b>',
- 'nothideprivileged' => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b><br />'
- .'("<tt>'.&mt('user:domain,user:domain,*:domain').'</tt>")',
- 'languages' => '<b>'.&mt('Languages used').'</b>',
- 'disable_receipt_display'
- => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
- ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
- 'task_messages'
- => '<b>'.&mt('Send message to student when clicking Done on Tasks').'</b><br /> ('.&mt('[_1] to send a message only to student, [_2] to send message to student and add record to user information page for instructors. Leave blank to disable.','"<tt>only_student</tt>"','"<tt>student_and_user_notes_screen</tt>"').')',
- 'disablesigfigs'
- => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
- ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
- 'disableexampointprint'
- => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.
- ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
- 'externalsyllabus'
- => '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',
- 'tthoptions'
- => '<b>'.&mt('Default set of options to pass to tth/m when converting TeX').'</b>',
-
- 'texengine'
- => '<b>'.&mt('Force all students in the course to use a specific math rendering engine.').'</b><br />'
- .'('.&mt("[_1], [_2] (Convert to Images), [_3] (TeX to HTML), or blank for student's preference",'"<tt>jsMath</tt>"','"<tt>mimetex</tt>"','"<tt>tth</tt>"').')',
- 'timezone'
- => '<b>'.&mt('Timezone in which the course takes place').'</b>',
-
- 'suppress_embed_prompt'
- => '<b>'.&mt('Suppress prompt to upload items referenced in a web page being uploaded to portfolio, when current role is student.').'</b><br />'.
- ' ('.&mt('[_1] to suppress, anything else to not suppress','"<tt>yes</tt>"').')',
- 'hidefromcat'
- => '<b>'.&mt('Exclude from course catalog').'</b><br />'.
- ' ('.&mt('[_1] to exclude, anything else to include - included if assigned an institutional code, or manually catagorized','"<tt>yes</tt>"').')',
- 'categories'
- => '<b>'.&mt('Categorize course').'</b> <a href="javascript:catsbrowser()">'.
- &mt('Display Categories').'</a>',
- 'datelocale'
- => '<b>'.&mt('Locale used for course calendar').'</b>',
- 'rolenames'
- => '<b>'.&mt('Replacement titles for standard course roles').'</b><br />'.
- '('.&mt('To replace the standard title for a course role, enter the title you wish to use, otherwise leave blank.').')',
- );
-
-
-# ----------------------------------------------------------------
-# Begin: New Version with Parameter Categories
-
- sub parameter_row {
- # Create parameter row for course environment screen
-
- my ($parameter, $description) = @_;
-
- # Start Parameter Row
- my $output = &Apache::loncommon::start_data_table_row();
-
- # Column 1/3: Descriptive text of current parameter
- $output .= '<td>'.$description.'</td>';
-
- # Column 2/3: Input field (Sometimes special field(s), depending on parameter)
-
- # onchange is javascript to automatically check the 'Set' button.
- my $onchange = 'onFocus="javascript:window.document.forms'
- ."['envform'].elements['".$parameter."_setparmval']"
- .'.checked=true;"';
- if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
- $output .= '<td>'.
- &Apache::lonhtmlcommon::date_setter('envform',
- $parameter.'_value',
- $values{$parameter},
- $onchange).
- '</td>';
- } elsif ($parameter eq 'timezone') {
- my $includeempty = 1;
- my $timezone = &Apache::lonlocal::gettimezone();
- $output .= '<td>'.
- &Apache::loncommon::select_timezone($parameter.'_value',
- $timezone,
- $onchange,$includeempty).'</td>';
- } elsif ($parameter eq 'datelocale') {
- my $includeempty = 1;
- my $locale_obj = &Apache::lonlocal::getdatelocale();
- my $currdatelocale;
- if (ref($locale_obj)) {
- $currdatelocale = $locale_obj->id();
- }
- $output .= '<td>'.
- &Apache::loncommon::select_datelocale($parameter.'_value',
- $currdatelocale,
- $onchange,$includeempty).'</td>';
- } elsif ($parameter eq 'rolenames') {
- $output.= '<td><table>';
- foreach my $role ('cc','in','ta','ep','ad','st') {
- my $onchange = 'onFocus="javascript:window.document.forms'.
- "['envform'].elements['".
- $parameter.'_'.$role."_setparmval']".
- '.checked=true;"';
- $output.= '<tr><td>'.&Apache::lonnet::plaintext($role,$crstype,undef,1).
- '</td><td>'.
- &Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value',
- $values{$role.'.plaintext'},
- 15,$onchange).
- '</td></tr>';
- }
- $output .= '</table></td><td><table>';
- foreach my $role ('cc','in','ta','ep','ad','st') {
- $output .= '<tr><td>'.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval').
- '</td></tr>';
- }
- $output .= '</table></td>';
- } elsif ($parameter eq 'categories') {
- my $catdisplay;
- if ($values{'categories'} ne '') {
- my @curritems = split(/\&/,$values{'categories'});
- foreach my $item (@curritems) {
- my ($name,$parent,$pos) = split(/:/,$item);
- $catdisplay .= &unescape($name).'&';
- }
- $catdisplay =~ s/\&$//;
- }
- $output .= '<td>'.
- '<input type="hidden" name="categories_value" value="'.
- $values{'categories'}.'" />'.
- '<input type="textbox" name="categories_display" value="'.
- $catdisplay.'" readonly="readonly" size="40" /></td>';
- } else { # Display default textbox in all other cases
- $output .= '<td>'
- .&Apache::lonhtmlcommon::textbox($parameter.'_value',
- $values{$parameter},
- 40,
- $onchange)
- .'</td>';
- }
-
- # Column 3/3: Check Box (in most cases)
- unless ($parameter eq 'rolenames') {
- $output .= '<td>'
- .&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval')
- .'</td>';
- }
-
- # End Parameter Row
- $output .= &Apache::loncommon::end_data_table_row();
-
- return $output;
- } # End sub parameter_row
-
-
- # Parameter Category Names
- my %parm_cat_names = &Apache::lonlocal::texthash (
- 'cat_0' => 'Parameter Category Zero',
- 'cat_1' => 'Parameter Category One',
- 'cat_2' => 'Parameter Category Two',
- 'cat_3' => 'Parameter Category Three',
- 'cat_4' => 'Parameter Category Four',
- 'cat_5' => 'Parameter Category Five',
- 'cat_6' => 'Parameter Category Six',
- 'cat_7' => 'Parameter Category Seven',
- 'cat_can' => 'Parameter Category Can',
- 'cat_custom' => 'Parameter Category Custom',
- );
-
- # Display Order of Parameter Categories
- my @Display_Order = (
- 'cat_0',
- 'cat_1',
- 'cat_2',
- 'cat_3',
- 'cat_4',
- 'cat_5',
- 'cat_6',
- 'cat_7',
- 'cat_can',
- 'cat_custom',
- );
-
- # Link Parameter Categories with Parameters
- # Order of parameters is display order
- my %parm_cat_parms = (
- 'cat_0' => [
- 'url',
- 'description',
- 'courseid',
- 'cloners'
- ],
- 'cat_1' => [
- 'grading',
- 'externalsyllabus',
- 'default_xml_style',
- 'pageseparators'
- ],
- 'cat_2' => [
- 'question.email',
- 'question.email.text',
- 'comment.email',
- 'comment.email.text',
- 'policy.email',
- 'policy.email.text',
- ],
- 'cat_3' => [
- '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',
- ],
- 'cat_4' => [
- 'languages',
- 'timezone',
- 'datelocale',
- 'rolenames',
- 'nothideprivileged',
- 'rndseed',
- 'receiptalg',
- 'problem_stream_switch',
- 'suppress_tries',
- 'suppress_embed_prompt',
- 'default_paper_size',
- 'print_header_format',
- 'disable_receipt_display',
- ],
- 'cat_5' => [
- 'spreadsheet_default_classcalc',
- 'spreadsheet_default_studentcalc',
- 'spreadsheet_default_assesscalc',
- 'hideemptyrows',
- ],
- 'cat_6' => [
- 'default_enrollment_start_date',
- 'default_enrollment_end_date',
- ],
- 'cat_7' => [
- 'tthoptions',
- 'texengine',
- 'disablesigfigs',
- 'disableexampointprint',
- 'task_messages',
- 'task_grading',
- ],
- );
-
- # Add special parameters depending on special context to parameter categories hash
- my @can_cats;
- (my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom);
- if ($can_toggle_cat) {
- push(@can_cats,'hidefromcat');
- }
- if ($can_categorize) {
- push(@can_cats,'categories');
- }
- $parm_cat_parms{'cat_can'} = [@can_cats];
-
- # Add custom parameters to custom parameter category
- my @custom_cats;
- 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(@custom_cats,$parameter);
- }
- }
- }
- $parm_cat_parms{'cat_custom'} = [@custom_cats];
-
-
-# Display Course Parameter Overview
-# Provide hyperlinks to detailed parameter settings
-$output_SB .= '<a name="parmlist" />'
- .'<div class="LC_ContentBoxSpecial">'
- .'<h2 class="LC_hcell">'.&mt('Course Parameter Overview').'</h2>'
- .'<ul>';
-foreach my $catkey (@Display_Order) {
- if (!@{$parm_cat_parms{$catkey}}) { next; } # Only display non-empty categories
- $output_SB .= '<li>'
- .'<a href="#parmlist_'.$catkey.'">'
- .$parm_cat_names{$catkey}
- .'</a>'
- .'</li>';
-}
-$output_SB .= '</ul>'
- .'</div>';
-
-
-my $buttons='<div align="right">'
- .'<input type="submit" name="crsenv" value="'.&mt('Save All').'" />'
- .'<br /><a href="#parmlist">'.&mt('Back to Course Parameter Overview').'</a>'
- .'</div>';
-
-# Display all Parameters grouped by categories
-$output_SB .= '<h2>'.&mt('Course Parameters').'</h2>';
-
-foreach my $catkey (@Display_Order) {
- if (!@{$parm_cat_parms{$catkey}}) { next; } # Only display non-empty categories
- $output_SB .= &Apache::loncommon::start_data_table();
- $output_SB .= &Apache::loncommon::start_data_table_empty_row()
- .'<td colspan="3">'
- .'<a name="parmlist_'.$catkey.'" />'
- .'<h3>'.$parm_cat_names{$catkey}.'</h3>'
- .'</td>'
- .&Apache::loncommon::end_data_table_empty_row
- .&Apache::loncommon::start_data_table_header_row()
- .'<th>'.$lt{'par'}.'</th><th>'.$lt{'val'}.'</th><th>'.$lt{'set'}.'</th>'
- .&Apache::loncommon::end_data_table_header_row();
-
- foreach my $parameter (@{$parm_cat_parms{$catkey}}) {
- my $description = $descriptions{$parameter};
- $output_SB .= ¶meter_row($parameter, $description);
- }
- # Add special row to custom category
- # Offer possibilty to create a new environment variable
- if ($catkey eq 'cat_custom') {
- my $onchange = 'onFocus="javascript:window.document.forms'
- .'[\'envform\'].elements[\'newp_setparmval\']'
- .'.checked=true;"';
- $output_SB .= &Apache::loncommon::start_data_table_row()
- .'<td>'
- .'<i>'.&mt('Create New Environment Variable').'</i><br />'
- .'<input type="text" size="40" name="newp_name" '.$onchange.' />'
- .'</td><td>'
- .'<input type="text" size="40" name="newp_value" '.$onchange.' />'
- .'</td><td>'
- .'<input type="checkbox" name="newp_setparmval" /></td>'
- .&Apache::loncommon::end_data_table_row();
- }
- # Add buttons row at end of each category
- $output_SB .= &Apache::loncommon::start_data_table_empty_row()
- .'<td colspan="3">'
- .$buttons
- .'</td>'
- .&Apache::loncommon::end_data_table_empty_row;
-
- $output_SB .= &Apache::loncommon::end_data_table()
- . '<br />';
-}
-
-# End: New Version with Parameter Categories
-# ----------------------------------------------------------------
-
-
- }
-
- my ($jscript,$categorize_js);
- my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');
- if ($can_categorize) {
- $categorize_js = <<ENDSCRIPT;
-function catsbrowser() {
- var catswin = null;
- var url = '/adm/parmset?action=categorizecourse';
- if (!catswin || catswin.closed) {
- catswin=window.open(url,'categorieswin','height=480,width=600,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
- } else {
- catswin.focus();
- }
-}
-ENDSCRIPT
- }
- $jscript = '<script type="text/javascript" language="Javascript">'."\n".
- $browse_js."\n".$categorize_js."\n".'</script>';
- my $start_page =
- &Apache::loncommon::start_page('Set Course Environment',
- $jscript);
- my $end_page =
- &Apache::loncommon::end_page();
- $r->print(<<ENDENV);
-$start_page
-$breadcrumbs
-<form method="post" action="/adm/parmset?action=crsenv" name="envform">
-$setoutput
-$output_SB
-</form>
-$end_page
-ENDENV
-}
-
-sub can_modify_catsettings {
- my ($dom) = @_;
- my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom);
- my ($can_toggle_cat,$can_categorize);
- if (ref($domconf{'coursecategories'}) eq 'HASH') {
- if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') {
- $can_toggle_cat = 1;
- }
- if ($domconf{'coursecategories'}{'categorize'} eq 'crs') {
- $can_categorize = 1;
- }
- }
- return ($can_toggle_cat,$can_categorize);
-}
-
-sub assign_course_categories {
- my ($r) = @_;
- my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
- my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
- my $hascats = 0;
- my $cathash;
- my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
- if (ref($domconf{'coursecategories'}) eq 'HASH') {
- $cathash = $domconf{'coursecategories'}{'cats'};
- if (ref($cathash) eq 'HASH') {
- $hascats = 1;
- }
- }
- my $catwin_js;
- if ($hascats) {
- my $alert = &mt('Use \"Save\" in the main window to save course categories');
- $catwin_js = <<ENDSCRIPT;
-<script type="text/javascript">
-
-function updateCategories() {
- var newcategories = '';
- var unescapedcats = '';
- if (document.chgcats.usecategory.length) {
- for (var i=0; i<document.chgcats.usecategory.length; i++) {
- if (document.chgcats.usecategory[i].checked == true) {
- newcategories = newcategories + document.chgcats.usecategory[i].value + '&';
- unescapedcats = unescapedcats + document.chgcats.catname[i].value + ' & ';
- }
- }
- if (newcategories.length > 0) {
- newcategories = newcategories.slice(0,-1);
- }
- if (unescapedcats.length > 0) {
- unescapedcats = unescapedcats.slice(0,-3);
- }
- } else {
- if (document.chgcats.usecategory.checked == true) {
- newcategories = document.chgcats.usecategory.value;
- unescapedcats = document.chgcats.catname.value;
- }
- }
- opener.document.envform.categories_value.value = newcategories;
- opener.document.envform.categories_display.value = unescapedcats;
- opener.document.envform.categories_setparmval.checked = true;
- alert("$alert");
- self.close();
- return;
-}
-
-</script>
-ENDSCRIPT
- } else {
- my $onload;
- }
- my $start_page =
- &Apache::loncommon::start_page('Course Categories',$catwin_js,
- {'only_body' => 1,});
- my $end_page = &Apache::loncommon::end_page();
- my $categoriesform = '<h3>'.&mt('Categorize Course').'</h3>';
- if ($hascats) {
- my %currsettings =
- &Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum);
- $categoriesform .= &mt('Assign one or more categories to this course.').'<br /><br />'.
- '<form name="chgcats" action="/adm/parmset" method="post">'."\n"
- .&Apache::loncommon::assign_categories_table($cathash,
- $currsettings{'categories'})."\n"
- .'<br /><input type="button" name="changes" value="'
- .&mt('Copy to main window').'" '
- .'onclick="javascript:updateCategories()" /></form><br />';
- } else {
- $categoriesform .= &mt('No categories defined for this domain');
- }
- $r->print($start_page.$categoriesform.$end_page);
- return;
-}
-
##################################################
# Overview mode
##################################################
@@ -4064,10 +3251,10 @@
my @menu =
( { categorytitle=>'Settings for this Course',
items => [
- { linktext => 'Course Environment',
- url => '/adm/parmset?action=crsenv',
+ { linktext => 'Course Configuration',
+ url => '/adm/courseprefs?origin=params',
permission => $parm_permission,
- linktitle =>'Edit environment settings for this course.' ,
+ linktitle =>'Edit course configuration.' ,
icon => 'preferences-desktop-remote-desktop.png' ,
#help => 'Course_Environment',
},
@@ -4992,8 +4179,6 @@
&assessparms($r);
} elsif (! exists($env{'form.action'})) {
&print_main_menu($r,$parm_permission);
- } elsif ($env{'form.action'} eq 'crsenv') {
- &crsenv($r);
} elsif ($env{'form.action'} eq 'setoverview') {
&overview($r);
} elsif ($env{'form.action'} eq 'addmetadata') {
--raeburn1242522130--