version 1.94, 2009/04/24 04:58:27
|
version 1.101, 2009/08/08 00:36:00
|
Line 28
|
Line 28
|
############################################################### |
############################################################### |
############################################################## |
############################################################## |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::domainprefs.pm |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handles configuration of a LON-CAPA domain. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
|
|
=head1 OVERVIEW |
|
|
|
Each institution using LON-CAPA will typically have a single domain designated |
|
for use by individuals affliated with the institution. Accordingly, each domain |
|
may define a default set of logos and a color scheme which can be used to "brand" |
|
the LON-CAPA instance. In addition, an institution will typically have a language |
|
and timezone which are used for the majority of courses. |
|
|
|
LON-CAPA provides a mechanism to display and modify these defaults, as well as a |
|
host of other domain-wide settings which determine the types of functionality |
|
available to users and courses in the domain. |
|
|
|
There is also a mechanism to configure cataloging of courses in the domain, and |
|
controls on the operation of automated processes which govern such things as |
|
roster updates, user directory updates and processing of course requests. |
|
|
|
The domain coordination manual which is built dynamically on install/update of |
|
LON-CAPA from the relevant help items provides more information about domain |
|
configuration. |
|
|
|
Most of the domain settings are stored in the configuration.db GDBM file which is |
|
housed on the primary library server for the domain in /home/httpd/lonUsers/$dom, |
|
where $dom is the domain. The configuration.db stores settings in a number of |
|
frozen hashes of hashes. In a few cases, domain information must be uploaded to |
|
the domain as files (e.g., image files for logos etc., or plain text files for |
|
bubblesheet formats). In this case the domainprefs.pm must be running in a user |
|
session hosted on the primary library server in the domain, as these files are |
|
stored in author space belonging to a special $dom-domainconfig user. |
|
|
|
domainprefs.pm in combination with lonconfigsettings.pm will retrieve and display |
|
the current settings, and provides an interface to make modifications. |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over |
|
|
|
=item print_quotas() |
|
|
|
Inputs: 4 |
|
|
|
$dom,$settings,$rowtotal,$action. |
|
|
|
$dom is the domain, $settings is a reference to a hash of current settings for |
|
the current context, $rowtotal is a reference to the scalar used to record the |
|
number of rows displayed on the page, and $action is the context (either quotas |
|
or requestcourses). |
|
|
|
The print_quotas routine was orginally created to display/store information |
|
about default quota sizes for portfolio spaces for the different types of |
|
institutional affiliation in the domain (e.g., Faculty, Staff, Student etc.), |
|
but is now also used to manage availability of user tools: |
|
i.e., blogs, aboutme page, and portfolios, and the course request tool, |
|
used by course owners to request creation of a course. |
|
|
|
Outputs: 1 |
|
|
|
$datatable - HTML containing form elements which allow settings to be changed. |
|
|
|
In the case of course requests, radio buttons are displayed for each institutional |
|
affiliate type (and also default, and _LC_adv) for each of the course types |
|
(official, unofficial and community). In each case the radio buttons allow the |
|
selection of one of four values: |
|
|
|
0, approve, validate, autolimit=N (where N is blank, or a positive integer). |
|
which have the following effects: |
|
|
|
0 |
|
|
|
=over |
|
|
|
- course requests are not allowed for this course types/affiliation |
|
|
|
=back |
|
|
|
approve |
|
|
|
=over |
|
|
|
- course requests must be approved by a Doman Coordinator in the |
|
course's domain |
|
|
|
=back |
|
|
|
validate |
|
|
|
=over |
|
|
|
- an institutional validation (e.g., check requestor is instructor |
|
of record) needs to be passed before the course will be created. The required |
|
validation is in localenroll.pm on the primary library server for the course |
|
domain. |
|
|
|
=back |
|
|
|
autolimit |
|
|
|
=over |
|
|
|
- course requests will be processed autoatically up to a limit of |
|
N requests for the course type for the particular requestor. |
|
If N is undefined, there is no limit to the number of course requests |
|
which a course owner may submit and have processed automatically. |
|
|
|
=back |
|
|
|
=item modify_quotas() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::domainprefs; |
package Apache::domainprefs; |
|
|
use strict; |
use strict; |
Line 162 sub handler {
|
Line 287 sub handler {
|
col2 => 'Information settable when self-creating account (if directory data blank)'}], |
col2 => 'Information settable when self-creating account (if directory data blank)'}], |
}, |
}, |
'scantron' => |
'scantron' => |
{ text => 'Scantron format file', |
{ text => 'Bubblesheet format file', |
help => 'Domain_Configuration_Scantron_Format', |
help => 'Domain_Configuration_Scantron_Format', |
header => [ {col1 => 'Item', |
header => [ {col1 => 'Item', |
col2 => '', |
col2 => '', |
Line 172 sub handler {
|
Line 297 sub handler {
|
{text => 'Request creation of courses', |
{text => 'Request creation of courses', |
help => 'Domain_Configuration_Request_Courses', |
help => 'Domain_Configuration_Request_Courses', |
header => [{col1 => 'User affiliation', |
header => [{col1 => 'User affiliation', |
col2 => 'Requestable course types',}], |
col2 => 'Availability/Processing of requests',}], |
}, |
}, |
'coursecategories' => |
'coursecategories' => |
{ text => 'Cataloging of courses', |
{ text => 'Cataloging of courses', |
Line 634 sub print_rolecolors {
|
Line 759 sub print_rolecolors {
|
my %defaults = ( |
my %defaults = ( |
img => $defaultdesign{$role.'.img'}, |
img => $defaultdesign{$role.'.img'}, |
font => $defaultdesign{$role.'.font'}, |
font => $defaultdesign{$role.'.font'}, |
|
fontmenu => $defaultdesign{$role.'.fontmenu'}, |
); |
); |
foreach my $item (@bgs) { |
foreach my $item (@bgs) { |
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item}; |
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item}; |
Line 651 sub print_rolecolors {
|
Line 777 sub print_rolecolors {
|
$designs{'font'} = $settings->{$role}->{'font'}; |
$designs{'font'} = $settings->{$role}->{'font'}; |
$is_custom{'font'} = 1; |
$is_custom{'font'} = 1; |
} |
} |
|
if ($settings->{$role}->{'fontmenu'} ne '') { |
|
$designs{'fontmenu'} = $settings->{$role}->{'fontmenu'}; |
|
$is_custom{'fontmenu'} = 1; |
|
} |
foreach my $item (@bgs) { |
foreach my $item (@bgs) { |
if ($settings->{$role}->{$item} ne '') { |
if ($settings->{$role}->{$item} ne '') { |
$designs{'bgs'}{$item} = $settings->{$role}->{$item}; |
$designs{'bgs'}{$item} = $settings->{$role}->{$item}; |
Line 669 sub print_rolecolors {
|
Line 799 sub print_rolecolors {
|
$designs{img} = $designhash{$dom.'.'.$role.'.img'}; |
$designs{img} = $designhash{$dom.'.'.$role.'.img'}; |
$is_custom{'img'} = 1; |
$is_custom{'img'} = 1; |
} |
} |
|
if ($designhash{$dom.'.'.$role.'.fontmenu'} ne '') { |
|
$designs{fontmenu} = $designhash{$dom.'.'.$role.'.fontmenu'}; |
|
$is_custom{'fontmenu'} = 1; |
|
} |
if ($designhash{$dom.'.'.$role.'.font'} ne '') { |
if ($designhash{$dom.'.'.$role.'.font'} ne '') { |
$designs{font} = $designhash{$dom.'.'.$role.'.font'}; |
$designs{font} = $designhash{$dom.'.'.$role.'.font'}; |
$is_custom{'font'} = 1; |
$is_custom{'font'} = 1; |
Line 697 sub display_color_options {
|
Line 831 sub display_color_options {
|
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs, |
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs, |
$images,$bgs,$links,$alt_text,$rowtotal,$logintext,$loginheader) = @_; |
$images,$bgs,$links,$alt_text,$rowtotal,$logintext,$loginheader) = @_; |
my $css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $css_class = $itemcount%2?' class="LC_odd_row"':''; |
my $datatable = '<tr'.$css_class.'>'. |
my $datatable = '<tr>'. |
'<td>'.$choices->{'font'}.'</td>'; |
'<td>'.$choices->{'font'}.'</td>'; |
if (!$is_custom->{'font'}) { |
if (!$is_custom->{'font'}) { |
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>'; |
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'font'}.';">'.$defaults->{'font'}.'</span></td>'; |
Line 711 sub display_color_options {
|
Line 845 sub display_color_options {
|
' <span id="css_'.$role.'_font" style="background-color: '. |
' <span id="css_'.$role.'_font" style="background-color: '. |
$designs->{'font'}.';"> </span>'. |
$designs->{'font'}.';"> </span>'. |
'</span></td></tr>'; |
'</span></td></tr>'; |
|
$datatable .= '<tr'.$css_class.'>'. |
|
'<td>'.$choices->{'fontmenu'}.'</td>'; |
|
if (!$is_custom->{'fontmenu'}) { |
|
$datatable .= '<td>'.&mt('Default in use:').' <span id="css_default_'.$role.'_font" style="color: '.$defaults->{'fontmenu'}.';">'.$defaults->{'fontmenu'}.'</span></td>'; |
|
} else { |
|
$datatable .= '<td> </td>'; |
|
} |
|
$fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'}); |
|
$datatable .= '<td><span class="LC_nobreak">'. |
|
'<input type="text" size="10" name="'.$role.'_fontmenu"'. |
|
' value="'.$designs->{'fontmenu'}.'" /> '.$fontlink. |
|
' <span id="css_'.$role.'_fontmenu" style="background-color: '. |
|
$designs->{'fontmenu'}.';"> </span>'. |
|
'</span></td></tr>'; |
my $switchserver = &check_switchserver($dom,$confname); |
my $switchserver = &check_switchserver($dom,$confname); |
foreach my $img (@{$images}) { |
foreach my $img (@{$images}) { |
$itemcount ++; |
$itemcount ++; |
Line 991 sub print_quotas {
|
Line 1139 sub print_quotas {
|
} else { |
} else { |
$context = $action; |
$context = $action; |
} |
} |
my ($datatable,$defaultquota,@usertools); |
my ($datatable,$defaultquota,@usertools,@options,%validations); |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
my $typecount = 0; |
my $typecount = 0; |
my $css_class; |
my ($css_class,%titles); |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
@usertools = ('official','unofficial'); |
@usertools = ('official','unofficial','community'); |
|
@options =('norequest','approve','autolimit','validate'); |
|
%validations = &Apache::lonnet::auto_courserequest_checks($dom); |
|
%titles = &courserequest_titles(); |
} else { |
} else { |
@usertools = ('aboutme','blog','portfolio'); |
@usertools = ('aboutme','blog','portfolio'); |
|
%titles = &tool_titles(); |
} |
} |
my %titles = &tool_titles(); |
|
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
foreach my $type (@{$types}) { |
foreach my $type (@{$types}) { |
my $currdefquota; |
my $currdefquota; |
Line 1019 sub print_quotas {
|
Line 1170 sub print_quotas {
|
$datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
'<td>'.$usertypes->{$type}.'</td>'. |
'<td>'.$usertypes->{$type}.'</td>'. |
'<td class="LC_left_item">'; |
'<td class="LC_left_item">'; |
|
if ($context eq 'requestcourses') { |
|
$datatable .= '<table><tr>'; |
|
} |
|
my %cell; |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
my $checked; |
if ($context eq 'requestcourses') { |
unless ($context eq 'requestcourses') { |
my ($curroption,$currlimit); |
$checked = 'checked="checked" '; |
if (ref($settings) eq 'HASH') { |
} |
if (ref($settings->{$item}) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
$curroption = $settings->{$item}->{$type}; |
if (ref($settings->{$item}) eq 'HASH') { |
if ($curroption =~ /^autolimit=(\d*)$/) { |
if ($settings->{$item}->{$type} == 0) { |
$currlimit = $1; |
$checked = ''; |
} |
} elsif ($settings->{$item}->{$type} == 1) { |
} |
$checked = 'checked="checked" '; |
} |
|
if (!$curroption) { |
|
$curroption = 'norequest'; |
|
} |
|
$datatable .= '<th>'.$titles{$item}.'</th>'; |
|
foreach my $option (@options) { |
|
my $val = $option; |
|
if ($option eq 'norequest') { |
|
$val = 0; |
|
} |
|
if ($option eq 'validate') { |
|
my $canvalidate = 0; |
|
if (ref($validations{$item}) eq 'HASH') { |
|
if ($validations{$item}{$type}) { |
|
$canvalidate = 1; |
|
} |
|
} |
|
next if (!$canvalidate); |
|
} |
|
my $checked = ''; |
|
if ($option eq $curroption) { |
|
$checked = ' checked="checked"'; |
|
} elsif ($option eq 'autolimit') { |
|
if ($curroption =~ /^autolimit/) { |
|
$checked = ' checked="checked"'; |
|
} |
|
} |
|
$cell{$item} .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="crsreq_'.$item. |
|
'_'.$type.'" value="'.$val.'"'.$checked.' />'. |
|
$titles{$option}.'</label> '; |
|
if ($option eq 'autolimit') { |
|
$cell{$item} .= '<input type="text" name="crsreq_'. |
|
$item.'_limit_'.$type.'" size="1" '. |
|
'value="'.$currlimit.'" />'; |
|
} |
|
$cell{$item} .= '</span> '; |
|
} |
|
} else { |
|
my $checked = 'checked="checked" '; |
|
if (ref($settings) eq 'HASH') { |
|
if (ref($settings->{$item}) eq 'HASH') { |
|
if ($settings->{$item}->{$type} == 0) { |
|
$checked = ''; |
|
} elsif ($settings->{$item}->{$type} == 1) { |
|
$checked = 'checked="checked" '; |
|
} |
} |
} |
} |
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="checkbox" name="'.$context.'_'.$item. |
|
'" value="'.$type.'" '.$checked.'/>'.$titles{$item}. |
|
'</label></span> '; |
} |
} |
$datatable .= '<span class="LC_nobreak"><label>'. |
} |
'<input type="checkbox" name="'.$context.'_'.$item. |
if ($context eq 'requestcourses') { |
'" value="'.$type.'" '.$checked.'/>'.$titles{$item}. |
$datatable .= '</tr><tr>'; |
'</label></span> '; |
foreach my $item (@usertools) { |
|
$datatable .= '<td>'.$cell{$item}.'</td>'; |
|
} |
|
$datatable .= '</tr></table>'; |
} |
} |
$datatable .= '</td>'; |
$datatable .= '</td>'; |
unless ($context eq 'requestcourses') { |
unless ($context eq 'requestcourses') { |
Line 1065 sub print_quotas {
|
Line 1273 sub print_quotas {
|
$datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
'<td>'.$othertitle.'</td>'. |
'<td>'.$othertitle.'</td>'. |
'<td class="LC_left_item">'; |
'<td class="LC_left_item">'; |
|
if ($context eq 'requestcourses') { |
|
$datatable .= '<table><tr>'; |
|
} |
|
my %defcell; |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
my $checked; |
if ($context eq 'requestcourses') { |
unless ($context eq 'requestcourses') { |
my ($curroption,$currlimit); |
$checked = 'checked="checked" '; |
if (ref($settings) eq 'HASH') { |
} |
if (ref($settings->{$item}) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
$curroption = $settings->{$item}->{'default'}; |
if (ref($settings->{$item}) eq 'HASH') { |
if ($curroption =~ /^autolimit=(\d*)$/) { |
if ($settings->{$item}->{'default'} == 0) { |
$currlimit = $1; |
$checked = ''; |
} |
} elsif ($settings->{$item}->{'default'} == 1) { |
|
$checked = 'checked="checked" '; |
|
} |
} |
} |
} |
|
if (!$curroption) { |
|
$curroption = 'norequest'; |
|
} |
|
$datatable .= '<th>'.$titles{$item}.'</th>'; |
|
foreach my $option (@options) { |
|
my $val = $option; |
|
if ($option eq 'norequest') { |
|
$val = 0; |
|
} |
|
if ($option eq 'validate') { |
|
my $canvalidate = 0; |
|
if (ref($validations{$item}) eq 'HASH') { |
|
if ($validations{$item}{'default'}) { |
|
$canvalidate = 1; |
|
} |
|
} |
|
next if (!$canvalidate); |
|
} |
|
my $checked = ''; |
|
if ($option eq $curroption) { |
|
$checked = ' checked="checked"'; |
|
} elsif ($option eq 'autolimit') { |
|
if ($curroption =~ /^autolimit/) { |
|
$checked = ' checked="checked"'; |
|
} |
|
} |
|
$defcell{$item} .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="crsreq_'.$item. |
|
'_default" value="'.$val.'"'.$checked.' />'. |
|
$titles{$option}.'</label>'; |
|
if ($option eq 'autolimit') { |
|
$defcell{$item} .= '<input type="text" name="crsreq_'. |
|
$item.'_limit_default" size="1" '. |
|
'value="'.$currlimit.'" />'; |
|
} |
|
$defcell{$item} .= '</span> '; |
|
} |
|
} else { |
|
my $checked = 'checked="checked" '; |
|
if (ref($settings) eq 'HASH') { |
|
if (ref($settings->{$item}) eq 'HASH') { |
|
if ($settings->{$item}->{'default'} == 0) { |
|
$checked = ''; |
|
} elsif ($settings->{$item}->{'default'} == 1) { |
|
$checked = 'checked="checked" '; |
|
} |
|
} |
|
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="checkbox" name="'.$context.'_'.$item. |
|
'" value="default" '.$checked.'/>'.$titles{$item}. |
|
'</label></span> '; |
} |
} |
$datatable .= '<span class="LC_nobreak"><label>'. |
} |
'<input type="checkbox" name="'.$context.'_'.$item. |
if ($context eq 'requestcourses') { |
'" value="default" '.$checked.'/>'.$titles{$item}. |
$datatable .= '</tr><tr>'; |
'</label></span> '; |
foreach my $item (@usertools) { |
|
$datatable .= '<td>'.$defcell{$item}.'</td>'; |
|
} |
|
$datatable .= '</tr></table>'; |
} |
} |
$datatable .= '</td>'; |
$datatable .= '</td>'; |
unless ($context eq 'requestcourses') { |
unless ($context eq 'requestcourses') { |
Line 1094 sub print_quotas {
|
Line 1359 sub print_quotas {
|
$typecount ++; |
$typecount ++; |
$css_class = $typecount%2?' class="LC_odd_row"':''; |
$css_class = $typecount%2?' class="LC_odd_row"':''; |
$datatable .= '<tr'.$css_class.'>'. |
$datatable .= '<tr'.$css_class.'>'. |
'<td><br/>'.&mt('LON-CAPA Advanced Users').'</td>'. |
'<td>'.&mt('LON-CAPA Advanced Users'). |
'<td class="LC_left_item" colspan="2"><br />'; |
' <span class="LC_nobreak">('. |
|
&mt('overrides affiliation').')</span></td>'. |
|
'<td class="LC_left_item" colspan="2">'; |
|
if ($context eq 'requestcourses') { |
|
$datatable .= '<table><tr>'; |
|
} else { |
|
$datatable .= '<br />'; |
|
} |
|
my %advcell; |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
my $checked; |
if ($context eq 'requestcourses') { |
unless ($context eq 'requestcourses') { |
my ($curroption,$currlimit); |
$checked = 'checked="checked" '; |
if (ref($settings) eq 'HASH') { |
} |
if (ref($settings->{$item}) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
$curroption = $settings->{$item}->{'_LC_adv'}; |
if (ref($settings->{$item}) eq 'HASH') { |
if ($curroption =~ /^autolimit=(\d*)$/) { |
if ($settings->{$item}->{'_LC_adv'} == 0) { |
$currlimit = $1; |
$checked = ''; |
} |
} elsif ($settings->{$item}->{'_LC_adv'} == 1) { |
} |
$checked = 'checked="checked" '; |
} |
|
if (!$curroption) { |
|
$curroption = 'norequest'; |
|
} |
|
$datatable .= '<th>'.$titles{$item}.'</th>'; |
|
foreach my $option (@options) { |
|
my $val = $option; |
|
if ($option eq 'norequest') { |
|
$val = 0; |
|
} |
|
if ($option eq 'validate') { |
|
my $canvalidate = 0; |
|
if (ref($validations{$item}) eq 'HASH') { |
|
if ($validations{$item}{'_LC_adv'}) { |
|
$canvalidate = 1; |
|
} |
|
} |
|
next if (!$canvalidate); |
} |
} |
|
my $checked = ''; |
|
if ($option eq $curroption) { |
|
$checked = ' checked="checked"'; |
|
} elsif ($option eq 'autolimit') { |
|
if ($curroption =~ /^autolimit/) { |
|
$checked = ' checked="checked"'; |
|
} |
|
} |
|
$advcell{$item} .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="crsreq_'.$item. |
|
'__LC_adv" value="'.$val.'"'.$checked.' />'. |
|
$titles{$option}.'</label>'; |
|
if ($option eq 'autolimit') { |
|
$advcell{$item} .= '<input type="text" name="crsreq_'. |
|
$item.'_limit__LC_adv" size="1" '. |
|
'value="'.$currlimit.'" />'; |
|
} |
|
$advcell{$item} .= '</span> '; |
} |
} |
|
} else { |
|
my $checked = 'checked="checked" '; |
|
if (ref($settings) eq 'HASH') { |
|
if (ref($settings->{$item}) eq 'HASH') { |
|
if ($settings->{$item}->{'_LC_adv'} == 0) { |
|
$checked = ''; |
|
} elsif ($settings->{$item}->{'_LC_adv'} == 1) { |
|
$checked = 'checked="checked" '; |
|
} |
|
} |
|
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="checkbox" name="'.$context.'_'.$item. |
|
'" value="_LC_adv" '.$checked.'/>'.$titles{$item}. |
|
'</label></span> '; |
|
} |
|
} |
|
if ($context eq 'requestcourses') { |
|
$datatable .= '</tr><tr>'; |
|
foreach my $item (@usertools) { |
|
$datatable .= '<td>'.$advcell{$item}.'</td>'; |
} |
} |
$datatable .= '<span class="LC_nobreak"><label>'. |
$datatable .= '</tr></table>'; |
'<input type="checkbox" name="'.$context.'_'.$item. |
|
'" value="_LC_adv" '.$checked.'/>'.$titles{$item}. |
|
'</label></span> '; |
|
} |
} |
$datatable .= '<span class="LC_nobreak">('.&mt('overrides affiliation'). |
$datatable .= '</td></tr>'; |
')</span></td></tr>'; |
|
$$rowtotal += $typecount; |
$$rowtotal += $typecount; |
return $datatable; |
return $datatable; |
} |
} |
Line 1448 sub tool_titles {
|
Line 1773 sub tool_titles {
|
portfolio => 'Portfolio', |
portfolio => 'Portfolio', |
official => 'Official courses (with institutional codes)', |
official => 'Official courses (with institutional codes)', |
unofficial => 'Unofficial courses', |
unofficial => 'Unofficial courses', |
|
community => 'Communities', |
|
); |
|
return %titles; |
|
} |
|
|
|
sub courserequest_titles { |
|
my %titles = &Apache::lonlocal::texthash ( |
|
official => 'Official', |
|
unofficial => 'Unofficial', |
|
community => 'Communities', |
|
norequest => 'Not allowed', |
|
approve => 'Approval by Dom. Coord.', |
|
validate => 'With validation', |
|
autolimit => 'Numerical limit', |
); |
); |
return %titles; |
return %titles; |
} |
} |
|
|
|
sub courserequest_conditions { |
|
my %conditions = &Apache::lonlocal::texthash ( |
|
approve => '(Processing of request subject to approval by Domain Coordinator).', |
|
validate => '(Processing of request subject to instittutional validation).', |
|
); |
|
return %conditions; |
|
} |
|
|
|
|
sub print_usercreation { |
sub print_usercreation { |
my ($position,$dom,$settings,$rowtotal) = @_; |
my ($position,$dom,$settings,$rowtotal) = @_; |
my $numinrow = 4; |
my $numinrow = 4; |
Line 1493 sub print_usercreation {
|
Line 1841 sub print_usercreation {
|
$rowcount ++; |
$rowcount ++; |
} |
} |
} elsif ($position eq 'middle') { |
} elsif ($position eq 'middle') { |
my @creators = ('author','course','selfcreate'); |
my @creators = ('author','course','requestcrs','selfcreate'); |
my ($rules,$ruleorder) = |
my ($rules,$ruleorder) = |
&Apache::lonnet::inst_userrules($dom,'username'); |
&Apache::lonnet::inst_userrules($dom,'username'); |
my %lt = &usercreation_types(); |
my %lt = &usercreation_types(); |
Line 1574 sub print_usercreation {
|
Line 1922 sub print_usercreation {
|
&Apache::loncommon::sorted_inst_types($dom); |
&Apache::loncommon::sorted_inst_types($dom); |
if (ref($usertypes) eq 'HASH') { |
if (ref($usertypes) eq 'HASH') { |
if (keys(%{$usertypes}) > 0) { |
if (keys(%{$usertypes}) > 0) { |
$datatable .= &insttypes_row($settings->{cancreate},$types,$usertypes, |
my $createsettings; |
|
if (ref($settings) eq 'HASH') { |
|
$createsettings = $settings->{cancreate}; |
|
} |
|
$datatable .= &insttypes_row($createsettings,$types,$usertypes, |
$dom,$numinrow,$othertitle, |
$dom,$numinrow,$othertitle, |
'statustocreate'); |
'statustocreate'); |
$$rowtotal ++; |
$$rowtotal ++; |
Line 1692 sub usercreation_types {
|
Line 2044 sub usercreation_types {
|
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
author => 'When adding a co-author', |
author => 'When adding a co-author', |
course => 'When adding a user to a course', |
course => 'When adding a user to a course', |
|
requestcrs => 'When requesting a course', |
selfcreate => 'User creates own account', |
selfcreate => 'User creates own account', |
any => 'Any', |
any => 'Any', |
official => 'Institutional only ', |
official => 'Institutional only ', |
Line 1833 sub print_scantronformat {
|
Line 2186 sub print_scantronformat {
|
%confhash); |
%confhash); |
my $switchserver = &check_switchserver($dom,$confname); |
my $switchserver = &check_switchserver($dom,$confname); |
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
default => 'Default scantron format file error', |
default => 'Default bubblesheet format file error', |
custom => 'Custom scantron format file error', |
custom => 'Custom bubblesheet format file error', |
); |
); |
my %scantronfiles = ( |
my %scantronfiles = ( |
default => 'default.tab', |
default => 'default.tab', |
Line 1907 sub print_scantronformat {
|
Line 2260 sub print_scantronformat {
|
} |
} |
} |
} |
} else { |
} else { |
$error{'default'} = &mt("Unable to copy default scantron formatfile to domain's RES space: [_1]",$switchserver); |
$error{'default'} = &mt("Unable to copy default bubblesheet formatfile to domain's RES space: [_1]",$switchserver); |
} |
} |
} |
} |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
Line 2495 sub insttypes_row {
|
Line 2848 sub insttypes_row {
|
$output .= '<tr>'; |
$output .= '<tr>'; |
} |
} |
my $check = ' '; |
my $check = ' '; |
if (ref($settings->{$context}) eq 'ARRAY') { |
if (ref($settings) eq 'HASH') { |
if (grep(/^\Q$types->[$i]\E$/,@{$settings->{$context}})) { |
if (ref($settings->{$context}) eq 'ARRAY') { |
|
if (grep(/^\Q$types->[$i]\E$/,@{$settings->{$context}})) { |
|
$check = ' checked="checked" '; |
|
} |
|
} elsif ($context eq 'statustocreate') { |
$check = ' checked="checked" '; |
$check = ' checked="checked" '; |
} |
} |
} elsif ($context eq 'statustocreate') { |
|
$check = ' checked="checked" '; |
|
} |
} |
$output .= '<td class="LC_left_item">'. |
$output .= '<td class="LC_left_item">'. |
'<span class="LC_nobreak"><label>'. |
'<span class="LC_nobreak"><label>'. |
Line 2519 sub insttypes_row {
|
Line 2874 sub insttypes_row {
|
$output .= '<td class="LC_left_item">'; |
$output .= '<td class="LC_left_item">'; |
} |
} |
my $defcheck = ' '; |
my $defcheck = ' '; |
if (ref($settings->{$context}) eq 'ARRAY') { |
if (ref($settings) eq 'HASH') { |
if (grep(/^default$/,@{$settings->{$context}})) { |
if (ref($settings->{$context}) eq 'ARRAY') { |
|
if (grep(/^default$/,@{$settings->{$context}})) { |
|
$defcheck = ' checked="checked" '; |
|
} |
|
} elsif ($context eq 'statustocreate') { |
$defcheck = ' checked="checked" '; |
$defcheck = ' checked="checked" '; |
} |
} |
} elsif ($context eq 'statustocreate') { |
|
$defcheck = ' checked="checked" '; |
|
} |
} |
$output .= '<span class="LC_nobreak"><label>'. |
$output .= '<span class="LC_nobreak"><label>'. |
'<input type="checkbox" name="'.$context.'" '. |
'<input type="checkbox" name="'.$context.'" '. |
Line 2697 sub color_font_choices {
|
Line 3054 sub color_font_choices {
|
links => "Link colors", |
links => "Link colors", |
images => "Images", |
images => "Images", |
font => "Font color", |
font => "Font color", |
|
fontmenu => "Font Menu", |
pgbg => "Page", |
pgbg => "Page", |
tabbg => "Header", |
tabbg => "Header", |
sidebg => "Border", |
sidebg => "Border", |
Line 2763 sub modify_colors {
|
Line 3121 sub modify_colors {
|
@bgs = ('pgbg','tabbg','sidebg'); |
@bgs = ('pgbg','tabbg','sidebg'); |
} |
} |
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'}; |
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'}; |
|
$confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'}; |
foreach my $item (@bgs,@links,@logintext) { |
foreach my $item (@bgs,@links,@logintext) { |
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item}; |
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item}; |
} |
} |
Line 2876 sub modify_colors {
|
Line 3235 sub modify_colors {
|
$changes{$role}{'font'} = 1; |
$changes{$role}{'font'} = 1; |
} |
} |
} |
} |
|
if ($domconfig->{$role}{'fontmenu'} ne '') { |
|
if ($confhash->{$role}{'fontmenu'} ne $domconfig->{$role}{'fontmenu'}) { |
|
$changes{$role}{'fontmenu'} = 1; |
|
} |
|
} else { |
|
if ($confhash->{$role}{'fontmenu'}) { |
|
$changes{$role}{'fontmenu'} = 1; |
|
} |
|
} |
foreach my $item (@bgs) { |
foreach my $item (@bgs) { |
if ($domconfig->{$role}{$item} ne '') { |
if ($domconfig->{$role}{$item} ne '') { |
if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) { |
if ($confhash->{$role}{$item} ne $domconfig->{$role}{$item}) { |
Line 3307 sub check_switchserver {
|
Line 3675 sub check_switchserver {
|
|
|
sub modify_quotas { |
sub modify_quotas { |
my ($dom,$action,%domconfig) = @_; |
my ($dom,$action,%domconfig) = @_; |
my ($context,@usertools); |
my ($context,@usertools,@options,%validations,%titles,%confhash,%toolshash, |
|
%limithash,$toolregexp,%conditions,$resulttext,%changes); |
if ($action eq 'quotas') { |
if ($action eq 'quotas') { |
$context = 'tools'; |
$context = 'tools'; |
} else { |
} else { |
$context = $action; |
$context = $action; |
} |
} |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
@usertools = ('official','unofficial'); |
@usertools = ('official','unofficial','community'); |
|
@options =('norequest','approve','autolimit','validate'); |
|
%validations = &Apache::lonnet::auto_courserequest_checks($dom); |
|
%titles = &courserequest_titles(); |
|
$toolregexp = join('|',@usertools); |
|
%conditions = &courserequest_conditions(); |
} else { |
} else { |
@usertools = ('aboutme','blog','portfolio'); |
@usertools = ('aboutme','blog','portfolio'); |
|
%titles = &tool_titles(); |
} |
} |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
my ($resulttext,%changes); |
|
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
my %titles = &tool_titles(); |
|
my (%confhash,%toolshash); |
|
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
unless ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
|
if ($key =~ /^form\.crsreq_($toolregexp)_(.+)$/) { |
|
my $item = $1; |
|
my $type = $2; |
|
if ($type =~ /^limit_(.+)/) { |
|
$limithash{$item}{$1} = $env{$key}; |
|
} else { |
|
$confhash{$item}{$type} = $env{$key}; |
|
} |
|
} |
|
} else { |
if ($key =~ /^form\.quota_(.+)$/) { |
if ($key =~ /^form\.quota_(.+)$/) { |
$confhash{'defaultquota'}{$1} = $env{$key}; |
$confhash{'defaultquota'}{$1} = $env{$key}; |
} |
} |
} |
if ($key =~ /^form\.\Q$context\E_(.+)$/) { |
if ($key =~ /^form\.\Q$context\E_(.+)$/) { |
@{$toolshash{$1}} = &Apache::loncommon::get_env_multiple($key); |
@{$toolshash{$1}} = &Apache::loncommon::get_env_multiple($key); |
} |
} |
} |
} |
} |
unless ($context eq 'requestcourses') { |
unless ($context eq 'requestcourses') { |
Line 3338 sub modify_quotas {
|
Line 3720 sub modify_quotas {
|
} |
} |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
foreach my $type (@{$types},'default','_LC_adv') { |
foreach my $type (@{$types},'default','_LC_adv') { |
if (grep(/^\Q$type\E$/,@{$toolshash{$item}})) { |
if ($context eq 'requestcourses') { |
$confhash{$item}{$type} = 1; |
if ($confhash{$item}{$type} eq 'autolimit') { |
|
$confhash{$item}{$type} .= '='; |
|
unless ($limithash{$item}{$type} =~ /\D/) { |
|
$confhash{$item}{$type} .= $limithash{$item}{$type}; |
|
} |
|
} |
} else { |
} else { |
$confhash{$item}{$type} = 0; |
if (grep(/^\Q$type\E$/,@{$toolshash{$item}})) { |
|
$confhash{$item}{$type} = 1; |
|
} else { |
|
$confhash{$item}{$type} = 0; |
|
} |
} |
} |
if (ref($domconfig{$action}) eq 'HASH') { |
if (ref($domconfig{$action}) eq 'HASH') { |
if (ref($domconfig{$action}{$item}) eq 'HASH') { |
if (ref($domconfig{$action}{$item}) eq 'HASH') { |
Line 3350 sub modify_quotas {
|
Line 3741 sub modify_quotas {
|
} |
} |
} else { |
} else { |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
if ($confhash{$item}{$type}) { |
if ($confhash{$item}{$type} ne 'norequest') { |
$changes{$item}{$type} = 1; |
$changes{$item}{$type} = 1; |
} |
} |
} else { |
} else { |
Line 3361 sub modify_quotas {
|
Line 3752 sub modify_quotas {
|
} |
} |
} else { |
} else { |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
if ($confhash{$item}{$type}) { |
if ($confhash{$item}{$type} eq 'norequest') { |
$changes{$item}{$type} = 1; |
$changes{$item}{$type} = 1; |
} |
} |
} else { |
} else { |
Line 3453 sub modify_quotas {
|
Line 3844 sub modify_quotas {
|
$env{'user.domain'}, |
$env{'user.domain'}, |
$item,'reload',$context); |
$item,'reload',$context); |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
if ($env{'environment.canrequest.'.$item} ne $newacc) { |
if ($env{'environment.crsrequest.'.$item} ne $newacc) { |
$newenv{'environment.canrequest.'.$item} = $newacc; |
$newenv{'environment.crsrequest.'.$item} = $newacc; |
} |
} |
} else { |
} else { |
if ($env{'environment.availabletools.'.$item} ne $newacc) { |
if ($env{'environment.availabletools.'.$item} ne $newacc) { |
Line 3471 sub modify_quotas {
|
Line 3862 sub modify_quotas {
|
$typetitle = 'LON-CAPA Advanced Users'; |
$typetitle = 'LON-CAPA Advanced Users'; |
} |
} |
if ($confhash{$item}{$type}) { |
if ($confhash{$item}{$type}) { |
$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>'; |
if ($context eq 'requestcourses') { |
|
my $cond; |
|
if ($confhash{$item}{$type} =~ /^autolimit=(\d*)$/) { |
|
if ($1 eq '') { |
|
$cond = &mt('(Automatic processing of any request).'); |
|
} else { |
|
$cond = &mt('(Automatic processing of requests up to limit of [quant,_1,request] per user).',$1); |
|
} |
|
} else { |
|
$cond = $conditions{$confhash{$item}{$type}}; |
|
} |
|
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>'; |
|
} else { |
|
$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>'; |
|
} |
} else { |
} else { |
$resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>'; |
$resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>'; |
} |
} |
Line 3984 sub modify_usercreation {
|
Line 4389 sub modify_usercreation {
|
my @username_rule = &Apache::loncommon::get_env_multiple('form.username_rule'); |
my @username_rule = &Apache::loncommon::get_env_multiple('form.username_rule'); |
my @id_rule = &Apache::loncommon::get_env_multiple('form.id_rule'); |
my @id_rule = &Apache::loncommon::get_env_multiple('form.id_rule'); |
my @email_rule = &Apache::loncommon::get_env_multiple('form.email_rule'); |
my @email_rule = &Apache::loncommon::get_env_multiple('form.email_rule'); |
my @contexts = ('author','course','selfcreate'); |
my @contexts = ('author','course','requestcrs','selfcreate'); |
foreach my $item(@contexts) { |
foreach my $item(@contexts) { |
if ($item eq 'selfcreate') { |
if ($item eq 'selfcreate') { |
@{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item); |
@{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item); |
Line 4188 sub modify_usercreation {
|
Line 4593 sub modify_usercreation {
|
if (ref($changes{'cancreate'}) eq 'ARRAY') { |
if (ref($changes{'cancreate'}) eq 'ARRAY') { |
my %lt = &usercreation_types(); |
my %lt = &usercreation_types(); |
foreach my $type (@{$changes{'cancreate'}}) { |
foreach my $type (@{$changes{'cancreate'}}) { |
my $chgtext = $lt{$type}.', '; |
my $chgtext; |
|
unless ($type eq 'statustocreate') { |
|
$chgtext = $lt{$type}.', '; |
|
} |
if ($type eq 'selfcreate') { |
if ($type eq 'selfcreate') { |
if (@{$cancreate{$type}} == 0) { |
if (@{$cancreate{$type}} == 0) { |
$chgtext .= &mt('creation of a new user account is not permitted.'); |
$chgtext .= &mt('creation of a new user account is not permitted.'); |
} else { |
} else { |
$chgtext .= &mt('creation of a new account is permitted for:<ul>'); |
$chgtext .= &mt('creation of a new account is permitted for:').'<ul>'; |
foreach my $case (@{$cancreate{$type}}) { |
foreach my $case (@{$cancreate{$type}}) { |
$chgtext .= '<li>'.$selfcreatetypes{$case}.'</li>'; |
$chgtext .= '<li>'.$selfcreatetypes{$case}.'</li>'; |
} |
} |
$chgtext .= '</ul>'; |
$chgtext .= '</ul>'; |
|
if (ref($cancreate{$type}) eq 'ARRAY') { |
|
if (grep(/^(login|sso)$/,@{$cancreate{$type}})) { |
|
if (ref($cancreate{'statustocreate'}) eq 'ARRAY') { |
|
if (@{$cancreate{'statustocreate'}} == 0) { |
|
$chgtext .= '<br /><span class="LC_warning">'.&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").'</span>'; |
|
} |
|
} |
|
} |
|
} |
} |
} |
} elsif ($type eq 'statustocreate') { |
} elsif ($type eq 'statustocreate') { |
if (@{$cancreate{'selfcreate'}} > 0) { |
if ((ref($cancreate{'selfcreate'}) eq 'ARRAY') && |
if (@{$cancreate{$type}} == 0) { |
(ref($cancreate{'statustocreate'}) eq 'ARRAY')) { |
if (!grep(/^email$/,@{$cancreate{'selfcreate'}})) { |
if (@{$cancreate{'selfcreate'}} > 0) { |
$chgtext .= &mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts."); |
if (@{$cancreate{'statustocreate'}} == 0) { |
} |
|
} elsif (ref($usertypes) eq 'HASH') { |
$chgtext .= &mt("Institutional affiliations permitted to create accounts set to 'None'."); |
if (grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) { |
if (!grep(/^email$/,@{$cancreate{'selfcreate'}})) { |
$chgtext .= &mt('creation of a new account for an institutional user is restricted to the following institutional affiliation(s):').'<ul>'; |
$chgtext .= '<br /><span class="LC_warning">'.&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").'</span>'; |
|
} |
|
} elsif (ref($usertypes) eq 'HASH') { |
|
if (grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) { |
|
$chgtext .= &mt('Creation of a new account for an institutional user is restricted to the following institutional affiliation(s):'); |
|
} else { |
|
$chgtext .= &mt('Institutional affiliations permitted to create accounts with institutional authentication were set as follows:'); |
|
} |
|
$chgtext .= '<ul>'; |
foreach my $case (@{$cancreate{$type}}) { |
foreach my $case (@{$cancreate{$type}}) { |
if ($case eq 'default') { |
if ($case eq 'default') { |
$chgtext .= '<li>'.$othertitle.'</li>'; |
$chgtext .= '<li>'.$othertitle.'</li>'; |
Line 4216 sub modify_usercreation {
|
Line 4641 sub modify_usercreation {
|
} |
} |
} |
} |
$chgtext .= '</ul>'; |
$chgtext .= '</ul>'; |
|
if (!grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) { |
|
$chgtext .= '<br /><span class="LC_warning">'.&mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').'</span>'; |
|
} |
|
} |
|
} else { |
|
if (@{$cancreate{$type}} == 0) { |
|
$chgtext .= &mt("Institutional affiliations permitted to create accounts were set to 'none'."); |
|
} else { |
|
$chgtext .= &mt('Although institutional affiliations permitted to create accounts were changed, self creation of accounts is not currently permitted for any authentication types.'); |
} |
} |
} |
} |
} |
} |