|
version 1.8.2.7, 2010/02/21 01:06:13
|
version 1.17, 2010/01/07 18:43:32
|
|
Line 28
|
Line 28
|
| ############################################################### |
############################################################### |
| ############################################################## |
############################################################## |
| |
|
| =pod |
|
| |
|
| =head1 NAME |
|
| |
|
| courseprefs- Handler to set/modify course configuration |
|
| |
|
| =head1 SYNOPSIS |
|
| |
|
| courseprefs provides an interface for setting general course configuration |
|
| |
|
| =head1 DESCRIPTION |
|
| |
|
| This module is used for configuration of a course |
|
| |
|
| =head1 INTERNAL SUBROUTINES |
|
| |
|
| =over |
|
| |
|
| =item get_allitems() |
|
| |
|
| =item print_config_box() |
|
| |
|
| =item process_changes() |
|
| |
|
| =item get_sec_str() |
|
| |
|
| =item check_clone() |
|
| |
|
| =item store_changes() |
|
| |
|
| =item update_env() |
|
| |
|
| =item display_disallowed() |
|
| |
|
| =item get_course() |
|
| |
|
| =item get_jscript() |
|
| |
|
| =item cloners_javascript() |
|
| |
|
| =item print_courseinfo() |
|
| |
|
| =item new_cloners_dom_row() |
|
| |
|
| =item can_modify_catsettings() |
|
| |
|
| =item assign_course_categories() |
|
| |
|
| =item print_localization() |
|
| |
|
| =item get_lang_choices() |
|
| |
|
| =item print_feedback() |
|
| |
|
| =item user_table() |
|
| |
|
| =item select_recipient() |
|
| |
|
| =item select_sections() |
|
| |
|
| =item print_discussion() |
|
| |
|
| =item role_checkboxes() |
|
| |
|
| =item print_classlists() |
|
| |
|
| =item print_appearance() |
|
| |
|
| =item print_grading() |
|
| |
|
| =item print_printouts() |
|
| |
|
| =item print_spreadsheet() |
|
| |
|
| =item print_bridgetasks() |
|
| |
|
| =item print_other() |
|
| |
|
| =item get_other_items() |
|
| |
|
| =item item_table_row_start() |
|
| |
|
| =item item_table_row_end() |
|
| |
|
| =item yes_no_radio() |
|
| |
|
| =item select_from_options() |
|
| |
|
| =item make_item_rows() |
|
| |
|
| Creates table used to display and set course configuration items. |
|
| |
|
| Inputs: $cdom,$items,$ordered,$settings,$rowtotal,$crstype |
|
| where $cdom is course's domain, $items is HASH ref for current config |
|
| item, $ordered is ARRAY ref of items to include in row in |
|
| display order, $settings is HASH ref of current values forrow, |
|
| $rowtotal is SCALAR ref used to accumulate row count, $crstype is |
|
| course type. |
|
| |
|
| Returns: $datatable |
|
| HTML mark-up of data table which accumulates individual rows. |
|
| |
|
| =item nothidepriv_row() |
|
| |
|
| Creates row containing form elements used to display and set |
|
| whether Domain coordinators who are currently included in |
|
| advanced course user .db file for a course are to be hidden (e.g., |
|
| in syllabus, or from course user lists). |
|
| |
|
| Inputs: $cdom,$item,$settings,$crstype |
|
| where $cdom is course domain, item is nothideprivileged, $settings is |
|
| HASH ref of the current values for nothideprivileged, $crstype is |
|
| course type (Course or Community). |
|
| |
|
| Returns: $datatable |
|
| HTML mark-up for Privileged users (Domain Coordinators) in staff listing. |
|
| |
|
| =item print_hdrfmt_row() |
|
| |
|
| Creates row containing form elements used to display and set |
|
| substitution items and text to be used in the header included |
|
| on printouts. |
|
| |
|
| Inputs: $item,$settings |
|
| where $item is print_header_format, and $settings is a HASH ref |
|
| of the current values stored for print_header_format. |
|
| |
|
| Returns: $output |
|
| HTML mark-up containing Javascript functions: reOrder() and getIndexByName() |
|
| used to dynamically update position selectboxes, and HTML table elements |
|
| for the "Print header format" row. |
|
| |
|
| =item position_selector() |
|
| |
|
| Creates a select box which can be used to reorder substitutions |
|
| and text included in a printout header. |
|
| |
|
| Inputs: $pos,$num,$maxnum |
|
| where $pos is current position, $num is the unique identifier, |
|
| and $maxnum is the total number of items (both substitutions |
|
| and text in the printout header. |
|
| |
|
| Returns: $output |
|
| HTML mark-up for the selectbox and a hidden form element containing |
|
| the current position. |
|
| |
|
| =item substitution_selector() |
|
| |
|
| Creates a combination of select box for choosing an item |
|
| (student name, course ID or assignment note) to substitute, |
|
| and a corresponding size limit in the header used for printouts. |
|
| |
|
| Inputs: $num,$subst,$limit,$crstype |
|
| where $num is the unique identifier, $subst is the current |
|
| substitution (n,c or a, for name, course or note respectively, |
|
| $limit is the current size limit (integer), and $crstype is |
|
| course type - course or community. |
|
| |
|
| Returns: $output |
|
| HTML mark-up for selectbox and textbox (separate table cells). |
|
| |
|
| =item change_clone() |
|
| |
|
| Modifies the list of courses a user can clone (stored |
|
| in the user's environment.db file), called when a |
|
| change is made to the list of users allowed to clone |
|
| a course. |
|
| |
|
| Inputs: $action,$cloner |
|
| where $action is add or drop, and $cloner is identity of |
|
| user for whom cloning ability is to be changed in course. |
|
| |
|
| Returns: nothing |
|
| |
|
| =back |
|
| |
|
| =cut |
|
| |
|
| |
|
| package Apache::courseprefs; |
package Apache::courseprefs; |
| |
|
| use strict; |
use strict; |
|
Line 294 sub handler {
|
Line 115 sub handler {
|
| %lt = ( |
%lt = ( |
| conf => 'Course Configuration', |
conf => 'Course Configuration', |
| edit => 'Edit Course Configuration', |
edit => 'Edit Course Configuration', |
| gens => 'General course settings', |
gens => 'General Settings', |
| idnu => 'Course ID or number', |
idnu => 'ID/Number', |
| desc => 'Course Description', |
desc => 'Title', |
| catg => 'Categorize course', |
catg => 'Categorize course', |
| excc => 'Exclude from course catalog', |
excc => 'Exclude from course catalog', |
| clon => 'Users allowed to clone course', |
clon => 'Users allowed to clone course', |
| rept => 'Replacement titles for standard course roles', |
rept => 'Replacement titles for standard course roles', |
| time => 'Timezone in which the course takes place', |
time => 'Timezone', |
| date => 'Locale used for course calendar', |
date => 'Calendar Locale', |
| coco => 'Course Content', |
coco => 'Course Content', |
| copo => 'Course Policy', |
copo => 'Course Policy', |
| priv => 'Domain Coordinators in course', |
priv => 'Domain Coordinators in course', |
|
Line 343 sub handler {
|
Line 164 sub handler {
|
| header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
| col2 => 'Value'}], |
col2 => 'Value'}], |
| ordered => ['description','courseid','categories', |
ordered => ['description','courseid','categories', |
| 'hidefromcat','cloners','externalsyllabus', |
'hidefromcat','externalsyllabus', |
| 'url','rolenames'], |
'url','rolenames','cloners'], |
| itemtext => { |
itemtext => { |
| description => $lt{'desc'}, |
description => $lt{'desc'}, |
| courseid => $lt{'idnu'}, |
courseid => $lt{'idnu'}, |
| categories => $lt{'catg'}, |
categories => $lt{'catg'}, |
| hidefromcat => $lt{'excc'}, |
hidefromcat => $lt{'excc'}, |
| cloners => $lt{'clon'}, |
cloners => $lt{'clon'}, |
| externalsyllabus => 'URL of Syllabus', |
externalsyllabus => 'External Syllabus URL', |
| url => 'Top Level Map', |
url => 'Top Level Map', |
| rolenames => $lt{'rept'}, |
rolenames => $lt{'rept'}, |
| }, |
}, |
| }, |
}, |
| 'localization' => |
'localization' => |
| { text => 'Language/TimeZone/Locale', |
{ text => 'Language & Time Localization', |
| help => 'Course_Environment', |
help => 'Course_Environment', |
| header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
| col2 => 'Value',}], |
col2 => 'Value',}], |
| ordered => ['languages','timezone','datelocale'], |
ordered => ['languages','timezone','datelocale'], |
| itemtext => { |
itemtext => { |
| languages => 'Languages used', |
languages => 'Language(s)', |
| timezone => $lt{'time'}, |
timezone => $lt{'time'}, |
| datelocale => $lt{'date'}, |
datelocale => $lt{'date'}, |
| }, |
}, |
| }, |
}, |
| 'feedback' => |
'feedback' => |
| { text => 'Feedback messages', |
{ text => 'Feedback Messages', |
| help => 'Course_Environment', |
help => 'Course_Environment', |
| header => [{col1 => 'Questions about:', |
header => [{col1 => 'Questions about:', |
| col2 => 'Recipients'}, |
col2 => 'Recipients'}, |
|
Line 392 sub handler {
|
Line 213 sub handler {
|
| 'allow_limited_html_in_feedback', |
'allow_limited_html_in_feedback', |
| 'allow_discussion_post_editing'], |
'allow_discussion_post_editing'], |
| itemtext => { |
itemtext => { |
| 'plc.roles.denied' => 'No Resource Discussion', |
'plc.roles.denied' => 'Disable resource discussion', |
| 'plc.users.denied' => 'No Resource Discussion', |
'plc.users.denied' => 'Disable resource discussion', |
| 'pch.roles.denied' => 'No Chat room use', |
'pch.roles.denied' => 'Disable chat room', |
| 'pch.users.denied' => 'No Chat room use', |
'pch.users.denied' => 'Disable chat room', |
| allow_limited_html_in_feedback => 'Allow limited HTML in discussion posts', |
allow_limited_html_in_feedback => 'HTML in discussion', |
| allow_discussion_post_editing => 'Users can edit/delete own discussion posts', |
allow_discussion_post_editing => 'Allow users to edit/delete own discussion posts', |
| }, |
}, |
| }, |
}, |
| 'classlists' => |
'classlists' => |
|
Line 423 sub handler {
|
Line 244 sub handler {
|
| }, |
}, |
| }, |
}, |
| 'appearance' => |
'appearance' => |
| { text => 'Display of resources ', |
{ text => 'Display of Resources ', |
| help => 'Course_Environment', |
help => 'Course_Environment', |
| header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
| col2 => 'Value'}], |
col2 => 'Value'}], |
|
Line 431 sub handler {
|
Line 252 sub handler {
|
| 'disable_receipt_display','texengine', |
'disable_receipt_display','texengine', |
| 'tthoptions'], |
'tthoptions'], |
| itemtext => { |
itemtext => { |
| default_xml_style => 'Default XML Style File', |
default_xml_style => 'Default XML style file', |
| pageseparators => 'Visibly Separate Items on Pages', |
pageseparators => 'Separate items on composite pages', |
| disable_receipt_display => 'Disable display of problem receipts', |
disable_receipt_display => 'Disable problem receipts display', |
| texengine => 'Force use of a specific math rendering engine', |
texengine => 'Force specific math rendering engine', |
| tthoptions => 'Default set of options to pass to tth/m when converting TeX', |
tthoptions => 'Default set of options to pass to tth/m when converting TeX', |
| }, |
}, |
| }, |
}, |
|
Line 446 sub handler {
|
Line 267 sub handler {
|
| ordered => ['grading','rndseed', |
ordered => ['grading','rndseed', |
| 'receiptalg','disablesigfigs'], |
'receiptalg','disablesigfigs'], |
| itemtext => { |
itemtext => { |
| grading => 'Grading', |
grading => 'Grading Type', |
| rndseed => 'Randomization algorithm used', |
rndseed => 'Randomization algorithm', |
| receiptalg => 'Receipt algorithm used', |
receiptalg => 'Receipt algorithm', |
| disablesigfigs => 'Disable checking of Significant Figures', |
disablesigfigs => 'Disable significant figure checks', |
| }, |
}, |
| |
|
| }, |
}, |
| 'printouts' => |
'printouts' => |
| { text => 'Printout generation', |
{ text => 'Printouts', |
| help => 'Course_Environment', |
help => 'Course_Environment', |
| header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
| col2 => 'Value',}], |
col2 => 'Value',}], |
| ordered => ['problem_stream_switch','suppress_tries', |
ordered => ['problem_stream_switch','suppress_tries', |
| 'default_paper_size','print_header_format', |
'default_paper_size','print_header_format', |
| 'disableexampointprint'], |
'disableexampointprint','canuse_pdfforms'], |
| itemtext => { |
itemtext => { |
| problem_stream_switch => 'Allow problems to be split over pages', |
problem_stream_switch => 'Allow problems to be split over pages', |
| suppress_tries => 'Suppress number of tries in printing', |
suppress_tries => 'Suppress number of tries in printing', |
| default_paper_size => 'Default paper type', |
default_paper_size => 'Default paper type', |
| print_header_format => 'Print header format', |
print_header_format => 'Print header format', |
| disableexampointprint => 'Disable automatically printing point values on exams', |
disableexampointprint => 'Disable automatically printing point values on exams', |
| |
canuse_pdfforms => 'Users can print problems as PDF forms and upload later for grading', |
| }, |
}, |
| }, |
}, |
| 'spreadsheet' => |
'spreadsheet' => |
|
Line 544 sub print_config_box {
|
Line 366 sub print_config_box {
|
| my $itemtext = $item->{'itemtext'}; |
my $itemtext = $item->{'itemtext'}; |
| my $rowtotal = 0; |
my $rowtotal = 0; |
| my $output = |
my $output = |
| '<table class="LC_nested_outer"> |
'<h3><a href="#">'.&mt($item->{text}).'</a></h3> |
| <tr> |
<div> <span style="float:right">'. |
| <th align="left" valign="middle"><span class="LC_font_larger">'. |
&Apache::loncommon::help_open_topic($item->{'help'}).'</span>'; |
| &mt($item->{text}).' '. |
|
| &Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n". |
|
| '</tr>'; |
|
| if (($action eq 'feedback') || ($action eq 'classlists')) { |
if (($action eq 'feedback') || ($action eq 'classlists')) { |
| $output .= ' |
$output .= ' |
| <tr> |
|
| <td> |
|
| <table class="LC_nested"> |
<table class="LC_nested"> |
| <tr class="LC_info_row"> |
<tr class="LC_info_row"> |
| <td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
<td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
|
Line 567 sub print_config_box {
|
Line 384 sub print_config_box {
|
| } |
} |
| $output .= ' |
$output .= ' |
| </table> |
</table> |
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td> |
|
| <table class="LC_nested"> |
<table class="LC_nested"> |
| <tr class="LC_info_row"> |
<tr class="LC_info_row"> |
| <td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>'; |
<td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>'; |
|
Line 581 sub print_config_box {
|
Line 394 sub print_config_box {
|
| $output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype). |
$output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype). |
| ' |
' |
| </table> |
</table> |
| </td> |
|
| </tr> |
|
| <tr> |
|
| <td> |
|
| <table class="LC_nested"> |
<table class="LC_nested"> |
| <tr class="LC_info_row"> |
<tr class="LC_info_row"> |
| <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
|
Line 593 sub print_config_box {
|
Line 402 sub print_config_box {
|
| } |
} |
| } else { |
} else { |
| $output .= ' |
$output .= ' |
| <tr> |
|
| <td> |
|
| <table class="LC_nested"> |
<table class="LC_nested"> |
| <tr class="LC_info_row"> |
<tr class="LC_info_row"> |
| <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
|
Line 627 sub print_config_box {
|
Line 434 sub print_config_box {
|
| } |
} |
| $output .= ' |
$output .= ' |
| </table> |
</table> |
| </td> |
</div>'; |
| </tr> |
|
| </table><br />'; |
|
| return ($output,$rowtotal); |
return ($output,$rowtotal); |
| } |
} |
| |
|
|
Line 746 sub process_changes {
|
Line 551 sub process_changes {
|
| my @cloners = split(',',$env{'form.'.$entry}); |
my @cloners = split(',',$env{'form.'.$entry}); |
| my @okcloners; |
my @okcloners; |
| foreach my $cloner (@cloners) { |
foreach my $cloner (@cloners) { |
| $cloner =~ s/^\s+//; |
my ($uname,$udom) = split(':',$cloner); |
| $cloner =~ s/\s+$//; |
if (&check_clone($udom,$disallowed,$uname) eq 'ok') { |
| unless ($cloner eq '') { |
if (!grep(/^\Q$cloner\E$/,@okcloners)) { |
| my ($uname,$udom) = split(':',$cloner); |
push(@okcloners,$cloner); |
| if (&check_clone($udom,$disallowed,$uname) eq 'ok') { |
|
| if (!grep(/^\Q$cloner\E$/,@okcloners)) { |
|
| push(@okcloners,$cloner); |
|
| } |
|
| } |
} |
| } |
} |
| } |
} |
|
Line 1043 sub check_clone {
|
Line 844 sub check_clone {
|
| sub store_changes { |
sub store_changes { |
| my ($cdom,$cnum,$prefs_order,$actions,$prefs,$values,$changes,$crstype) = @_; |
my ($cdom,$cnum,$prefs_order,$actions,$prefs,$values,$changes,$crstype) = @_; |
| my ($chome,$output); |
my ($chome,$output); |
| my (%storehash,@delkeys,@need_env_update,@oldcloner); |
my (%storehash,@delkeys,@need_env_update); |
| if ((ref($values) eq 'HASH') && (ref($changes) eq 'HASH')) { |
if ((ref($values) eq 'HASH') && (ref($changes) eq 'HASH')) { |
| %storehash = %{$values}; |
%storehash = %{$values}; |
| } else { |
} else { |
|
Line 1168 sub store_changes {
|
Line 969 sub store_changes {
|
| if (defined($yesno{$key})) { |
if (defined($yesno{$key})) { |
| $displayval = &mt('No'); |
$displayval = &mt('No'); |
| if ($changes->{$item}{$key} eq 'yes') { |
if ($changes->{$item}{$key} eq 'yes') { |
| $displayval = &mt('Yes'); |
$displayval = &mt('Yes'); |
| } |
} |
| } elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) { |
} elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) { |
| $displayval = &Apache::lonlocal::locallocaltime($displayval); |
$displayval = &Apache::lonlocal::locallocaltime($displayval); |
| } elsif ($key eq 'categories') { |
} elsif ($key eq 'categories') { |
| $displayval = $env{'form.categories_display'}; |
$displayval = $env{'form.categories_display'}; |
| } |
} elsif ($key eq 'canuse_pdfforms') { |
| |
if ($changes->{$item}{$key} eq '1') { |
| |
$displayval = &mt('Yes'); |
| |
} elsif ($changes->{$item}{$key} eq '0') { |
| |
$displayval = &mt('No'); |
| |
} |
| |
} |
| if ($changes->{$item}{$key} eq '') { |
if ($changes->{$item}{$key} eq '') { |
| push(@delkeys,$key); |
push(@delkeys,$key); |
| $output .= '<li>'.&mt('Deleted setting for [_1]', |
$output .= '<li>'.&mt('Deleted setting for [_1]', |
|
Line 1192 sub store_changes {
|
Line 999 sub store_changes {
|
| } |
} |
| $storehash{$key} = $changes->{$item}{$key}; |
$storehash{$key} = $changes->{$item}{$key}; |
| } |
} |
| if ($key eq 'cloners') { |
|
| # Get existing cloners |
|
| my %clonenames = |
|
| &Apache::lonnet::dump('environment',$cdom,$cnum,'cloners'); |
|
| if ($clonenames{'cloners'} =~ /,/) { |
|
| @oldcloner = split(/\s*\,\s*/,$clonenames{'cloners'}); |
|
| } else { |
|
| $oldcloner[0] = $clonenames{'cloners'}; |
|
| } |
|
| } |
|
| if (($key eq 'description') || ($key eq 'cloners') || |
if (($key eq 'description') || ($key eq 'cloners') || |
| ($key eq 'hidefromcat') || ($key eq 'categories')) { |
($key eq 'hidefromcat') || ($key eq 'categories')) { |
| push(@need_env_update,$key); |
push(@need_env_update,$key); |
|
Line 1221 sub store_changes {
|
Line 1018 sub store_changes {
|
| } |
} |
| } |
} |
| if (&Apache::lonnet::put('environment',\%storehash,$cdom,$cnum) eq 'ok') { |
if (&Apache::lonnet::put('environment',\%storehash,$cdom,$cnum) eq 'ok') { |
| if (ref($changes) eq 'HASH') { |
|
| if (ref($changes->{'courseinfo'}) eq 'HASH') { |
|
| if (exists($changes->{'courseinfo'}{'cloners'})) { |
|
| &change_clone($cdom,$cnum,$changes->{'courseinfo'}{'cloners'}, |
|
| \@oldcloner); |
|
| } |
|
| } |
|
| } |
|
| if (@delkeys) { |
if (@delkeys) { |
| if (&Apache::lonnet::del('environment',\@delkeys,$cdom,$cnum) ne 'ok') { |
if (&Apache::lonnet::del('environment',\@delkeys,$cdom,$cnum) ne 'ok') { |
| $output .= '<br /><span class="LC_error">'; |
$output .= '<br /><span class="LC_error">'; |
|
Line 1238 sub store_changes {
|
Line 1027 sub store_changes {
|
| $output .= &mt('An error occurred when removing course settings which are no longer in use.'); |
$output .= &mt('An error occurred when removing course settings which are no longer in use.'); |
| } |
} |
| $output .= '</span>'; |
$output .= '</span>'; |
| } |
} else { |
| } else { |
foreach my $key (@delkeys) { |
| foreach my $key (@delkeys) { |
&Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key); |
| &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key); |
} |
| } |
} |
| } |
} |
| if (@need_env_update) { |
if (@need_env_update) { |
|
Line 1610 sub print_courseinfo {
|
Line 1399 sub print_courseinfo {
|
| if (@entries > 0) { |
if (@entries > 0) { |
| foreach my $entry (@entries) { |
foreach my $entry (@entries) { |
| my ($uname,$udom) = split(/:/,$entry); |
my ($uname,$udom) = split(/:/,$entry); |
| my ($uname,$udom) = split(/:/,$entry); |
|
| if ($udom =~ /^$match_domain$/) { |
|
| unless (&Apache::lonnet::domain($udom)) { |
|
| next; |
|
| } |
|
| } else { |
|
| next; |
|
| } |
|
| if ($uname eq '*') { |
if ($uname eq '*') { |
| $datatable .= |
$datatable .= |
| &Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
| '<td valign="top" align="left"><span class="LC_nobreak">'. |
'<td valign="top" align="left"><span class="LC_nobreak">'. |
| &mt('Any user in domain:').'<b> '.$udom. |
&mt('Domain:').'<b> '.$udom. |
| '</b><input type="hidden" name="cloners_dom_'.$num. |
'</b><input type="hidden" name="cloners_dom_'.$num. |
| '" value="'.$udom.'" /></span><br />'. |
'" value="'.$udom.'" /></span><br />'. |
| '<span class="LC_nobreak"><label><input type="checkbox" '. |
'<span class="LC_nobreak"><label><input type="checkbox" '. |
|
Line 1630 sub print_courseinfo {
|
Line 1411 sub print_courseinfo {
|
| &mt('Delete').'</label></span></td>'. |
&mt('Delete').'</label></span></td>'. |
| &Apache::loncommon::end_data_table_row(); |
&Apache::loncommon::end_data_table_row(); |
| $num ++; |
$num ++; |
| } elsif (&Apache::lonnet::homeserver($uname,$udom) ne 'no_host') { |
} else { |
| unless (grep(/^\Q$entry\E$/,@cloners)) { |
push(@cloners,$entry); |
| push(@cloners,$entry); |
|
| } |
|
| } |
} |
| } |
} |
| } |
} |
|
Line 1853 sub print_localization {
|
Line 1632 sub print_localization {
|
| } |
} |
| my %items = ( |
my %items = ( |
| languages => { |
languages => { |
| text => &mt($itemtext->{'languages'}).'<br />'. |
text => '<b>'.&mt($itemtext->{'languages'}).'</b><br />'. |
| &mt("(will override user's preference)"), |
&mt("(overrides individual user preference)"), |
| input => 'selectbox', |
input => 'selectbox', |
| }, |
}, |
| timezone => { |
timezone => { |
| text => &mt($itemtext->{'timezone'}), |
text => '<b>'.&mt($itemtext->{'timezone'}).'</b>', |
| input => 'selectbox', |
input => 'selectbox', |
| }, |
}, |
| datelocale => { |
datelocale => { |
| text => &mt($itemtext->{'datelocale'}), |
text => '<b>'.&mt($itemtext->{'datelocale'}).'</b>', |
| input => 'selectbox', |
input => 'selectbox', |
| }, |
}, |
| ); |
); |
|
Line 1971 sub print_feedback {
|
Line 1750 sub print_feedback {
|
| my %sections = &Apache::loncommon::get_sections($cdom,$cnum); |
my %sections = &Apache::loncommon::get_sections($cdom,$cnum); |
| my @sections = sort( { $a <=> $b } keys(%sections)); |
my @sections = sort( { $a <=> $b } keys(%sections)); |
| my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
| currone => 'Current recipient:', |
currone => 'Current recipient:', |
| currmult => 'Current recipients:', |
curmult => 'Current recipients:', |
| add => 'Additional recipient:', |
add => 'Additional recipient:', |
| del => 'Delete?', |
del => 'Delete?', |
| sec => 'Sections:', |
sec => 'Sections:', |
| ); |
); |
| |
|
| foreach my $item (@{$ordered}) { |
foreach my $item (@{$ordered}) { |
|
Line 2036 sub user_table {
|
Line 1815 sub user_table {
|
| if ($num) { |
if ($num) { |
| $output .= '<tr>'. |
$output .= '<tr>'. |
| '<td align="left"><i>'; |
'<td align="left"><i>'; |
| if ($num == 1) { |
if ($num > 1) { |
| $output .= $lt->{'currone'}; |
$output .= $lt->{'currone'}; |
| } else { |
} else { |
| $output .= $lt->{'currmult'}; |
$output .= $lt->{'currmult'}; |
|
Line 2156 sub print_discussion {
|
Line 1935 sub print_discussion {
|
| my %sections = &Apache::loncommon::get_sections($cdom,$cnum); |
my %sections = &Apache::loncommon::get_sections($cdom,$cnum); |
| my @sections = sort( { $a <=> $b } keys(%sections)); |
my @sections = sort( { $a <=> $b } keys(%sections)); |
| my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
| currone => 'Disallowed:', |
currone => 'Disallowed:', |
| currmult => 'Disallowed:', |
curmult => 'Disallowed:', |
| add => 'Disallow more:', |
add => 'Disallow more:', |
| del => 'Delete?', |
del => 'Delete?', |
| sec => 'Sections:', |
sec => 'Sections:', |
| ); |
); |
| |
|
| foreach my $item (@{$ordered}) { |
foreach my $item (@{$ordered}) { |
|
Line 2444 sub print_grading {
|
Line 2223 sub print_grading {
|
| }, |
}, |
| 'rndseed' => { |
'rndseed' => { |
| text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'. |
text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'. |
| '<span class="LC_error">'.'<br />'. |
'<span class="LC_warning">'.'<br />'. |
| &mt('Modifying this will make problems have different numbers and answers!'). |
&mt('Modifying this will make problems have different numbers and answers!'). |
| '</span>', |
'</span>', |
| input => 'selectbox', |
input => 'selectbox', |
|
Line 2516 sub print_printouts {
|
Line 2295 sub print_printouts {
|
| text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>', |
text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>', |
| input => 'radio', |
input => 'radio', |
| }, |
}, |
| |
canuse_pdfforms => { |
| |
text => '<b>'.&mt($itemtext->{'canuse_pdfforms'}).'</b>', |
| |
input => 'selectbox', |
| |
options => { |
| |
1 => &mt('Yes'), |
| |
0 => &mt('No'), |
| |
}, |
| |
order => ['1','0'], |
| |
nullval => 'None specified - use domain default', |
| |
} |
| ); |
); |
| return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype); |
return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype); |
| } |
} |
|
Line 2850 sub print_hdrfmt_row {
|
Line 2639 sub print_hdrfmt_row {
|
| $currstr .= '<b>'.&mt('Current print header:').' <span class="LC_warning"><tt>'. |
$currstr .= '<b>'.&mt('Current print header:').' <span class="LC_warning"><tt>'. |
| $settings->{$item}.'</tt></span></b><br />'; |
$settings->{$item}.'</tt></span></b><br />'; |
| my @current = split(/(%\d*[nca])/,$settings->{$item}); |
my @current = split(/(%\d*[nca])/,$settings->{$item}); |
| foreach my $val (@current) { |
foreach my $item (@current) { |
| unless ($val eq '') { |
unless ($item eq '') { |
| push(@curr,$val); |
push(@curr,$item); |
| } |
} |
| } |
} |
| $currnum = @curr; |
$currnum = @curr; |
|
Line 3005 sub substitution_selector {
|
Line 2794 sub substitution_selector {
|
| return $output; |
return $output; |
| } |
} |
| |
|
| sub change_clone { |
|
| my ($cdom,$cnum,$clonelist,$oldcloner) = @_; |
|
| my $clone_crs = $cnum.':'.$cdom; |
|
| if ($cnum && $cdom) { |
|
| my $clone_crs = $cnum.':'.$cdom; |
|
| my @allowclone; |
|
| if ($clonelist =~ /,/) { |
|
| @allowclone = split(',',$clonelist); |
|
| } else { |
|
| $allowclone[0] = $clonelist; |
|
| } |
|
| foreach my $currclone (@allowclone) { |
|
| if (!grep(/^$currclone$/,@$oldcloner)) { |
|
| if ($currclone ne '*') { |
|
| my ($uname,$udom) = split(/:/,$currclone); |
|
| if ($uname && $udom && $uname ne '*') { |
|
| if (&Apache::lonnet::homeserver($uname,$udom) ne 'no_host') { |
|
| my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable'); |
|
| if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) { |
|
| if ($currclonecrs{'cloneable'} eq '') { |
|
| $currclonecrs{'cloneable'} = $clone_crs; |
|
| } else { |
|
| $currclonecrs{'cloneable'} .= ','.$clone_crs; |
|
| } |
|
| &Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname); |
|
| } |
|
| } |
|
| } |
|
| } |
|
| } |
|
| } |
|
| foreach my $oldclone (@$oldcloner) { |
|
| if (!grep(/^\Q$oldclone\E$/,@allowclone)) { |
|
| if ($oldclone ne '*') { |
|
| my ($uname,$udom) = split(/:/,$oldclone); |
|
| if ($uname && $udom && $uname ne '*' ) { |
|
| if (&Apache::lonnet::homeserver($uname,$udom) ne 'no_host') { |
|
| my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable'); |
|
| my %newclonecrs = (); |
|
| if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) { |
|
| if ($currclonecrs{'cloneable'} =~ /,/) { |
|
| my @currclonecrs = split/,/,$currclonecrs{'cloneable'}; |
|
| foreach my $crs (@currclonecrs) { |
|
| if ($crs ne $clone_crs) { |
|
| $newclonecrs{'cloneable'} .= $crs.','; |
|
| } |
|
| } |
|
| $newclonecrs{'cloneable'} =~ s/,$//; |
|
| } else { |
|
| $newclonecrs{'cloneable'} = ''; |
|
| } |
|
| &Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname); |
|
| } |
|
| } |
|
| } |
|
| } |
|
| } |
|
| } |
|
| } |
|
| return; |
|
| } |
|
| |
|
| 1; |
1; |
![[BACK]](/icons/back.gif){kind=icon}
Return to courseprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface