version 1.93, 2009/04/22 14:09:13
|
version 1.96, 2009/05/19 20:00:24
|
Line 162 sub handler {
|
Line 162 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 204 sub handler {
|
Line 204 sub handler {
|
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname); |
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname); |
} else { |
} else { |
if (keys(%domconfig) == 0) { |
if (keys(%domconfig) == 0) { |
&Apache::lonconfigsettings::print_header($r,$phase,$context); |
|
my $primarylibserv = &Apache::lonnet::domain($dom,'primary'); |
my $primarylibserv = &Apache::lonnet::domain($dom,'primary'); |
my @ids=&Apache::lonnet::current_machine_ids(); |
my @ids=&Apache::lonnet::current_machine_ids(); |
if (!grep(/^\Q$primarylibserv\E$/,@ids)) { |
if (!grep(/^\Q$primarylibserv\E$/,@ids)) { |
Line 222 sub handler {
|
Line 221 sub handler {
|
} |
} |
} |
} |
if ($custom_img_count > 0) { |
if ($custom_img_count > 0) { |
|
&Apache::lonconfigsettings::print_header($r,$phase,$context); |
my $switch_server = &check_switchserver($dom,$confname); |
my $switch_server = &check_switchserver($dom,$confname); |
$r->print( |
$r->print( |
&mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'<br />'. |
&mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'<br />'. |
Line 1833 sub print_scantronformat {
|
Line 1833 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 1907 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 4200 sub modify_usercreation {
|
Line 4200 sub modify_usercreation {
|
$chgtext .= '</ul>'; |
$chgtext .= '</ul>'; |
} |
} |
} 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) { |
} |
if (!grep(/^email$/,@{$cancreate{'selfcreate'}})) { |
} elsif (ref($usertypes) eq 'HASH') { |
$chgtext .= &mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts."); |
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):').'<ul>'; |
} elsif (ref($usertypes) eq 'HASH') { |
foreach my $case (@{$cancreate{$type}}) { |
if (grep(/^(login|sso)$/,@{$cancreate{'selfcreate'}})) { |
if ($case eq 'default') { |
$chgtext .= &mt('creation of a new account for an institutional user is restricted to the following institutional affiliation(s):').'<ul>'; |
$chgtext .= '<li>'.$othertitle.'</li>'; |
foreach my $case (@{$cancreate{$type}}) { |
} else { |
if ($case eq 'default') { |
$chgtext .= '<li>'.$usertypes->{$case}.'</li>'; |
$chgtext .= '<li>'.$othertitle.'</li>'; |
|
} else { |
|
$chgtext .= '<li>'.$usertypes->{$case}.'</li>'; |
|
} |
} |
} |
|
$chgtext .= '</ul>'; |
} |
} |
$chgtext .= '</ul>'; |
|
} |
} |
} |
} |
} |
} |