print(" ".&mt("ALL")." $csec \n")};
if ($cgroup) {$r->print(&mt("Group")." $cgroup \n")};
$r->print("\n");
@@ -2295,959 +2659,6 @@ ENDMAPONE
$r->print(''.&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.= ''.
- &mt('Requested replacement title for [_1] role is already used as the name of a custom role ([_2]).',$standardtitle,$value).
- ' '.
- &mt("Invalid e-mail address specified, address must be of the form username:domain what was specified was ([_1])",$user).
- ' ';
- undef($value);
- } elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
- $setoutput.= ''.
- &mt("Invalid e-mail address specified, user [_1] is unknown.",$name).
- ' ';
- 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').' '.$name.' '.&mt('to').' ';
- 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 .= ' .'.$name.' '.&mt('to').
- ' '.$value.' '.&mt('due to').' '.$put_result.'.'.$failed_cloners{'format'}.
- ' , '.&mt('reason').' - '.
- &mt('Invalid format');
- $num ++;
- }
- if (defined($failed_cloners{'domain'})) {
- $fails[$num] .= ''.$failed_cloners{'domain'}.
- ' , '.&mt('reason').' - '.
- &mt('Domain does not exist');
- $num ++;
- }
- if (defined($failed_cloners{'newuser'})) {
- $fails[$num] .= ''.$failed_cloners{'newuser'}. ' , '.&mt('reason').' - '.
- &mt('LON-CAPA user(s) do(es) not exist.').
- '.'.
- &mt('add the user(s)').' , '.
- &mt('and then return to the ').
- ''.
- &mt('Course Parameters page').' '.
- &mt('to add the new user(s) to the list of possible cloners');
- }
- $setoutput .= join('; ',@fails).'.'.&mt('Top Level Map').' ".
- &mt('Select Map').' '.
- &mt('Modification may make assessment data inaccessible!').
- ' ',
- 'description' => ''.&mt('Course Title').' ',
- 'courseid' => ''.&mt('Course ID or number').
- ' '.&mt('Users allowed to clone course').' '.&mt('user:domain,user:domain,*:domain').' ")*:domain "').'* "'),
- 'grading' => ''.&mt('Grading').' standard "','"external "','"spreadsheet "').&Apache::loncommon::help_open_topic('GradingOptions'),
- 'task_grading' => ''.&mt('Bridge Task Grading').' any "','"section "').')',
- 'default_xml_style' => ''.&mt('Default XML Style File').' $SelectStyleFile '.&mt('Feedback Addresses for Resource Content Question').' '.&mt('user:domain,user:domain(section;section;...;*;...),...').' ")',
- 'question.email.text' => ''.&mt('Custom Text for Resource Content Question Option in Feedback').' ',
- 'comment.email' => ''.&mt('Feedback Addresses for Course Content Comments').' '.&mt('user:domain,user:domain(section;section;...;*;...),...').' ")',
- 'comment.email.text' => ''.&mt('Custom Text for Course Content Option in Feedback').' ',
- 'policy.email' => ''.&mt('Feedback Addresses for Course Policy').' '.&mt('user:domain,user:domain(section;section;...;*;...),...').' ")',
- 'policy.email.text' => ''.&mt('Custom Text for Course Policy Option in Feedback').' ',
- 'hideemptyrows' => ''.&mt('Hide Empty Rows in Spreadsheets').' yes "').')',
- 'pageseparators' => ''.&mt('Visibly Separate Items on Pages').' yes "').' '
- .&mt('Changes will not show until next login.').')',
- 'student_classlist_view' => ''.&mt('Allow students to view classlist.').' all "','"section "','"disabled "').')',
- 'student_classlist_portfiles' => ''.&mt('Include link to accessible portfolio files').' yes "').')',
- 'student_classlist_opt_in' => ''.&mt("Student's agreement needed for listing in student-viewable roster").' yes "').')',
- 'plc.roles.denied'=> ''.&mt('Disallow chat room use for Roles').' st "','"ta "','"in "').')'.&mt('role,role,...').' ") '
- .Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
- 'plc.users.denied' =>
- ''.&mt('Disallow chat room use for Users').' '.&mt('user:domain,user:domain,...').' ")',
-
- 'pch.roles.denied'=> ''.&mt('Disallow Resource Discussion for Roles').' st "','"ta "','"in "')
- .'("'.&mt('role,role,...').' ") '
- .Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
- 'pch.users.denied' =>
- ''.&mt('Disallow Resource Discussion for Users').' '.&mt('user:domain,user:domain,...').' ")',
- 'spreadsheet_default_classcalc'
- => ''.&mt('Default Course Spreadsheet').' '.
- '$SelectSpreadsheetFile '.&mt('Default Student Spreadsheet').' $SelectSpreadsheetFile '.&mt('Default Assessment Spreadsheet').' '.
- '$SelectSpreadsheetFile '.&mt('Allow limited HTML in discussion posts').' yes "').')',
- 'allow_discussion_post_editing'
- => ''.&mt('Allow users with specified roles to edit/delete their own discussion posts').' st "','"ta "','"in "').')yes "').')'
- .'("'.&mt('role:section,role:section,...').' ")st:001,st:002,in,cc " would permit students in sections 001 and 002 and instructors in any section, and course coordinators to edit their own posts.').')',
- 'rndseed'
- => ''.&mt('Randomization algorithm used').' '
- .&mt('Modifying this will make problems have different numbers and answers!')
- .' ',
- 'receiptalg'
- => ''.&mt('Receipt algorithm used').' '.&mt('Suppress number of tries in printing').' yes "').')',
- 'problem_stream_switch'
- => ''.&mt('Allow problems to be split over pages').' yes "').')',
- 'default_paper_size'
- => ''.&mt('Default paper type').' '.&mt('Print header format').' % limit the field size.','"%n "','"%c "','"%a "'),
- 'default_enrollment_start_date' => ''.&mt('Default beginning date for student access.').' ',
- 'default_enrollment_end_date' => ''.&mt('Default ending date for student access.').' ',
- 'nothideprivileged' => ''.&mt('Privileged users that should not be hidden on staff listings').' '.&mt('user:domain,user:domain,*:domain').' ")',
- 'languages' => ''.&mt('Languages used').' ',
- 'disable_receipt_display'
- => ''.&mt('Disable display of problem receipts').' yes ').')',
- 'task_messages'
- => ''.&mt('Send message to student when clicking Done on Tasks').' only_student "','"student_and_user_notes_screen "').')',
- 'disablesigfigs'
- => ''.&mt('Disable checking of Significant Figures').' yes ').')',
- 'disableexampointprint'
- => ''.&mt('Disable automatically printing point values onto exams.').' yes ').')',
- 'externalsyllabus'
- => ''.&mt('URL of Syllabus (not using internal handler)').' ',
- 'tthoptions'
- => ''.&mt('Default set of options to pass to tth/m when converting TeX').' ',
-
- 'texengine'
- => ''.&mt('Force all students in the course to use a specific math rendering engine.').' jsMath "','"mimetex "','"tth "').')',
- 'timezone'
- => ''.&mt('Timezone in which the course takes place').' ',
-
- 'suppress_embed_prompt'
- => ''.&mt('Suppress prompt to upload items referenced in a web page being uploaded to portfolio, when current role is student.').' yes "').')',
- 'hidefromcat'
- => ''.&mt('Exclude from course catalog').' yes "').')',
- 'categories'
- => ''.&mt('Categorize course').' '.
- &mt('Display Categories').' ',
- 'datelocale'
- => ''.&mt('Locale used for course calendar').' ',
- 'rolenames'
- => ''.&mt('Replacement titles for standard course roles').' '.$description.' ';
-
- # 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 .= ''.
- &Apache::lonhtmlcommon::date_setter('envform',
- $parameter.'_value',
- $values{$parameter},
- $onchange).
- ' ';
- } elsif ($parameter eq 'timezone') {
- my $includeempty = 1;
- my $timezone = &Apache::lonlocal::gettimezone();
- $output .= ''.
- &Apache::loncommon::select_timezone($parameter.'_value',
- $timezone,
- $onchange,$includeempty).' ';
- } elsif ($parameter eq 'datelocale') {
- my $includeempty = 1;
- my $locale_obj = &Apache::lonlocal::getdatelocale();
- my $currdatelocale;
- if (ref($locale_obj)) {
- $currdatelocale = $locale_obj->id();
- }
- $output .= ''.
- &Apache::loncommon::select_datelocale($parameter.'_value',
- $currdatelocale,
- $onchange,$includeempty).' ';
- } elsif ($parameter eq 'rolenames') {
- $output.= '';
- foreach my $role ('cc','in','ta','ep','ad','st') {
- my $onchange = 'onFocus="javascript:window.document.forms'.
- "['envform'].elements['".
- $parameter.'_'.$role."_setparmval']".
- '.checked=true;"';
- $output.= ''.&Apache::lonnet::plaintext($role,$crstype,undef,1).
- ' '.
- &Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value',
- $values{$role.'.plaintext'},
- 15,$onchange).
- '
';
- foreach my $role ('cc','in','ta','ep','ad','st') {
- $output .= ''.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval').
- '
'.
- ' ';
- } else { # Display default textbox in all other cases
- $output .= ''
- .&Apache::lonhtmlcommon::textbox($parameter.'_value',
- $values{$parameter},
- 40,
- $onchange)
- .' ';
-# -------------------------------
- }
-
- # Column 3/3: Check Box (in most cases)
- unless ($parameter eq 'rolenames') {
- $output .= ''
- .&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval')
- .' ';
- }
- $output .= &Apache::loncommon::end_data_table_row();
-
- return $output;
- }
-
-
-
-
- # 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',
- );
-
- # Link Parameter Categories with Parameters
- 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 parameter categories hash
- 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];
-
-
-# Old output structure:
-
-#$start_table
-#$start_header_row
-#$lt{'par'} $lt{'val'} $lt{'set'}
-#$end_header_row
-#$output
-#$end_table
-
-
-# Display Parameter List Overview
-# Provide hyperlinks to detailed parameter settings
-$output_SB .= ''.&mt('Course Parameter Overview').' '
- .'';
-
-
-# Display Parameter Details
-my $buttons='';
-
-$output_SB .= ''.&mt('Course Parameters').' ';
-
-foreach my $catkey (keys(%parm_cat_names)) {
- $output_SB .= &Apache::loncommon::start_data_table();
- $output_SB .= &Apache::loncommon::start_data_table_empty_row()
- .''
- .''.$parm_cat_names{$catkey}.' '
- .' '
- .&Apache::loncommon::end_data_table_empty_row
- .&Apache::loncommon::start_data_table_header_row()
- .''.$lt{'par'}.' '.$lt{'val'}.' '.$lt{'set'}.' '
- .&Apache::loncommon::end_data_table_header_row();
-
- foreach my $parameter (@{$parm_cat_parms{$catkey}}) {
- my $description = $descriptions{$parameter};
- $output_SB .= ¶meter_row($parameter, $description);
- }
- $output_SB .= &Apache::loncommon::start_data_table_empty_row()
- .''
- .$buttons
- .' '
- .&Apache::loncommon::end_data_table_empty_row;
- $output_SB .= &Apache::loncommon::end_data_table()
- . ''.$description.' ';
-#
-#
-#
-## -------------------------------
-# if ($parameter =~ /^default_enrollment_(start|end)_date$/) {
-# $output .= ''.
-# &Apache::lonhtmlcommon::date_setter('envform',
-# $parameter.'_value',
-# $values{$parameter},
-# $onchange).
-# ' ';
-# } elsif ($parameter eq 'timezone') {
-# my $includeempty = 1;
-# my $timezone = &Apache::lonlocal::gettimezone();
-# $output .= ''.
-# &Apache::loncommon::select_timezone($parameter.'_value',
-# $timezone,
-# $onchange,$includeempty).' ';
-# } elsif ($parameter eq 'datelocale') {
-# my $includeempty = 1;
-# my $locale_obj = &Apache::lonlocal::getdatelocale();
-# my $currdatelocale;
-# if (ref($locale_obj)) {
-# $currdatelocale = $locale_obj->id();
-# }
-# $output .= ''.
-# &Apache::loncommon::select_datelocale($parameter.'_value',
-# $currdatelocale,
-# $onchange,$includeempty).' ';
-# } elsif ($parameter eq 'rolenames') {
-# $output.= '';
-# foreach my $role ('cc','in','ta','ep','ad','st') {
-# my $onchange = 'onFocus="javascript:window.document.forms'.
-# "['envform'].elements['".
-# $parameter.'_'.$role."_setparmval']".
-# '.checked=true;"';
-# $output.= ''.&Apache::lonnet::plaintext($role,$crstype,undef,1).
-# ' '.
-# &Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value',
-# $values{$role.'.plaintext'},
-# 15,$onchange).
-# '
';
-# foreach my $role ('cc','in','ta','ep','ad','st') {
-# $output .= ''.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval').
-# '
'.
-# ' ';
-# } else {
-# $output .= ''.
-# &Apache::lonhtmlcommon::textbox($parameter.'_value',
-# $values{$parameter},
-# 40,$onchange).' ';
-# }
-# -------------------------------
-
-
-# unless ($parameter eq 'rolenames') {
-# $output .= ''.
-# &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
-# ' ';
-# }
-# $output .= &Apache::loncommon::end_data_table_row()."\n";
-# }
- my $onchange = 'onFocus="javascript:window.document.forms'.
- '[\'envform\'].elements[\'newp_setparmval\']'.
- '.checked=true;"';
- $output.=&Apache::loncommon::start_data_table_row().
- ''.&mt('Create New Environment Variable').' '.
- ' '.
- ' '.
- &Apache::loncommon::end_data_table_row()."\n";
- }
-
- my $Parameter=&mt('Parameter');
- my $Value=&mt('Value');
- my $Set=&mt('Set');
- my ($jscript,$categorize_js);
- my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');
- if ($can_categorize) {
- $categorize_js = <';
- my $start_page =
- &Apache::loncommon::start_page('Set Course Environment',
- $jscript);
- my $end_page =
- &Apache::loncommon::end_page();
- my $end_table=&Apache::loncommon::end_data_table();
- $r->print(<
-$setoutput
-$output_SB
-
-$start_table
-$start_header_row
-$lt{'par'} $lt{'val'} $lt{'set'}
-$end_header_row
-$output
-$end_table
-
-
-function updateCategories() {
- var newcategories = '';
- var unescapedcats = '';
- if (document.chgcats.usecategory.length) {
- for (var i=0; i 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;
-}
-
-
-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 = ''.&mt('Categorize Course').' ';
- if ($hascats) {
- my %currsettings =
- &Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum);
- $categoriesform .= &mt('Assign one or more categories to this course.').'
- '.
'');
my $display_value = $resourcedata->{$thiskey};
if (&isdateparm($resourcedata->{$thiskey.'.type'})) {
- $display_value =
+ $display_value =
&Apache::lonlocal::locallocaltime($display_value);
}
$r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
@@ -3948,7 +3380,7 @@ ENDOVER
}
$r->print(' ');
-
+
}
}
$r->print(&Apache::loncommon::end_data_table().''.
@@ -4038,7 +3470,7 @@ sub parse_key {
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});
$data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);
}
-
+
$data{'parameter_part'} = $part;
$data{'parameter_name'} = $name;
@@ -4078,7 +3510,7 @@ sub check_cloners {
$disallowed{'format'} .= $currclone.',';
}
} elsif ($currclone !~/^($match_username)\:($match_domain)$/) {
- $disallowed{'format'} .= $currclone.',';
+ $disallowed{'format'} .= $currclone.',';
} else {
if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
$disallowed{'newuser'} .= $currclone.',';
@@ -4107,7 +3539,7 @@ sub change_clone {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $clone_crs = $cnum.':'.$cdom;
-
+
if ($cnum && $cdom) {
my @allowclone;
&extract_cloners($clonelist,\@allowclone);
@@ -4188,10 +3620,10 @@ ENDMAINFORMHEAD
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',
},
@@ -4219,7 +3651,7 @@ ENDMAINFORMHEAD
permission => $parm_permission,
linktitle =>'Set default actions for parameters.' ,
icon => 'folder-new.png' ,
- }]},
+ }]},
{ categorytitle => 'New and Existing Parameter Settings for Resources',
items => [
{ linktext => 'Edit Resource Parameters - Helper Mode',
@@ -4251,7 +3683,7 @@ ENDMAINFORMHEAD
linktitle =>'Set/Modify existing resource parameters in overview mode.' ,
icon => 'preferences-desktop-wallpaper.png' ,
#help => 'Parameter_Overview',
- },
+ },
{ linktext => 'Change Log',
url => '/adm/parmset?action=parameterchangelog',
permission => $parm_permission,
@@ -4283,19 +3715,19 @@ sub output_row {
push @options,['deleted', 'Delete Metadata Field'];
}
$output = &Apache::loncommon::start_data_table_row();
- $output .= '
'.$field_text.': '.$field_text.': '.(' ' x 5).'
+ $output .= ''.(' ' x 5).'
';
+ &mt($opt->[1]).' ';
$output .= &Apache::loncommon::end_data_table_row();
}
$output .= &Apache::loncommon::continue_data_table_row();
- $output .= ''.(' ' x 10).' ';
+ $output .= ''.(' ' x 10).' ';
$output .= &Apache::loncommon::end_data_table_row();
my $multiple_checked;
my $single_checked;
@@ -4307,14 +3739,14 @@ sub output_row {
$single_checked = '';
}
$output .= &Apache::loncommon::continue_data_table_row();
- $output .= ''.(' ' x 10).'
+ $output .= ' '.(' ' x 10).'
';
+ '.&mt('Student may select multiple choices from list').'';
$output .= &Apache::loncommon::end_data_table_row();
$output .= &Apache::loncommon::continue_data_table_row();
- $output .= ''.(' ' x 10).'
+ $output .= ' '.(' ' x 10).'
';
+ '.&mt('Student may select only one choice from list').'';
$output .= &Apache::loncommon::end_data_table_row();
}
return ($output);
@@ -4368,7 +3800,7 @@ sub order_meta_fields {
}
my $ordered_fields = join ",", @neworder;
my $put_result = &Apache::lonnet::put('environment',
- {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
+ {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields});
}
my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
@@ -4381,8 +3813,8 @@ sub order_meta_fields {
$ordered_fields = join ",", @fields_in_order;
}
my $put_result = &Apache::lonnet::put('environment',
- {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
- }
+ {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
+ }
$r->print('');
my $num_fields = scalar(@fields_in_order);
foreach my $key (@fields_in_order) {
@@ -4433,7 +3865,7 @@ sub addmetafield {
$options =~ s/,,/,/;
my $put_result = &Apache::lonnet::put('environment',
{'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);
-
+
$r->print('Undeleted Metadata Field '.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}." with result ".$put_result.'print(<
$output
$buttons
@@ -4590,7 +4022,7 @@ sub defaultsetter {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
text=>"Set Defaults"});
- my $start_page =
+ my $start_page =
&Apache::loncommon::start_page('Parameter Setting Default Actions');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
$r->print(<print(&mt('Manual setting rules apply to all interfaces.').''.&mt('All Resources').' ';
- my $realmdescription=&mt('all resources');
+ my $realmdescription=&mt('all resources');
if ($middle=~/^(.+)\_\_\_\(all\)$/) {
$realm=''.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' ';
$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
@@ -4802,7 +4234,7 @@ sub load_parameter_names {
close($config);
$standard_parms{'int_pos'} = 'Positive Integer';
$standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
- %standard_parms=&Apache::lonlocal::texthash(%standard_parms);
+ %standard_parms=&Apache::lonlocal::texthash(%standard_parms);
}
sub standard_parameter_names {
@@ -4811,9 +4243,9 @@ sub standard_parameter_names {
&load_parameter_names();
}
if ($standard_parms{$name}) {
- return $standard_parms{$name};
- } else {
- return $name;
+ return $standard_parms{$name};
+ } else {
+ return $name;
}
}
@@ -4834,7 +4266,7 @@ sub parm_change_log {
$r->print('