loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainprefs.pm between versions 1.300 and 1.314

version 1.300, 2017/05/22 07:58:46	version 1.314, 2017/10/07 00:50:47
Line 281 sub handler {	Line 281 sub handler {
{col1 => 'Internal Authentication',	{col1 => 'Internal Authentication',
col2 => 'Value'},	col2 => 'Value'},
{col1 => 'Institutional user types',	{col1 => 'Institutional user types',
col2 => 'Assignable to e-mail usernames'}],	col2 => 'Name displayed'}],
print => \&print_defaults,	print => \&print_defaults,
modify => \&modify_defaults,	modify => \&modify_defaults,
},	},
Line 363 sub handler {	Line 363 sub handler {
col2 => 'Enabled?'},	col2 => 'Enabled?'},
{col1 => 'Institutional user type (login/SSO self-creation)',	{col1 => 'Institutional user type (login/SSO self-creation)',
col2 => 'Information user can enter'},	col2 => 'Information user can enter'},
{col1 => 'Self-creation with e-mail as username',	{col1 => 'Self-creation with e-mail verification',
col2 => 'Settings'}],	col2 => 'Settings'}],
print => \&print_selfcreation,	print => \&print_selfcreation,
modify => \&modify_selfcreation,	modify => \&modify_selfcreation,
Line 598 $javascript_validations	Line 598 $javascript_validations
$coursebrowserjs	$coursebrowserjs
END	END
}	}
	if (grep(/^selfcreation$/,@actions)) {
	$js .= &selfcreate_javascript();
	}
if (grep(/^contacts$/,@actions)) {	if (grep(/^contacts$/,@actions)) {
$js .= &contacts_javascript();	$js .= &contacts_javascript();
}	}
Line 694 sub process_changes {	Line 697 sub process_changes {
} elsif ($action eq 'usercreation') {	} elsif ($action eq 'usercreation') {
$output = &modify_usercreation($dom,%domconfig);	$output = &modify_usercreation($dom,%domconfig);
} elsif ($action eq 'selfcreation') {	} elsif ($action eq 'selfcreation') {
$output = &modify_selfcreation($dom,%domconfig);	$output = &modify_selfcreation($dom,$lastactref,%domconfig);
} elsif ($action eq 'usermodification') {	} elsif ($action eq 'usermodification') {
$output = &modify_usermodification($dom,%domconfig);	$output = &modify_usermodification($dom,%domconfig);
} elsif ($action eq 'contacts') {	} elsif ($action eq 'contacts') {
Line 759 sub print_config_box {	Line 762 sub print_config_box {
$output .=	$output .=
'<table class="LC_nested_outer">	'<table class="LC_nested_outer">
<tr>	<tr>
<th align="left" valign="middle"><span class="LC_nobreak">'.	<th class="LC_left_item LC_middle"><span class="LC_nobreak">'.
&mt($item->{text}).' '.	&mt($item->{text}).' '.
&Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".	&Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".
'</tr>';	'</tr>';
Line 975 sub print_config_box {	Line 978 sub print_config_box {
<td>	<td>
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">	<tr class="LC_info_row">
<td class="LC_left_item"'.$colspan.' valign="top">'.&mt($item->{'header'}->[4]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.' style="vertical-align: top">'.&mt($item->{'header'}->[4]->{'col1'}).'</td>
<td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[4]->{'col2'}).'</td>	<td class="LC_right_item" style="vertical-align: top">'.&mt($item->{'header'}->[4]->{'col2'}).'</td>
</tr>'.	</tr>'.
&print_validation_rows('requestcourses',$dom,$settings,\$rowtotal);	&print_validation_rows('requestcourses',$dom,$settings,\$rowtotal);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
Line 991 sub print_config_box {	Line 994 sub print_config_box {
<td>	<td>
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">	<tr class="LC_info_row">
<td class="LC_left_item"'.$colspan.' valign="top">'.	<td class="LC_left_item"'.$colspan.' style="vertical-align: top">'.
&mt($item->{'header'}->[2]->{'col1'}).'</td>	&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item" valign="top">'.	<td class="LC_right_item" style="vertical-align: top">'.
&mt($item->{'header'}->[2]->{'col2'}).'</td>	&mt($item->{'header'}->[2]->{'col2'}).'</td>
</tr>'.	</tr>'.
&print_rolecolors($phase,'author',$dom,$confname,$settings,\$rowtotal).'	&print_rolecolors($phase,'author',$dom,$confname,$settings,\$rowtotal).'
Line 1021 sub print_config_box {	Line 1024 sub print_config_box {
<td class="LC_left_item" colspan="2">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';	<td class="LC_left_item" colspan="2">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';
} elsif ($action eq 'serverstatuses') {	} elsif ($action eq 'serverstatuses') {
$output .= '	$output .= '
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).	<td class="LC_left_item" style="vertical-align: top">'.&mt($item->{'header'}->[0]->{'col1'}).
'<br />('.&mt('Automatic access for Dom. Coords.').')</td>';	'<br />('.&mt('Automatic access for Dom. Coords.').')</td>';

} else {	} else {
$output .= '	$output .= '
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';	<td class="LC_left_item" style="vertical-align: top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>';
}	}
if (defined($item->{'header'}->[0]->{'col3'})) {	if (defined($item->{'header'}->[0]->{'col3'})) {
$output .= '<td class="LC_left_item" valign="top">'.	$output .= '<td class="LC_left_item" style="vertical-align: top">'.
&mt($item->{'header'}->[0]->{'col2'});	&mt($item->{'header'}->[0]->{'col2'});
if ($action eq 'serverstatuses') {	if ($action eq 'serverstatuses') {
$output .= '<br />(<tt>'.&mt('user1:domain1,user2:domain2 etc.').'</tt>)';	$output .= '<br />(<tt>'.&mt('user1:domain1,user2:domain2 etc.').'</tt>)';
}	}
} else {	} else {
$output .= '<td class="LC_right_item" valign="top">'.	$output .= '<td class="LC_right_item" style="vertical-align: top">'.
&mt($item->{'header'}->[0]->{'col2'});	&mt($item->{'header'}->[0]->{'col2'});
}	}
$output .= '</td>';	$output .= '</td>';
if ($item->{'header'}->[0]->{'col3'}) {	if ($item->{'header'}->[0]->{'col3'}) {
if (defined($item->{'header'}->[0]->{'col4'})) {	if (defined($item->{'header'}->[0]->{'col4'})) {
$output .= '<td class="LC_left_item" valign="top">'.	$output .= '<td class="LC_left_item" style="vertical-align: top">'.
&mt($item->{'header'}->[0]->{'col3'});	&mt($item->{'header'}->[0]->{'col3'});
} else {	} else {
$output .= '<td class="LC_right_item" valign="top">'.	$output .= '<td class="LC_right_item" style="vertical-align: top">'.
&mt($item->{'header'}->[0]->{'col3'});	&mt($item->{'header'}->[0]->{'col3'});
}	}
if ($action eq 'serverstatuses') {	if ($action eq 'serverstatuses') {
Line 1053 sub print_config_box {	Line 1056 sub print_config_box {
$output .= '</td>';	$output .= '</td>';
}	}
if ($item->{'header'}->[0]->{'col4'}) {	if ($item->{'header'}->[0]->{'col4'}) {
$output .= '<td class="LC_right_item" valign="top">'.	$output .= '<td class="LC_right_item" style="vertical-align: top">'.
&mt($item->{'header'}->[0]->{'col4'});	&mt($item->{'header'}->[0]->{'col4'});
}	}
$output .= '</tr>';	$output .= '</tr>';
Line 1086 sub print_login {	Line 1089 sub print_login {
my $choice = $choices{'disallowlogin'};	my $choice = $choices{'disallowlogin'};
$css_class = ' class="LC_odd_row"';	$css_class = ' class="LC_odd_row"';
$datatable .= '<tr'.$css_class.'><td>'.$choice.'</td>'.	$datatable .= '<tr'.$css_class.'><td>'.$choice.'</td>'.
'<td align="right"><table><tr><th>'.$choices{'hostid'}.'</th>'.	'<td style="text-align: right"><table><tr><th>'.$choices{'hostid'}.'</th>'.
'<th>'.$choices{'server'}.'</th>'.	'<th>'.$choices{'server'}.'</th>'.
'<th>'.$choices{'serverpath'}.'</th>'.	'<th>'.$choices{'serverpath'}.'</th>'.
'<th>'.$choices{'custompath'}.'</th>'.	'<th>'.$choices{'custompath'}.'</th>'.
Line 1367 sub print_login {	Line 1370 sub print_login {
my $choice = $choices{'headtag'};	my $choice = $choices{'headtag'};
$css_class = ' class="LC_odd_row"';	$css_class = ' class="LC_odd_row"';
$datatable .= '<tr'.$css_class.'><td colspan="2">'.$choice.'</td>'.	$datatable .= '<tr'.$css_class.'><td colspan="2">'.$choice.'</td>'.
'<td align="left"><table><tr><th>'.$choices{'hostid'}.'</th>'.	'<td style="text-align: left"><table><tr><th>'.$choices{'hostid'}.'</th>'.
'<th>'.$choices{'current'}.'</th>'.	'<th>'.$choices{'current'}.'</th>'.
'<th>'.$choices{'action'}.'</th>'.	'<th>'.$choices{'action'}.'</th>'.
'<th>'.$choices{'exempt'}.'</th></tr>'."\n";	'<th>'.$choices{'exempt'}.'</th></tr>'."\n";
Line 1723 sub display_color_options {	Line 1726 sub display_color_options {
'<table border="0"><tr>';	'<table border="0"><tr>';

foreach my $item (@{$bgs}) {	foreach my $item (@{$bgs}) {
$datatable .= '<td align="center">'.$choices->{$item};	$datatable .= '<td style="text-align: center">'.$choices->{$item};
my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item};	my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item};
if ($designs->{'bgs'}{$item}) {	if ($designs->{'bgs'}{$item}) {
$datatable .= ' ';	$datatable .= ' ';
Line 1751 sub display_color_options {	Line 1754 sub display_color_options {
'<table border="0"><tr>';	'<table border="0"><tr>';
foreach my $item (@{$links}) {	foreach my $item (@{$links}) {
my $color = $designs->{'links'}{$item} ? $designs->{'links'}{$item} : $defaults->{'links'}{$item};	my $color = $designs->{'links'}{$item} ? $designs->{'links'}{$item} : $defaults->{'links'}{$item};
$datatable .= '<td align="center">'.$choices->{$item}."\n";	$datatable .= '<td style="text-align: center">'.$choices->{$item}."\n";
if ($designs->{'links'}{$item}) {	if ($designs->{'links'}{$item}) {
$datatable.=' ';	$datatable.=' ';
}	}
Line 1812 sub login_text_colors {	Line 1815 sub login_text_colors {
my ($img,$role,$logintext,$phase,$choices,$designs,$defaults) = @_;	my ($img,$role,$logintext,$phase,$choices,$designs,$defaults) = @_;
my $color_menu = '<table border="0"><tr>';	my $color_menu = '<table border="0"><tr>';
foreach my $item (@{$logintext}) {	foreach my $item (@{$logintext}) {
$color_menu .= '<td align="center">'.$choices->{$item};	$color_menu .= '<td style="text-align: center">'.$choices->{$item};
my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item};	my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item};
$color_menu .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color.	$color_menu .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color.
'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>';	'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>';
Line 1847 sub image_changes {	Line 1850 sub image_changes {
$role.'_del_'.$img.'" value="1" />'.&mt('Delete?').	$role.'_del_'.$img.'" value="1" />'.&mt('Delete?').
'</label> '.&mt('Replace:').'</span><br />';	'</label> '.&mt('Replace:').'</span><br />';
} else {	} else {
$output .= '<td valign="middle">'.$logincolors.&mt('Upload:').'<br />';	$output .= '<td class="LC_middle">'.$logincolors.&mt('Upload:').'<br />';
}	}
}	}
return $output;	return $output;
Line 2279 sub print_quotas {	Line 2282 sub print_quotas {
}	}

sub print_requestmail {	sub print_requestmail {
my ($dom,$action,$settings,$rowtotal) = @_;	my ($dom,$action,$settings,$rowtotal,$customcss,$rowstyle) = @_;
my ($now,$datatable,%currapp);	my ($now,$datatable,%currapp);
$now = time;	$now = time;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
Line 2291 sub print_requestmail {	Line 2294 sub print_requestmail {
}	}
my $numinrow = 2;	my $numinrow = 2;
my $css_class;	my $css_class;
$css_class = ($$rowtotal%2? ' class="LC_odd_row"':'');	if ($$rowtotal%2) {
	$css_class = 'LC_odd_row';
	}
	if ($customcss) {
	$css_class .= " $customcss";
	}
	$css_class =~ s/^\s+//;
	if ($css_class) {
	$css_class = ' class="'.$css_class.'"';
	}
	if ($rowstyle) {
	$css_class .= ' style="'.$rowstyle.'"';
	}
my $text;	my $text;
if ($action eq 'requestcourses') {	if ($action eq 'requestcourses') {
$text = &mt('Receive notification of course requests requiring approval');	$text = &mt('Receive notification of course requests requiring approval');
Line 2764 sub print_autoupdate {	Line 2779 sub print_autoupdate {
my $locknamesettings;	my $locknamesettings;
$datatable .= &insttypes_row($settings,$types,$usertypes,	$datatable .= &insttypes_row($settings,$types,$usertypes,
$dom,$numinrow,$othertitle,	$dom,$numinrow,$othertitle,
'lockablenames');	'lockablenames',$rowtotal);
$$rowtotal ++;	$$rowtotal ++;
} else {	} else {
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
Line 2907 sub print_directorysrch {	Line 2922 sub print_directorysrch {
if (ref($usertypes) eq 'HASH') {	if (ref($usertypes) eq 'HASH') {
if (keys(%{$usertypes}) > 0) {	if (keys(%{$usertypes}) > 0) {
$datatable .= &insttypes_row($settings,$types,$usertypes,$dom,	$datatable .= &insttypes_row($settings,$types,$usertypes,$dom,
$numinrow,$othertitle,'cansearch');	$numinrow,$othertitle,'cansearch',
	$rowtotal);
$cansrchrow = 1;	$cansrchrow = 1;
}	}
}	}
Line 3261 sub print_helpsettings {	Line 3277 sub print_helpsettings {
my $css_class;	my $css_class;
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');	my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_');
my (%customroles,%ordered,%current);	my (%customroles,%ordered,%current);
if (ref($settings->{'adhoc'}) eq 'HASH') {	if (ref($settings) eq 'HASH') {
%current = %{$settings->{'adhoc'}};	if (ref($settings->{'adhoc'}) eq 'HASH') {
	%current = %{$settings->{'adhoc'}};
	}
}	}
my $count = 0;	my $count = 0;
foreach my $key (sort(keys(%existing))) {	foreach my $key (sort(keys(%existing))) {
Line 3338 sub print_helpsettings {	Line 3356 sub print_helpsettings {
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);	my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$num."_pos'".');"';	my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$num."_pos'".');"';
$datatable .= '<tr '.$css_class.'><td valign="top"><b>'.$role.'</b><br />'.	$datatable .= '<tr '.$css_class.'><td style="vertical-align: top"><b>'.$role.'</b><br />'.
'<select name="helproles_'.$num.'_pos"'.$chgstr.'>';	'<select name="helproles_'.$num.'_pos"'.$chgstr.'>';
for (my $k=0; $k<=$maxnum; $k++) {	for (my $k=0; $k<=$maxnum; $k++) {
my $vpos = $k+1;	my $vpos = $k+1;
Line 3377 sub print_helpsettings {	Line 3395 sub print_helpsettings {
&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);	&Apache::lonuserutils::custom_role_privs(\%privs,\%full,\%levels,\%levelscurrent);
my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);	my @templateroles = &Apache::lonuserutils::custom_template_roles($context,$crstype);
my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$count."_pos'".');"';	my $chgstr = ' onchange="javascript:reorderHelpRoles(this.form,'."'helproles_".$count."_pos'".');"';
$datatable .= '<tr '.$css_class.'><td valign="top"><span class="LC_nobreak"><label>'.	$datatable .= '<tr '.$css_class.'><td style="vertical-align: top"><span class="LC_nobreak"><label>'.
'<input type="hidden" name="helproles_maxnum" value="'.$maxnum.'" />'."\n".	'<input type="hidden" name="helproles_maxnum" value="'.$maxnum.'" />'."\n".
'<select name="helproles_'.$count.'_pos"'.$chgstr.'>';	'<select name="helproles_'.$count.'_pos"'.$chgstr.'>';
for (my $k=0; $k<$maxnum+1; $k++) {	for (my $k=0; $k<$maxnum+1; $k++) {
Line 3656 sub radiobutton_prefs {	Line 3674 sub radiobutton_prefs {
foreach my $item (@{$toggles}) {	foreach my $item (@{$toggles}) {
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
$datatable .=	$datatable .=
'<tr'.$css_class.'><td valign="top">'.	'<tr'.$css_class.'><td style="vertical-align: top">'.
'<span class="LC_nobreak">'.$choices->{$item}.	'<span class="LC_nobreak">'.$choices->{$item}.
'</span></td>';	'</span></td>';
if ($align eq 'left') {	if ($align eq 'left') {
Line 3847 sub print_ltitools {	Line 3865 sub print_ltitools {
if (!$rolemaps{$role}) {	if (!$rolemaps{$role}) {
$selectnone = ' selected="selected"';	$selectnone = ' selected="selected"';
}	}
$datatable .= '<td align="center">'.	$datatable .= '<td style="text-align: center">'.
&Apache::lonnet::plaintext($role,'Course').'<br />'.	&Apache::lonnet::plaintext($role,'Course').'<br />'.
'<select name="ltitools_roles_'.$role.'_'.$i.'">'.	'<select name="ltitools_roles_'.$role.'_'.$i.'">'.
'<option value=""'.$selectnone.'>'.&mt('Select').'</option>';	'<option value=""'.$selectnone.'>'.&mt('Select').'</option>';
Line 3981 sub print_ltitools {	Line 3999 sub print_ltitools {
'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';	'<fieldset><legend>'.&mt('Role mapping').'</legend><table><tr>';
foreach my $role (@courseroles) {	foreach my $role (@courseroles) {
my ($checked,$checkednone);	my ($checked,$checkednone);
$datatable .= '<td align="center">'.	$datatable .= '<td style="text-align: center">'.
&Apache::lonnet::plaintext($role,'Course').'<br />'.	&Apache::lonnet::plaintext($role,'Course').'<br />'.
'<select name="ltitools_add_roles_'.$role.'">'.	'<select name="ltitools_add_roles_'.$role.'">'.
'<option value="" selected="selected">'.&mt('Select').'</option>';	'<option value="" selected="selected">'.&mt('Select').'</option>';
Line 4055 sub print_coursedefaults {	Line 4073 sub print_coursedefaults {
coursecredits => 'Credits can be specified for courses',	coursecredits => 'Credits can be specified for courses',
uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)',	uselcmath => 'Math preview uses LON-CAPA previewer (javascript) in place of DragMath (Java)',
usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',	usejsme => 'Molecule editor uses JSME (HTML5) in place of JME (Java)',
	texengine => 'Default method to display mathematics',
postsubmit => 'Disable submit button/keypress following student submission',	postsubmit => 'Disable submit button/keypress following student submission',
canclone => "People who may clone a course (besides course's owner and coordinators)",	canclone => "People who may clone a course (besides course's owner and coordinators)",
mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver',	mysqltables => 'Lifetime (s) of "Temporary" MySQL tables (student performance data) on homeserver',
);	);
my %staticdefaults = (	my %staticdefaults = (
	texengine => 'MathJax',
anonsurvey_threshold => 10,	anonsurvey_threshold => 10,
uploadquota => 500,	uploadquota => 500,
postsubmit => 60,	postsubmit => 60,
Line 4073 sub print_coursedefaults {	Line 4093 sub print_coursedefaults {
'canclone' => 'none',	'canclone' => 'none',
);	);
@toggles = ('canuse_pdfforms','uselcmath','usejsme');	@toggles = ('canuse_pdfforms','uselcmath','usejsme');
	my $deftex = $staticdefaults{'texengine'};
	if (ref($settings) eq 'HASH') {
	if ($settings->{'texengine'}) {
	if ($settings->{'texengine'} =~ /^(MathJax\|mimetex\|tth)$/) {
	$deftex = $settings->{'texengine'};
	}
	}
	}
	$css_class = $itemcount%2?' class="LC_odd_row"':'';
	my $mathdisp = '<tr'.$css_class.'><td style="vertical-align: top">'.
	'<span class="LC_nobreak">'.$choices{'texengine'}.
	'</span></td><td class="LC_right_item">'.
	'<select name="texengine">'."\n";
	my %texoptions = (
	MathJax => 'MathJax',
	mimetex => &mt('Convert to Images'),
	tth => &mt('TeX to HTML'),
	);
	foreach my $renderer ('MathJax','mimetex','tth') {
	my $selected = '';
	if ($renderer eq $deftex) {
	$selected = ' selected="selected"';
	}
	$mathdisp .= '<option value="'.$renderer.'"'.$selected.'>'.$texoptions{$renderer}.'</option>'."\n";
	}
	$mathdisp .= '</select></td></tr>'."\n";
	$itemcount ++;
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$itemcount);	\%choices,$itemcount);
	$datatable = $mathdisp.$datatable;
$css_class = $itemcount%2?' class="LC_odd_row"':'';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
$datatable .=	$datatable .=
'<tr'.$css_class.'><td valign="top">'.	'<tr'.$css_class.'><td style="vertical-align: top">'.
'<span class="LC_nobreak">'.$choices{'canclone'}.	'<span class="LC_nobreak">'.$choices{'canclone'}.
'</span></td><td class="LC_left_item">';	'</span></td><td class="LC_left_item">';
my $currcanclone = 'none';	my $currcanclone = 'none';
Line 4229 sub print_coursedefaults {	Line 4277 sub print_coursedefaults {
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.	$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.
$choices{'uploadquota'}.	$choices{'uploadquota'}.
'</span></td>'.	'</span></td>'.
'<td align="right" class="LC_right_item">'.	'<td style="text-align: right" class="LC_right_item">'.
'<table><tr>';	'<table><tr>';
foreach my $type (@types) {	foreach my $type (@types) {
$datatable .= '<td align="center">'.&mt($type).'<br />'.	$datatable .= '<td style="text-align: center">'.&mt($type).'<br />'.
'<input type="text" name="uploadquota_'.$type.'"'.	'<input type="text" name="uploadquota_'.$type.'"'.
' value="'.$curruploadquota{$type}.'" size="5" /></td>';	' value="'.$curruploadquota{$type}.'" size="5" /></td>';
}	}
Line 4247 sub print_coursedefaults {	Line 4295 sub print_coursedefaults {
'<i>'.&mt('Default credits').'</i><br /><table><tr>';	'<i>'.&mt('Default credits').'</i><br /><table><tr>';
foreach my $type (@types) {	foreach my $type (@types) {
next if ($type eq 'community');	next if ($type eq 'community');
$additional .= '<td align="center">'.&mt($type).'<br />'.	$additional .= '<td style="text-align: center">'.&mt($type).'<br />'.
'<input type="text" name="'.$type.'_credits"'.	'<input type="text" name="'.$type.'_credits"'.
' value="'.$defcredits{$type}.'" size="3" /></td>';	' value="'.$defcredits{$type}.'" size="3" /></td>';
}	}
Line 4271 sub print_coursedefaults {	Line 4319 sub print_coursedefaults {
'<i>'.&mt('Enter 0 to remain disabled until page reload.').'</i><br />'.	'<i>'.&mt('Enter 0 to remain disabled until page reload.').'</i><br />'.
'<table><tr>';	'<table><tr>';
foreach my $type (@types) {	foreach my $type (@types) {
$additional .= '<td align="center">'.&mt($type).'<br />'.	$additional .= '<td style="text-align: center">'.&mt($type).'<br />'.
'<input type="text" name="'.$type.'_timeout" value="'.	'<input type="text" name="'.$type.'_timeout" value="'.
$deftimeout{$type}.'" size="5" /></td>';	$deftimeout{$type}.'" size="5" /></td>';
}	}
Line 4289 sub print_coursedefaults {	Line 4337 sub print_coursedefaults {
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.	$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'.
$choices{'mysqltables'}.	$choices{'mysqltables'}.
'</span></td>'.	'</span></td>'.
'<td align="right" class="LC_right_item">'.	'<td style="text-align: right" class="LC_right_item">'.
'<table><tr>';	'<table><tr>';
foreach my $type (@types) {	foreach my $type (@types) {
$datatable .= '<td align="center">'.&mt($type).'<br />'.	$datatable .= '<td style="text-align: center">'.&mt($type).'<br />'.
'<input type="text" name="mysqltables_'.$type.'"'.	'<input type="text" name="mysqltables_'.$type.'"'.
' value="'.$currmysql{$type}.'" size="8" /></td>';	' value="'.$currmysql{$type}.'" size="8" /></td>';
}	}
Line 5191 sub print_loadbalancing {	Line 5239 sub print_loadbalancing {
my $disabled_div_style = 'display: block';	my $disabled_div_style = 'display: block';
my $homedom_div_style = 'display: none';	my $homedom_div_style = 'display: none';
$datatable .= '<tr class="'.$css_class[$cssidx].'">'.	$datatable .= '<tr class="'.$css_class[$cssidx].'">'.
'<td rowspan="'.$rownum.'" valign="top">'.	'<td rowspan="'.$rownum.'" style="vertical-align: top">'.
'<p>';	'<p>';
if ($lonhost eq '') {	if ($lonhost eq '') {
$datatable .= '<span class="LC_nobreak">';	$datatable .= '<span class="LC_nobreak">';
Line 5224 sub print_loadbalancing {	Line 5272 sub print_loadbalancing {
$homedom_div_style = 'display: block';	$homedom_div_style = 'display: block';
}	}
}	}
$datatable .= '</p></td><td rowspan="'.$rownum.'" valign="top">'.	$datatable .= '</p></td><td rowspan="'.$rownum.'" style="vertical-align: top">'.
'<div id="loadbalancing_disabled_'.$balnum.'" style="'.	'<div id="loadbalancing_disabled_'.$balnum.'" style="'.
$disabled_div_style.'">'.$disabledtext.'</div>'."\n".	$disabled_div_style.'">'.$disabledtext.'</div>'."\n".
'<div id="loadbalancing_targets_'.$balnum.'" style="'.$targets_div_style.'">'.&mt('Offloads to:').'<br />';	'<div id="loadbalancing_targets_'.$balnum.'" style="'.$targets_div_style.'">'.&mt('Offloads to:').'<br />';
Line 5388 sub loadbalancing_titles {	Line 5436 sub loadbalancing_titles {
'_LC_ipchange' => &mt('Non-SSO users with IP mismatch'),	'_LC_ipchange' => &mt('Non-SSO users with IP mismatch'),
);	);
my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external','_LC_ipchangesso','_LC_ipchange');	my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external','_LC_ipchangesso','_LC_ipchange');
	my @available;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
unshift(@alltypes,@{$types},'default');	@available = @{$types};
}	}
	unless (grep(/^default$/,@available)) {
	push(@available,'default');
	}
	unshift(@alltypes,@available);
my %titles;	my %titles;
foreach my $type (@alltypes) {	foreach my $type (@alltypes) {
if ($type =~ /^_LC_/) {	if ($type =~ /^_LC_/) {
Line 5434 sub loadbalance_rule_row {	Line 5487 sub loadbalance_rule_row {
$space = '<div display="inline-block"> </div>';	$space = '<div display="inline-block"> </div>';
}	}
my $output =	my $output =
'<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td valign="top">'.$space.	'<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td style="vertical-align: top">'.$space.
'<div id="balanceruletitle_'.$balnum.'_'.$type.'" style="'.$style.'">'.$title.'</div></td>'."\n".	'<div id="balanceruletitle_'.$balnum.'_'.$type.'" style="'.$style.'">'.$title.'</div></td>'."\n".
'<td valaign="top">'.$space.	'<td valaign="top">'.$space.
'<div id="balancerule_'.$balnum.'_'.$type.'" style="'.$style.'">'."\n";	'<div id="balancerule_'.$balnum.'_'.$type.'" style="'.$style.'">'."\n";
Line 5671 sub print_usercreation {	Line 5724 sub print_usercreation {
}	}
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.$lt{$item}.	'<td><span class="LC_nobreak">'.$lt{$item}.
'</span></td><td align="right">';	'</span></td><td style="text-align: right">';
my @options = ('any');	my @options = ('any');
if (ref($rules) eq 'HASH') {	if (ref($rules) eq 'HASH') {
if (keys(%{$rules}) > 0) {	if (keys(%{$rules}) > 0) {
Line 5745 sub print_usercreation {	Line 5798 sub print_usercreation {

sub print_selfcreation {	sub print_selfcreation {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my (@selfcreate,$createsettings,$processing,$datatable);	my (@selfcreate,$createsettings,$processing,$emailoptions,$emailverified,
	$emaildomain,$datatable);
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'cancreate'}) eq 'HASH') {	if (ref($settings->{'cancreate'}) eq 'HASH') {
$createsettings = $settings->{'cancreate'};	$createsettings = $settings->{'cancreate'};
Line 5762 sub print_selfcreation {	Line 5816 sub print_selfcreation {
if (ref($createsettings->{'selfcreateprocessing'}) eq 'HASH') {	if (ref($createsettings->{'selfcreateprocessing'}) eq 'HASH') {
$processing = $createsettings->{'selfcreateprocessing'};	$processing = $createsettings->{'selfcreateprocessing'};
}	}
	if (ref($createsettings->{'emailoptions'}) eq 'HASH') {
	$emailoptions = $createsettings->{'emailoptions'};
	}
	if (ref($createsettings->{'emailverified'}) eq 'HASH') {
	$emailverified = $createsettings->{'emailverified'};
	}
	if (ref($createsettings->{'emaildomain'}) eq 'HASH') {
	$emaildomain = $createsettings->{'emaildomain'};
	}
}	}
}	}
}	}
my %radiohash;	my %radiohash;
my $numinrow = 4;	my $numinrow = 4;
map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;	map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate;
	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
if ($position eq 'top') {	if ($position eq 'top') {
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
cancreate_login => 'Institutional Login',	cancreate_login => 'Institutional Login',
Line 5783 sub print_selfcreation {	Line 5847 sub print_selfcreation {
\%choices,$itemcount,$onclick);	\%choices,$itemcount,$onclick);
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;

my ($othertitle,$usertypes,$types) = &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($createsettings,$types,$usertypes,	$datatable .= &insttypes_row($createsettings,$types,$usertypes,
$dom,$numinrow,$othertitle,	$dom,$numinrow,$othertitle,
'statustocreate',$$rowtotal);	'statustocreate',$rowtotal);
$$rowtotal ++;	$$rowtotal ++;
}	}
}	}
Line 5834 sub print_selfcreation {	Line 5896 sub print_selfcreation {
$$rowtotal ++;	$$rowtotal ++;
} elsif ($position eq 'middle') {	} elsif ($position eq 'middle') {
my %domconf = &Apache::lonnet::get_dom('configuration',['usermodification'],$dom);	my %domconf = &Apache::lonnet::get_dom('configuration',['usermodification'],$dom);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my @posstypes;
$usertypes->{'default'} = $othertitle;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
push(@{$types},'default');	@posstypes = @{$types};
$usertypes->{'default'} = $othertitle;	}
foreach my $status (@{$types}) {	unless (grep(/^default$/,@posstypes)) {
$datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},	push(@posstypes,'default');
$numinrow,$$rowtotal,$usertypes);	}
$$rowtotal ++;	my %usertypeshash;
}	if (ref($usertypes) eq 'HASH') {
	%usertypeshash = %{$usertypes};
	}
	$usertypeshash{'default'} = $othertitle;
	foreach my $status (@posstypes) {
	$datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'},
	$numinrow,$$rowtotal,\%usertypeshash);
	$$rowtotal ++;
}	}
} else {	} else {
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
cancreate_email => 'E-mail address as username',	'cancreate_email' => 'Non-institutional username (via e-mail verification)',
);	);
my @toggles = sort(keys(%choices));	my @toggles = sort(keys(%choices));
my %defaultchecked = (	my %defaultchecked = (
'cancreate_email' => 'off',	'cancreate_email' => 'off',
);	);
my $itemcount = 0;	my $customclass = 'LC_selfcreate_email';
	my $classprefix = 'LC_canmodify_emailusername_';
	my $optionsprefix = 'LC_options_emailusername_';
my $display = 'none';	my $display = 'none';
	my $rowstyle = 'display:none';
if (grep(/^\Qemail\E$/,@selfcreate)) {	if (grep(/^\Qemail\E$/,@selfcreate)) {
$display = 'block';	$display = 'block';
	$rowstyle = 'display:table-row';
}	}
my $onclick = "toggleDisplay(this.form,'emailoptions');";	my $onclick = "toggleRows(this.form,'cancreate_email','selfassign','$customclass','$classprefix','$optionsprefix');";
my $additional = '<div id="emailoptions" style="display: '.$display.'">';	($datatable,$$rowtotal) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,
	\%choices,$$rowtotal,$onclick);
	$datatable .= &print_requestmail($dom,'selfcreation',$createsettings,$rowtotal,$customclass,
	$rowstyle);
	$$rowtotal ++;
	$datatable .= &captcha_choice('cancreate',$createsettings,$$rowtotal,$customclass,
	$rowstyle);
	$$rowtotal ++;
	my (@ordered,@posstypes,%usertypeshash);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
my $usertypes = {};	my ($emailrules,$emailruleorder) =
my $order = [];	&Apache::lonnet::inst_userrules($dom,'email');
if ((ref($domdefaults{'inststatustypes'}) eq 'HASH') && (ref($domdefaults{'inststatusguest'}) eq 'ARRAY')) {	my $primary_id = &Apache::lonnet::domain($dom,'primary');
$usertypes = $domdefaults{'inststatustypes'};	my $intdom = &Apache::lonnet::internet_dom($primary_id);
$order = $domdefaults{'inststatusguest'};	if (ref($types) eq 'ARRAY') {
}	@posstypes = @{$types};
if (ref($order) eq 'ARRAY') {	}
push(@{$order},'default');	if (@posstypes) {
if (@{$order} > 1) {	unless (grep(/^default$/,@posstypes)) {
$usertypes->{'default'} = &mt('Other users');	push(@posstypes,'default');
$additional .= '<table><tr>';	}
foreach my $status (@{$order}) {	if (ref($usertypes) eq 'HASH') {
$additional .= '<th>'.$usertypes->{$status}.'</th>';	%usertypeshash = %{$usertypes};
}	}
$additional .= '</tr><tr>';	my $currassign;
foreach my $status (@{$order}) {	if (ref($domdefaults{'inststatusguest'}) eq 'ARRAY') {
$additional .= '<td>'.&email_as_username($rowtotal,$processing,$status).'</td>';	$currassign = {
	selfassign => $domdefaults{'inststatusguest'},
	};
	@ordered = @{$domdefaults{'inststatusguest'}};
	} else {
	$currassign = { selfassign => [] };
	}
	my $onclicktypes = "toggleDataRow(this.form,'selfassign','$customclass','$optionsprefix',);".
	"toggleDataRow(this.form,'selfassign','$customclass','$classprefix',1);";
	$datatable .= &insttypes_row($currassign,$types,$usertypes,$dom,
	$numinrow,$othertitle,'selfassign',
	$rowtotal,$onclicktypes,$customclass,
	$rowstyle);
	$$rowtotal ++;
	$usertypeshash{'default'} = $othertitle;
	foreach my $status (@posstypes) {
	my $css_class;
	if ($$rowtotal%2) {
	$css_class = 'LC_odd_row ';
	}
	$css_class .= $customclass;
	my $rowid = $optionsprefix.$status;
	my $hidden = 1;
	my $currstyle = 'display:none';
	if (grep(/^\Q$status\E$/,@ordered)) {
	$currstyle = $rowstyle;
	$hidden = 0;
	}
	$datatable .= &noninst_users($processing,$emailverified,$emailoptions,$emaildomain,
	$emailrules,$emailruleorder,$settings,$status,$rowid,
	$usertypeshash{$status},$css_class,$currstyle,$intdom);
	unless ($hidden) {
	$$rowtotal ++;
}	}
$additional .= '</tr></table>';
} else {
$usertypes->{'default'} = &mt('All users');
$additional .= &email_as_username($rowtotal,$processing);
}	}
	} else {
	my $css_class;
	if ($$rowtotal%2) {
	$css_class = 'LC_odd_row ';
	}
	$css_class .= $customclass;
	$usertypeshash{'default'} = $othertitle;
	$datatable .= &noninst_users($processing,$emailverified,$emailoptions,$emaildomain,
	$emailrules,$emailruleorder,$settings,'default','',
	$othertitle,$css_class,$rowstyle,$intdom);
	$$rowtotal ++;
}	}
$additional .= '</div>'."\n";

($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked,
\%choices,$$rowtotal,$onclick,$additional);
$$rowtotal ++;
$datatable .= &print_requestmail($dom,'selfcreation',$createsettings,$rowtotal);
$$rowtotal ++;
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();	my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
$numinrow = 1;	$numinrow = 1;
if (ref($order) eq 'ARRAY') {	if (@posstypes) {
foreach my $status (@{$order}) {	foreach my $status (@posstypes) {
	my $rowid = $classprefix.$status;
	my $datarowstyle = 'display:none';
	if (grep(/^\Q$status\E$/,@ordered)) {
	$datarowstyle = $rowstyle;
	}
$datatable .= &modifiable_userdata_row('cancreate','emailusername_'.$status,$settings,	$datatable .= &modifiable_userdata_row('cancreate','emailusername_'.$status,$settings,
$numinrow,$$rowtotal,$usertypes,$infofields,$infotitles);	$numinrow,$$rowtotal,\%usertypeshash,$infofields,
$$rowtotal ++;	$infotitles,$rowid,$customclass,$datarowstyle);
	unless ($datarowstyle eq 'display:none') {
	$$rowtotal ++;
	}
}	}
	} else {
	$datatable .= &modifiable_userdata_row('cancreate','emailusername_default',$settings,
	$numinrow,$$rowtotal,\%usertypeshash,$infofields,
	$infotitles,'',$customclass,$rowstyle);
}	}
my ($emailrules,$emailruleorder) =	}
&Apache::lonnet::inst_userrules($dom,'email');	return $datatable;
if (ref($emailrules) eq 'HASH') {	}
if (keys(%{$emailrules}) > 0) {
$datatable .= &user_formats_row('email',$settings,$emailrules,	sub selfcreate_javascript {
$emailruleorder,$numinrow,$$rowtotal);	return <<"ENDSCRIPT";
$$rowtotal ++;
	<script type="text/javascript">
	// <![CDATA[

	function toggleRows(form,radio,checkbox,target,prefix,altprefix) {
	var x = document.getElementsByClassName(target);
	var insttypes = 0;
	var insttypeRegExp = new RegExp(prefix);
	if ((x.length != undefined) && (x.length > 0)) {
	if (form.elements[radio].length != undefined) {
	for (var i=0; i<form.elements[radio].length; i++) {
	if (form.elements[radio][i].checked) {
	if (form.elements[radio][i].value == 1) {
	for (var j=0; j<x.length; j++) {
	if (x[j].id == 'undefined') {
	x[j].style.display = 'table-row';
	} else if (insttypeRegExp.test(x[j].id)) {
	insttypes ++;
	} else {
	x[j].style.display = 'table-row';
	}
	}
	} else {
	for (var j=0; j<x.length; j++) {
	x[j].style.display = 'none';
	}
	}
	break;
	}
	}
	if (insttypes > 0) {
	toggleDataRow(form,checkbox,target,altprefix);
	toggleDataRow(form,checkbox,target,prefix,1);
}	}
}	}
$datatable .= &captcha_choice('cancreate',$createsettings,$$rowtotal);
}	}
return $datatable;	return;
}	}

sub email_as_username {	function toggleDataRow(form,checkbox,target,prefix,docount) {
my ($rowtotal,$processing,$type) = @_;	if (form.elements[checkbox].length != undefined) {
my %choices =	var count = 0;
&Apache::lonlocal::texthash (	if (docount) {
automatic => 'Automatic approval',	for (var i=0; i<form.elements[checkbox].length; i++) {
approval => 'Queued for approval',	if (form.elements[checkbox][i].checked) {
);	count ++;
my $output;	}
foreach my $option ('automatic','approval') {	}
my $checked;	}
if (ref($processing) eq 'HASH') {	for (var i=0; i<form.elements[checkbox].length; i++) {
if ($type eq '') {	var type = form.elements[checkbox][i].value;
if (!exists($processing->{'default'})) {	if (document.getElementById(prefix+type)) {
if ($option eq 'automatic') {	if (form.elements[checkbox][i].checked) {
$checked = ' checked="checked"';	document.getElementById(prefix+type).style.display = 'table-row';
	if (count % 2 == 1) {
	document.getElementById(prefix+type).className = target+' LC_odd_row';
	} else {
	document.getElementById(prefix+type).className = target;
}	}
	count ++;
} else {	} else {
if ($processing->{'default'} eq $option) {	document.getElementById(prefix+type).style.display = 'none';
$checked = ' checked="checked"';	}
	}
	}
	}
	return;
	}

	function toggleEmailOptions(form,radio,prefix,altprefix,status) {
	var caller = radio+'_'+status;
	if (form.elements[caller].length != undefined) {
	for (var i=0; i<form.elements[caller].length; i++) {
	if (form.elements[caller][i].checked) {
	if (document.getElementById(altprefix+'_inst_'+status)) {
	var curr = form.elements[caller][i].value;
	if (prefix) {
	document.getElementById(prefix+'_'+status).style.display = 'none';
	}
	document.getElementById(altprefix+'_inst_'+status).style.display = 'none';
	document.getElementById(altprefix+'_noninst_'+status).style.display = 'none';
	if (curr == 'custom') {
	if (prefix) {
	document.getElementById(prefix+'_'+status).style.display = 'inline';
	}
	} else if (curr == 'inst') {
	document.getElementById(altprefix+'_inst_'+status).style.display = 'inline';
	} else if (curr == 'noninst') {
	document.getElementById(altprefix+'_noninst_'+status).style.display = 'inline';
}	}
	break;
}	}
} else {	}
if (!exists($processing->{$type})) {	}
if ($option eq 'automatic') {	}
$checked = ' checked="checked"';	}

	// ]]>
	</script>

	ENDSCRIPT
	}

	sub noninst_users {
	my ($processing,$emailverified,$emailoptions,$emaildomain,$emailrules,
	$emailruleorder,$settings,$type,$rowid,$typetitle,$css_class,$rowstyle,$intdom) = @_;
	my $class = 'LC_left_item';
	if ($css_class) {
	$css_class = ' class="'.$css_class.'"';
	}
	if ($rowid) {
	$rowid = ' id="'.$rowid.'"';
	}
	if ($rowstyle) {
	$rowstyle = ' style="'.$rowstyle.'"';
	}
	my ($output,$description);
	if ($type eq 'default') {
	$description = &mt('Requests for: [_1]',$typetitle);
	} else {
	$description = &mt('Requests for: [_1] (status self-reported)',$typetitle);
	}
	$output = '<tr'.$css_class.$rowid.$rowstyle.'>'.
	"<td>$description</td>\n".
	'<td class="'.$class.'" colspan="2">'.
	'<table><tr>';
	my %headers = &Apache::lonlocal::texthash(
	approve => 'Processing',
	email => 'E-mail',
	username => 'Username',
	);
	foreach my $item ('approve','email','username') {
	$output .= '<th>'.$headers{$item}.'</th>';
	}
	$output .= '</tr><tr>';
	foreach my $item ('approve','email','username') {
	$output .= '<td style="vertical-align: top">';
	my (%choices,@options,$hashref,$defoption,$name,$onclick,$hascustom);
	if ($item eq 'approve') {
	%choices = &Apache::lonlocal::texthash (
	automatic => 'Automatically approved',
	approval => 'Queued for approval',
	);
	@options = ('automatic','approval');
	$hashref = $processing;
	$defoption = 'automatic';
	$name = 'cancreate_emailprocess_'.$type;
	} elsif ($item eq 'email') {
	%choices = &Apache::lonlocal::texthash (
	any => 'Any e-mail',
	inst => 'Institutional only',
	noninst => 'Non-institutional only',
	custom => 'Custom restrictions',
	);
	@options = ('any','inst','noninst');
	my $showcustom;
	if (ref($emailrules) eq 'HASH') {
	if (keys(%{$emailrules}) > 0) {
	push(@options,'custom');
	$showcustom = 'cancreate_emailrule';
	if (ref($settings) eq 'HASH') {
	if (ref($settings->{'email_rule'}) eq 'ARRAY') {
	foreach my $rule (@{$settings->{'email_rule'}}) {
	if (exists($emailrules->{$rule})) {
	$hascustom ++;
	}
	}
	} elsif (ref($settings->{'email_rule'}) eq 'HASH') {
	if (ref($settings->{'email_rule'}{$type}) eq 'ARRAY') {
	foreach my $rule (@{$settings->{'email_rule'}{$type}}) {
	if (exists($emailrules->{$rule})) {
	$hascustom ++;
	}
	}
	}
	}
	}
	}
	}
	$onclick = ' onclick="toggleEmailOptions(this.form,'."'cancreate_emailoptions','$showcustom',".
	"'cancreate_emaildomain','$type'".');"';
	$hashref = $emailoptions;
	$defoption = 'any';
	$name = 'cancreate_emailoptions_'.$type;
	} elsif ($item eq 'username') {
	%choices = &Apache::lonlocal::texthash (
	all => 'Same as e-mail',
	first => 'Omit @domain',
	free => 'Free to choose',
	);
	@options = ('all','first','free');
	$hashref = $emailverified;
	$defoption = 'all';
	$name = 'cancreate_usernameoptions_'.$type;
	}
	foreach my $option (@options) {
	my $checked;
	if (ref($hashref) eq 'HASH') {
	if ($type eq '') {
	if (!exists($hashref->{'default'})) {
	if ($option eq $defoption) {
	$checked = ' checked="checked"';
	}
	} else {
	if ($hashref->{'default'} eq $option) {
	$checked = ' checked="checked"';
	}
}	}
} else {	} else {
if ($processing->{$type} eq $option) {	if (!exists($hashref->{$type})) {
$checked = ' checked="checked"';	if ($option eq $defoption) {
	$checked = ' checked="checked"';
	}
	} else {
	if ($hashref->{$type} eq $option) {
	$checked = ' checked="checked"';
	}
}	}
}	}
	} elsif (($item eq 'email') && ($hascustom)) {
	if ($option eq 'custom') {
	$checked = ' checked="checked"';
	}
	} elsif ($option eq $defoption) {
	$checked = ' checked="checked"';
	}
	$output .= '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="'.$name.'"'.
	$checked.' value="'.$option.'"'.$onclick.' />'.
	$choices{$option}.'</label></span><br />';
	if ($item eq 'email') {
	if ($option eq 'custom') {
	my $id = 'cancreate_emailrule_'.$type;
	my $display = 'none';
	if ($checked) {
	$display = 'inline';
	}
	my $numinrow = 2;
	$output .= '<fieldset id="'.$id.'" style="display:'.$display.';">'.
	'<legend>'.&mt('Disallow').'</legend><table>'.
	&user_formats_row('email',$settings,$emailrules,
	$emailruleorder,$numinrow,'',$type);
	'</table></fieldset>';
	} elsif (($option eq 'inst') \|\| ($option eq 'noninst')) {
	my %text = &Apache::lonlocal::texthash (
	inst => 'must end:',
	noninst => 'cannot end:',
	);
	my $value;
	if (ref($emaildomain) eq 'HASH') {
	if (ref($emaildomain->{$type}) eq 'HASH') {
	$value = $emaildomain->{$type}->{$option};
	}
	}
	if ($value eq '') {
	$value = '@'.$intdom;
	}
	my $condition = 'cancreate_emaildomain_'.$option.'_'.$type;
	my $display = 'none';
	if ($checked) {
	$display = 'inline';
	}
	$output .= '<div id="'.$condition.'" style="display:'.$display.';">'.
	'<span class="LC_domprefs_email">'.$text{$option}.'</span> '.
	'<input type="text" name="'.$condition.'" value="'.$value.'" size="10" />'.
	'</div>';
	}
}	}
} elsif ($option eq 'automatic') {
$checked = ' checked="checked"';
}
my $name = 'cancreate_emailprocess';
if (($type ne '') && ($type ne 'default')) {
$name .= '_'.$type;
}
$output .= '<span class="LC_nobreak"><label>'.
'<input type="radio" name="'.$name.'"'.
$checked.' value="'.$option.'" />'.
$choices{$option}.'</label></span>';
if ($type eq '') {
$output .= ' ';
} else {
$output .= '<br />';
}	}
	$output .= '</td>'."\n";
}	}
$$rowtotal ++;	$output .= "</tr></table></td></tr>\n";
return $output;	return $output;
}	}

sub captcha_choice {	sub captcha_choice {
my ($context,$settings,$itemcount) = @_;	my ($context,$settings,$itemcount,$customcss,$rowstyle) = @_;
my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext,	my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext,
$vertext,$currver);	$vertext,$currver);
my %lt = &captcha_phrases();	my %lt = &captcha_phrases();
Line 6002 sub captcha_choice {	Line 6340 sub captcha_choice {
} else {	} else {
$checked{'original'} = ' checked="checked"';	$checked{'original'} = ' checked="checked"';
}	}
my $css_class = $itemcount%2?' class="LC_odd_row"':'';	my $css_class;
	if ($itemcount%2) {
	$css_class = 'LC_odd_row';
	}
	if ($customcss) {
	$css_class .= " $customcss";
	}
	$css_class =~ s/^\s+//;
	if ($css_class) {
	$css_class = ' class="'.$css_class.'"';
	}
	if ($rowstyle) {
	$css_class .= ' style="'.$rowstyle.'"';
	}
my $output = '<tr'.$css_class.'>'.	my $output = '<tr'.$css_class.'>'.
'<td class="LC_left_item">'.$rowname.'</td><td class="LC_left_item" colspan="2">'."\n".	'<td class="LC_left_item">'.$rowname.'</td><td class="LC_left_item" colspan="2">'."\n".
'<table><tr><td>'."\n";	'<table><tr><td>'."\n";
Line 6021 sub captcha_choice {	Line 6372 sub captcha_choice {
# specified for use with the key should be broad enough to accommodate all servers in the LON-CAPA domain.	# specified for use with the key should be broad enough to accommodate all servers in the LON-CAPA domain.
#	#
$output .= '</td></tr>'."\n".	$output .= '</td></tr>'."\n".
'<tr><td>'."\n".	'<tr><td class="LC_zero_height">'."\n".
'<span class="LC_nobreak"><span id="'.$context.'_recaptchapubtxt">'.$pubtext.'</span> '."\n".	'<span class="LC_nobreak"><span id="'.$context.'_recaptchapubtxt">'.$pubtext.'</span> '."\n".
'<input type="'.$keyentry.'" id="'.$context.'_recaptchapub" name="'.$context.'_recaptchapub" value="'.	'<input type="'.$keyentry.'" id="'.$context.'_recaptchapub" name="'.$context.'_recaptchapub" value="'.
$currpub.'" size="40" /></span><br />'."\n".	$currpub.'" size="40" /></span><br />'."\n".
Line 6037 sub captcha_choice {	Line 6388 sub captcha_choice {
}	}

sub user_formats_row {	sub user_formats_row {
my ($type,$settings,$rules,$ruleorder,$numinrow,$rowcount) = @_;	my ($type,$settings,$rules,$ruleorder,$numinrow,$rowcount,$status) = @_;
my $output;	my $output;
my %text = (	my %text = (
'username' => 'new usernames',	'username' => 'new usernames',
'id' => 'IDs',	'id' => 'IDs',
'email' => 'self-created accounts (e-mail)',
);	);
my $css_class = $rowcount%2?' class="LC_odd_row"':'';	unless ($type eq 'email') {
$output = '<tr '.$css_class.'>'.	my $css_class = $rowcount%2?' class="LC_odd_row"':'';
'<td><span class="LC_nobreak">';	$output = '<tr '.$css_class.'>'.
if ($type eq 'email') {	'<td><span class="LC_nobreak">'.
$output .= &mt("Formats disallowed for $text{$type}: ");	&mt("Format rules to check for $text{$type}: ").
} else {	'</td><td class="LC_left_item" colspan="2"><table>';
$output .= &mt("Format rules to check for $text{$type}: ");
}	}
$output .= '</span></td>'.
'<td class="LC_left_item" colspan="2"><table>';
my $rem;	my $rem;
if (ref($ruleorder) eq 'ARRAY') {	if (ref($ruleorder) eq 'ARRAY') {
for (my $i=0; $i<@{$ruleorder}; $i++) {	for (my $i=0; $i<@{$ruleorder}; $i++) {
Line 6071 sub user_formats_row {	Line 6418 sub user_formats_row {
if (grep(/^\Q$ruleorder->[$i]\E$/,@{$settings->{$type.'_rule'}})) {	if (grep(/^\Q$ruleorder->[$i]\E$/,@{$settings->{$type.'_rule'}})) {
$check = ' checked="checked" ';	$check = ' checked="checked" ';
}	}
	} elsif ((ref($settings->{$type.'_rule'}) eq 'HASH') && ($status ne '')) {
	if (ref($settings->{$type.'_rule'}->{$status}) eq 'ARRAY') {
	if (grep(/^\Q$ruleorder->[$i]\E$/,@{$settings->{$type.'_rule'}->{$status}})) {
	$check = ' checked="checked" ';
	}
	}
}	}
}	}
	my $name = $type.'_rule';
	if ($type eq 'email') {
	$name .= '_'.$status;
	}
$output .= '<td class="LC_left_item">'.	$output .= '<td class="LC_left_item">'.
'<span class="LC_nobreak"><label>'.	'<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="'.$type.'_rule" '.	'<input type="checkbox" name="'.$name.'" '.
'value="'.$ruleorder->[$i].'"'.$check.'/>'.	'value="'.$ruleorder->[$i].'"'.$check.'/>'.
$rules->{$ruleorder->[$i]}{'name'}.'</label></span></td>';	$rules->{$ruleorder->[$i]}{'name'}.'</label></span></td>';
}	}
}	}
$rem = @{$ruleorder}%($numinrow);	$rem = @{$ruleorder}%($numinrow);
}	}
my $colsleft = $numinrow - $rem;	my $colsleft;
	if ($rem) {
	$colsleft = $numinrow - $rem;
	}
if ($colsleft > 1 ) {	if ($colsleft > 1 ) {
$output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.	$output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
' </td>';	' </td>';
} elsif ($colsleft == 1) {	} elsif ($colsleft == 1) {
$output .= '<td class="LC_left_item"> </td>';	$output .= '<td class="LC_left_item"> </td>';
}	}
$output .= '</tr></table></td></tr>';	$output .= '</tr></table>';
	unless ($type eq 'email') {
	$output .= '</td></tr>';
	}
return $output;	return $output;
}	}

Line 6311 sub print_defaults {	Line 6674 sub print_defaults {
} else {	} else {
my %defaults;	my %defaults;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH') &&	if ((ref($settings->{'inststatusorder'}) eq 'ARRAY') && (ref($settings->{'inststatustypes'}) eq 'HASH')) {
(ref($settings->{'inststatusguest'}) eq 'ARRAY')) {
my $maxnum = @{$settings->{'inststatusorder'}};	my $maxnum = @{$settings->{'inststatusorder'}};
for (my $i=0; $i<$maxnum; $i++) {	for (my $i=0; $i<$maxnum; $i++) {
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
my $item = $settings->{'inststatusorder'}->[$i];	my $item = $settings->{'inststatusorder'}->[$i];
my $title = $settings->{'inststatustypes'}->{$item};	my $title = $settings->{'inststatustypes'}->{$item};
my $guestok;
if (grep(/^\Q$item\E$/,@{$settings->{'inststatusguest'}})) {
$guestok = 1;
}
my $chgstr = ' onchange="javascript:reorderTypes(this.form,'."'$item'".');"';	my $chgstr = ' onchange="javascript:reorderTypes(this.form,'."'$item'".');"';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.	'<td><span class="LC_nobreak">'.
Line 6334 sub print_defaults {	Line 6692 sub print_defaults {
}	}
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
my ($checkedon,$checkedoff);
$checkedoff = ' checked="checked"';
if ($guestok) {
$checkedon = $checkedoff;
$checkedoff = '';
}
$datatable .= '</select> '.&mt('Internal ID:').' <b>'.$item.'</b> '.	$datatable .= '</select> '.&mt('Internal ID:').' <b>'.$item.'</b> '.
'<input type="checkbox" name="inststatus_delete" value="'.$item.'" />'.	'<input type="checkbox" name="inststatus_delete" value="'.$item.'" />'.
&mt('delete').'</span></td>'.	&mt('delete').'</span></td>'.
'<td class="LC_left_item"><span class="LC_nobreak">'.&mt('Name displayed:').	'<td class="LC_left_item" colspan="2"><span class="LC_nobreak">'.&mt('Name displayed:').
'<input type="text" size="20" name="inststatus_title_'.$item.'" value="'.$title.'" />'.	'<input type="text" size="20" name="inststatus_title_'.$item.'" value="'.$title.'" />'.
'</span></td>'.	'</span></td></tr>';
'<td class="LC_right_item"><span class="LC_nobreak">'.
'<label><input type="radio" value="1" name="inststatus_guest_'.$item.'"'.$checkedon.' />'.
&mt('Yes').'</label>'.(' 'x2).
'<label><input type="radio" value="0" name="inststatus_guest_'.$item.'"'.$checkedoff.' />'.
&mt('No').'</label></span></td></tr>';
}	}
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
my $chgstr = ' onchange="javascript:reorderTypes(this.form,'."'addinststatus_pos'".');"';	my $chgstr = ' onchange="javascript:reorderTypes(this.form,'."'addinststatus_pos'".');"';
Line 6367 sub print_defaults {	Line 6714 sub print_defaults {
$datatable .= '</select> '.&mt('Internal ID:').	$datatable .= '</select> '.&mt('Internal ID:').
'<input type="text" size="10" name="addinststatus" value="" />'.	'<input type="text" size="10" name="addinststatus" value="" />'.
' '.&mt('(new)').	' '.&mt('(new)').
'</span></td><td class="LC_left_item"><span class="LC_nobreak">'.	'</span></td><td class="LC_left_item" colspan="2"><span class="LC_nobreak">'.
&mt('Name displayed:').	&mt('Name displayed:').
'<input type="text" size="20" name="addinststatus_title" value="" /></span></td>'.	'<input type="text" size="20" name="addinststatus_title" value="" /></span></td>'.
'<td class="LC_right_item"><span class="LC_nobreak">'.
'<label><input type="radio" value="1" name="addinststatus_guest" />'.
&mt('Yes').'</label>'.(' 'x2).
'<label><input type="radio" value="0" name="addinststatus_guest" />'.
&mt('No').'</label></span></td></tr>';
'</tr>'."\n";	'</tr>'."\n";
$rownum ++;	$rownum ++;
}	}
Line 6537 sub print_scantronformat {	Line 6879 sub print_scantronformat {
}	}
$datatable .= '</span></td>';	$datatable .= '</span></td>';
if (keys(%error) == 0) {	if (keys(%error) == 0) {
$datatable .= '<td valign="bottom">';	$datatable .= '<td style="vertical-align: bottom">';
if (!$switchserver) {	if (!$switchserver) {
$datatable .= &mt('Upload:').'<br />';	$datatable .= &mt('Upload:').'<br />';
}	}
Line 7272 sub build_category_rows {	Line 7614 sub build_category_rows {
}	}

sub modifiable_userdata_row {	sub modifiable_userdata_row {
my ($context,$item,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref) = @_;	my ($context,$item,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref,
	$rowid,$customcss,$rowstyle) = @_;
my ($role,$rolename,$statustype);	my ($role,$rolename,$statustype);
$role = $item;	$role = $item;
if ($context eq 'cancreate') {	if ($context eq 'cancreate') {
if ($item =~ /^emailusername_(.+)$/) {	if ($item =~ /^(emailusername)_(.+)$/) {
$statustype = $1;	$role = $1;
$role = 'emailusername';	$statustype = $2;
if (ref($usertypes) eq 'HASH') {	if (ref($usertypes) eq 'HASH') {
if ($usertypes->{$statustype}) {	if ($usertypes->{$statustype}) {
$rolename = &mt('Data provided by [_1]',$usertypes->{$statustype});	$rolename = &mt('Data provided by [_1]',$usertypes->{$statustype});
Line 7313 sub modifiable_userdata_row {	Line 7656 sub modifiable_userdata_row {
%fieldtitles = &Apache::loncommon::personal_data_fieldtitles();	%fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
}	}
my $output;	my $output;
my $css_class = $rowcount%2?' class="LC_odd_row"':'';	my $css_class;
$output = '<tr '.$css_class.'>'.	if ($rowcount%2) {
	$css_class = 'LC_odd_row';
	}
	if ($customcss) {
	$css_class .= " $customcss";
	}
	$css_class =~ s/^\s+//;
	if ($css_class) {
	$css_class = ' class="'.$css_class.'"';
	}
	if ($rowstyle) {
	$css_class .= ' style="'.$rowstyle.'"';
	}
	if ($rowid) {
	$rowid = ' id="'.$rowid.'"';
	}
	$output = '<tr '.$css_class.$rowid.'>'.
'<td><span class="LC_nobreak">'.$rolename.'</span></td>'.	'<td><span class="LC_nobreak">'.$rolename.'</span></td>'.
'<td class="LC_left_item" colspan="2"><table>';	'<td class="LC_left_item" colspan="2"><table>';
my $rem;	my $rem;
Line 7348 sub modifiable_userdata_row {	Line 7707 sub modifiable_userdata_row {
}	}
}	}
}	}

for (my $i=0; $i<@fields; $i++) {	my $total = scalar(@fields);
my $rem = $i%($numinrow);	for (my $i=0; $i<$total; $i++) {
	$rem = $i%($numinrow);
if ($rem == 0) {	if ($rem == 0) {
if ($i > 0) {	if ($i > 0) {
$output .= '</tr>';	$output .= '</tr>';
Line 7392 sub modifiable_userdata_row {	Line 7752 sub modifiable_userdata_row {
'</label>';	'</label>';
}	}
$output .= '</span></td>';	$output .= '</span></td>';
$rem = @fields%($numinrow);
}	}
my $colsleft = $numinrow - $rem;	$rem = $total%$numinrow;
if ($colsleft > 1 ) {	my $colsleft;
	if ($rem) {
	$colsleft = $numinrow - $rem;
	}
	if ($colsleft > 1) {
$output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.	$output .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
' </td>';	' </td>';
} elsif ($colsleft == 1) {	} elsif ($colsleft == 1) {
Line 7406 sub modifiable_userdata_row {	Line 7769 sub modifiable_userdata_row {
}	}

sub insttypes_row {	sub insttypes_row {
my ($settings,$types,$usertypes,$dom,$numinrow,$othertitle,$context,$rownum) = @_;	my ($settings,$types,$usertypes,$dom,$numinrow,$othertitle,$context,$rowtotal,$onclick,
	$customcss,$rowstyle) = @_;
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
cansearch => 'Users allowed to search',	cansearch => 'Users allowed to search',
statustocreate => 'Institutional affiliation(s) able to create own account (login/SSO)',	statustocreate => 'Institutional affiliation(s) able to create own account (login/SSO)',
lockablenames => 'User preference to lock name',	lockablenames => 'User preference to lock name',
	selfassign => 'Self-reportable affiliations',
);	);
my $showdom;	my $showdom;
if ($context eq 'cansearch') {	if ($context eq 'cansearch') {
Line 7420 sub insttypes_row {	Line 7785 sub insttypes_row {
if ($context eq 'statustocreate') {	if ($context eq 'statustocreate') {
$class = 'LC_right_item';	$class = 'LC_right_item';
}	}
my $css_class = ' class="LC_odd_row"';	my $css_class;
if ($rownum ne '') {	if ($$rowtotal%2) {
$css_class = ($rownum%2? ' class="LC_odd_row"':'');	$css_class = 'LC_odd_row';
	}
	if ($customcss) {
	$css_class .= ' '.$customcss;
	}
	$css_class =~ s/^\s+//;
	if ($css_class) {
	$css_class = ' class="'.$css_class.'"';
	}
	if ($rowstyle) {
	$css_class .= ' style="'.$rowstyle.'"';
	}
	if ($onclick) {
	$onclick = 'onclick="'.$onclick.'" ';
}	}
my $output = '<tr'.$css_class.'>'.	my $output = '<tr'.$css_class.'>'.
'<td>'.$lt{$context}.$showdom.	'<td>'.$lt{$context}.$showdom.
Line 7451 sub insttypes_row {	Line 7829 sub insttypes_row {
$output .= '<td class="LC_left_item">'.	$output .= '<td class="LC_left_item">'.
'<span class="LC_nobreak"><label>'.	'<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="'.$context.'" '.	'<input type="checkbox" name="'.$context.'" '.
'value="'.$types->[$i].'"'.$check.'/>'.	'value="'.$types->[$i].'"'.$check.$onclick.' />'.
$usertypes->{$types->[$i]}.'</label></span></td>';	$usertypes->{$types->[$i]}.'</label></span></td>';
}	}
}	}
Line 7478 sub insttypes_row {	Line 7856 sub insttypes_row {
}	}
$output .= '<span class="LC_nobreak"><label>'.	$output .= '<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="'.$context.'" '.	'<input type="checkbox" name="'.$context.'" '.
'value="default"'.$defcheck.'/>'.	'value="default"'.$defcheck.$onclick.' />'.
$othertitle.'</label></span></td>'.	$othertitle.'</label></span></td>'.
'</tr></table></td></tr>';	'</tr></table></td></tr>';
return $output;	return $output;
Line 8387 sub display_colorchgs {	Line 8765 sub display_colorchgs {
} else {	} else {
my $newitem = $confhash->{$role}{$item};	my $newitem = $confhash->{$role}{$item};
if ($key eq 'images') {	if ($key eq 'images') {
$newitem = '<img src="'.$confhash->{$role}{$item}.'" alt="'.$choices{$item}.'" valign="bottom" />';	$newitem = '<img src="'.$confhash->{$role}{$item}.'" alt="'.$choices{$item}.'" style="vertical-align: bottom" />';
}	}
$resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$newitem).'</li>';	$resulttext .= '<li>'.&mt("$choices{$item} set to [_1]",$newitem).'</li>';
}	}
Line 8921 sub modify_quotas {	Line 9299 sub modify_quotas {
#FIXME need to obsolete item in RES space	#FIXME need to obsolete item in RES space
} elsif ($env{'form.'.$type.'_image_'.$i.'.filename'}) {	} elsif ($env{'form.'.$type.'_image_'.$i.'.filename'}) {
my ($cdom,$cnum) = split(/_/,$key);	my ($cdom,$cnum) = split(/_/,$key);
my ($imgurl,$error) = &process_textbook_image($r,$dom,$confname,$type.'_image_'.$i,	if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
$cdom,$cnum,$type,$configuserok,	$errors .= '<li><span class="LC_error">'.&mt('Image not saved: could not find textbook course').'</li>';
$switchserver,$author_ok);	} else {
if ($imgurl) {	my ($imgurl,$error) = &process_textbook_image($r,$dom,$confname,$type.'_image_'.$i,
$confhash{$type}{$key}{'image'} = $imgurl;	$cdom,$cnum,$type,$configuserok,
$changes{$type}{$key} = 1;	$switchserver,$author_ok);
}	if ($imgurl) {
if ($error) {	$confhash{$type}{$key}{'image'} = $imgurl;
&Apache::lonnet::logthis($error);	$changes{$type}{$key} = 1;
$errors .= '<li><span class="LC_error">'.$error.'</span></li>';	}
}	if ($error) {
	&Apache::lonnet::logthis($error);
	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
	}
	}
} elsif ($domconfig{$action}{$type}{$key}{'image'}) {	} elsif ($domconfig{$action}{$type}{$key}{'image'}) {
$confhash{$type}{$key}{'image'} =	$confhash{$type}{$key}{'image'} =
$domconfig{$action}{$type}{$key}{'image'};	$domconfig{$action}{$type}{$key}{'image'};
Line 8964 sub modify_quotas {	Line 9346 sub modify_quotas {
if ($type eq 'textbooks') {	if ($type eq 'textbooks') {
if ($env{'form.'.$type.'_addbook_image.filename'} ne '') {	if ($env{'form.'.$type.'_addbook_image.filename'} ne '') {
my ($cdom,$cnum) = split(/_/,$newbook{$type});	my ($cdom,$cnum) = split(/_/,$newbook{$type});
my ($imageurl,$error) =	if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
&process_textbook_image($r,$dom,$confname,$type.'_addbook_image',$cdom,$cnum,$type,	$errors .= '<li><span class="LC_error">'.&mt('Image not saved: could not find textbook course').'</li>';
$configuserok,$switchserver,$author_ok);	} else {
if ($imageurl) {	my ($imageurl,$error) =
$confhash{$type}{$newbook{$type}}{'image'} = $imageurl;	&process_textbook_image($r,$dom,$confname,$type.'_addbook_image',$cdom,$cnum,$type,
}	$configuserok,$switchserver,$author_ok);
if ($error) {	if ($imageurl) {
&Apache::lonnet::logthis($error);	$confhash{$type}{$newbook{$type}}{'image'} = $imageurl;
$errors .= '<li><span class="LC_error">'.$error.'</span></li>';	}
	if ($error) {
	&Apache::lonnet::logthis($error);
	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
	}
}	}
}	}
}	}
Line 9464 sub process_textbook_image {	Line 9850 sub process_textbook_image {
} elsif ($author_ok eq 'ok') {	} elsif ($author_ok eq 'ok') {
my ($result,$imageurl) =	my ($result,$imageurl) =
&publishlogo($r,'upload',$caller,$dom,$confname,	&publishlogo($r,'upload',$caller,$dom,$confname,
"$type/$dom/$cnum/cover",$width,$height);	"$type/$cdom/$cnum/cover",$width,$height);
if ($result eq 'ok') {	if ($result eq 'ok') {
$url = $imageurl;	$url = $imageurl;
} else {	} else {
Line 9547 sub modify_ltitools {	Line 9933 sub modify_ltitools {
}	}
if ($env{'form.ltitools_add_image.filename'} ne '') {	if ($env{'form.ltitools_add_image.filename'} ne '') {
my ($imageurl,$error) =	my ($imageurl,$error) =
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$dom,	&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$newid,
$configuserok,$switchserver,$author_ok);	$configuserok,$switchserver,$author_ok);
if ($imageurl) {	if ($imageurl) {
$confhash{$newid}{'image'} = $imageurl;	$confhash{$newid}{'image'} = $imageurl;
Line 9610 sub modify_ltitools {	Line 9996 sub modify_ltitools {
my $maxnum = $env{'form.ltitools_maxnum'};	my $maxnum = $env{'form.ltitools_maxnum'};
for (my $i=0; $i<=$maxnum; $i++) {	for (my $i=0; $i<=$maxnum; $i++) {
my $itemid = $env{'form.ltitools_id_'.$i};	my $itemid = $env{'form.ltitools_id_'.$i};
	$itemid =~ s/\D+//g;
if (ref($domconfig{$action}{$itemid}) eq 'HASH') {	if (ref($domconfig{$action}{$itemid}) eq 'HASH') {
if ($deletions{$itemid}) {	if ($deletions{$itemid}) {
if ($domconfig{$action}{$itemid}{'image'}) {	if ($domconfig{$action}{$itemid}{'image'}) {
Line 10944 sub modify_usercreation {	Line 11331 sub modify_usercreation {
if ($key eq 'cancreate') {	if ($key eq 'cancreate') {
if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {	if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {
foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {	foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {
if (($item eq 'selfcreate') \|\| ($item eq 'statustocreate') \|\|	if (($item eq 'requestcrs') \|\| ($item eq 'course') \|\| ($item eq 'author')) {
($item eq 'captcha') \|\| ($item eq 'recaptchakeys') \|\|
($item eq 'recaptchaversion')) {
$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
} else {
$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
	} else {
	$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
}	}
}	}
}	}
Line 11152 sub modify_usercreation {	Line 11537 sub modify_usercreation {
}	}

sub modify_selfcreation {	sub modify_selfcreation {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate);	my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%curr_inststatus,%changes,%cancreate);
my (%save_usercreate,%save_usermodify);	my (%save_usercreate,%save_usermodify,%save_inststatus,@types,%usertypes);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (ref($types) eq 'ARRAY') {	my ($othertitle,$usertypesref,$typesref) = &Apache::loncommon::sorted_inst_types($dom);
$usertypes->{'default'} = $othertitle;	if (ref($typesref) eq 'ARRAY') {
push(@{$types},'default');	@types = @{$typesref};
}	}
	if (ref($usertypesref) eq 'HASH') {
	%usertypes = %{$usertypesref};
	}
	$usertypes{'default'} = $othertitle;
#	#
# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.	# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}.
#	#
Line 11169 sub modify_selfcreation {	Line 11558 sub modify_selfcreation {
if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {	if (ref($domconfig{'usercreation'}{$key}) eq 'HASH') {
foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {	foreach my $item (keys(%{$domconfig{'usercreation'}{$key}})) {
if (($item eq 'selfcreate') \|\| ($item eq 'statustocreate') \|\|	if (($item eq 'selfcreate') \|\| ($item eq 'statustocreate') \|\|
($item eq 'captcha') \|\| ($item eq 'recaptchakeys') \|\|	($item eq 'captcha') \|\| ($item eq 'recaptchakeys') \|\|
($item eq 'recaptchaversion') \|\|	($item eq 'recaptchaversion') \|\| ($item eq 'notify') \|\|
($item eq 'emailusername') \|\| ($item eq 'notify') \|\|	($item eq 'emailusername') \|\| ($item eq 'shibenv') \|\|
($item eq 'selfcreateprocessing') \|\| ($item eq 'shibenv')) {	($item eq 'selfcreateprocessing') \|\| ($item eq 'emailverified') \|\|
	($item eq 'emailoptions') \|\| ($item eq 'emaildomain')) {
$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$curr_usercreation{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
} else {	} else {
$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};	$save_usercreate{$key}{$item} = $domconfig{'usercreation'}{$key}{$item};
Line 11198 sub modify_selfcreation {	Line 11588 sub modify_selfcreation {
}	}
}	}
}	}
	#
	# Retrieve current domain configuration for institutional status types from $domconfig{'inststatus'}.
	#
	if (ref($domconfig{'inststatus'}) eq 'HASH') {
	foreach my $key (keys(%{$domconfig{'inststatus'}})) {
	if ($key eq 'inststatusguest') {
	$curr_inststatus{$key} = $domconfig{'inststatus'}{$key};
	} else {
	$save_inststatus{$key} = $domconfig{'inststatus'}{$key};
	}
	}
	}

my @contexts = ('selfcreate');	my @contexts = ('selfcreate');
@{$cancreate{'selfcreate'}} = ();	@{$cancreate{'selfcreate'}} = ();
%{$cancreate{'emailusername'}} = ();	%{$cancreate{'emailusername'}} = ();
@{$cancreate{'statustocreate'}} = ();	if (@types) {
	@{$cancreate{'statustocreate'}} = ();
	}
%{$cancreate{'selfcreateprocessing'}} = ();	%{$cancreate{'selfcreateprocessing'}} = ();
%{$cancreate{'shibenv'}} = ();	%{$cancreate{'shibenv'}} = ();
	%{$cancreate{'emailverified'}} = ();
	%{$cancreate{'emailoptions'}} = ();
	%{$cancreate{'emaildomain'}} = ();
my %selfcreatetypes = (	my %selfcreatetypes = (
sso => 'users authenticated by institutional single sign on',	sso => 'users authenticated by institutional single sign on',
login => 'users authenticated by institutional log-in',	login => 'users authenticated by institutional log-in',
email => 'users who provide a valid e-mail address for use as username',	email => 'users verified by e-mail',
);	);
#	#
# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts	# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts
# is permitted.	# is permitted.
#	#
	my ($emailrules,$emailruleorder) = &Apache::lonnet::inst_userrules($dom,'email');

my @statuses;	my (@statuses,%email_rule);
if (ref($domconfig{'inststatus'}) eq 'HASH') {
if (ref($domconfig{'inststatus'}{'inststatusguest'}) eq 'ARRAY') {
@statuses = @{$domconfig{'inststatus'}{'inststatusguest'}};
}
}
push(@statuses,'default');

foreach my $item ('login','sso','email') {	foreach my $item ('login','sso','email') {
if ($item eq 'email') {	if ($item eq 'email') {
if ($env{'form.cancreate_email'}) {	if ($env{'form.cancreate_email'}) {
push(@{$cancreate{'selfcreate'}},'email');	if (@types) {
push(@contexts,'selfcreateprocessing');	my @poss_statuses = &Apache::loncommon::get_env_multiple('form.selfassign');
foreach my $type (@statuses) {	foreach my $status (@poss_statuses) {
if ($type eq 'default') {	if (grep(/^\Q$status\E$/,(@types,'default'))) {
$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess'};	push(@statuses,$status);
} else {	}
$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess_'.$type};	}
	$save_inststatus{'inststatusguest'} = \@statuses;
	} else {
	push(@statuses,'default');
	}
	if (@statuses) {
	my %curr_rule;
	if (ref($curr_usercreation{'email_rule'}) eq 'ARRAY') {
	foreach my $type (@statuses) {
	$curr_rule{$type} = $curr_usercreation{'email_rule'};
	}
	} elsif (ref($curr_usercreation{'email_rule'}) eq 'HASH') {
	foreach my $type (@statuses) {
	$curr_rule{$type} = $curr_usercreation{'email_rule'}{$type};
	}
	}
	push(@{$cancreate{'selfcreate'}},'email');
	push(@contexts,('selfcreateprocessing','emailverified','emailoptions'));
	my %curremaildom;
	if (ref($curr_usercreation{'cancreate'}{'emaildomain'}) eq 'HASH') {
	%curremaildom = %{$curr_usercreation{'cancreate'}{'emaildomain'}};
	}
	foreach my $type (@statuses) {
	if ($env{'form.cancreate_emailprocess_'.$type} =~ /^(?:approval\|automatic)$/) {
	$cancreate{'selfcreateprocessing'}{$type} = $env{'form.cancreate_emailprocess_'.$type};
	}
	if ($env{'form.cancreate_usernameoptions_'.$type} =~ /^(?:all\|first\|free)$/) {
	$cancreate{'emailverified'}{$type} = $env{'form.cancreate_usernameoptions_'.$type};
	}
	if ($env{'form.cancreate_emailoptions_'.$type} =~ /^(any\|inst\|noninst\|custom)$/) {
	#
	# Retrieve rules (if any) governing types of e-mail address which may be used to verify a username.
	#
	my $chosen = $1;
	if (($chosen eq 'inst') \|\| ($chosen eq 'noninst')) {
	my $emaildom;
	if ($env{'form.cancreate_emaildomain_'.$chosen.'_'.$type} =~ /^\@[^\@]+$/) {
	$emaildom = $env{'form.cancreate_emaildomain_'.$chosen.'_'.$type};
	$cancreate{'emaildomain'}{$type}{$chosen} = $emaildom;
	if (ref($curremaildom{$type}) eq 'HASH') {
	if (exists($curremaildom{$type}{$chosen})) {
	if ($curremaildom{$type}{$chosen} ne $emaildom) {
	push(@{$changes{'cancreate'}},'emaildomain');
	}
	} elsif ($emaildom ne '') {
	push(@{$changes{'cancreate'}},'emaildomain');
	}
	} elsif ($emaildom ne '') {
	push(@{$changes{'cancreate'}},'emaildomain');
	}
	}
	$cancreate{'emailoptions'}{$type} = $env{'form.cancreate_emailoptions_'.$type};
	} elsif ($chosen eq 'custom') {
	my @possemail_rules = &Apache::loncommon::get_env_multiple('form.email_rule_'.$type);
	$email_rule{$type} = [];
	if (ref($emailrules) eq 'HASH') {
	foreach my $rule (@possemail_rules) {
	if (exists($emailrules->{$rule})) {
	push(@{$email_rule{$type}},$rule);
	}
	}
	}
	if (@{$email_rule{$type}}) {
	$cancreate{'emailoptions'}{$type} = 'custom';
	if (ref($curr_rule{$type}) eq 'ARRAY') {
	if (@{$curr_rule{$type}} > 0) {
	foreach my $rule (@{$curr_rule{$type}}) {
	if (!grep(/^\Q$rule\E$/,@{$email_rule{$type}})) {
	push(@{$changes{'email_rule'}},$type);
	}
	}
	}
	foreach my $type (@{$email_rule{$type}}) {
	if (!grep(/^\Q$type\E$/,@{$curr_rule{$type}})) {
	push(@{$changes{'email_rule'}},$type);
	}
	}
	} else {
	push(@{$changes{'email_rule'}},$type);
	}
	}
	} else {
	$cancreate{'emailoptions'}{$type} = $env{'form.cancreate_emailoptions_'.$type};
	}
	}
	}
	if (@types) {
	if (ref($curr_inststatus{'inststatusguest'}) eq 'ARRAY') {
	my @changed = &Apache::loncommon::compare_arrays(\@statuses,$curr_inststatus{'inststatusguest'});
	if (@changed) {
	push(@{$changes{'inststatus'}},'inststatusguest');
	}
	} else {
	push(@{$changes{'inststatus'}},'inststatusguest');
	}
	}
	} else {
	delete($env{'form.cancreate_email'});
	if (ref($curr_inststatus{'inststatusguest'}) eq 'ARRAY') {
	if (@{$curr_inststatus{'inststatusguest'}} > 0) {
	push(@{$changes{'inststatus'}},'inststatusguest');
	}
	}
	}
	} else {
	$save_inststatus{'inststatusguest'} = [];
	if (ref($curr_inststatus{'inststatusguest'}) eq 'ARRAY') {
	if (@{$curr_inststatus{'inststatusguest'}} > 0) {
	push(@{$changes{'inststatus'}},'inststatusguest');
}	}
}	}
}	}
Line 11242 sub modify_selfcreation {	Line 11751 sub modify_selfcreation {
}	}
}	}
}	}
my (@email_rule,%userinfo,%savecaptcha);	my (%userinfo,%savecaptcha);
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();	my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info();
#	#
# Populate $cancreate{'emailusername'}{$type} hash ref with information fields (if new user will provide data	# Populate $cancreate{'emailusername'}{$type} hash ref with information fields (if new user will provide data
Line 11251 sub modify_selfcreation {	Line 11760 sub modify_selfcreation {

if ($env{'form.cancreate_email'}) {	if ($env{'form.cancreate_email'}) {
push(@contexts,'emailusername');	push(@contexts,'emailusername');
if (ref($types) eq 'ARRAY') {	if (@statuses) {
foreach my $type (@{$types}) {	foreach my $type (@statuses) {
if (ref($infofields) eq 'ARRAY') {	if (ref($infofields) eq 'ARRAY') {
foreach my $field (@{$infofields}) {	foreach my $field (@{$infofields}) {
if ($env{'form.canmodify_emailusername_'.$type.'_'.$field} =~ /^(required\|optional)$/) {	if ($env{'form.canmodify_emailusername_'.$type.'_'.$field} =~ /^(required\|optional)$/) {
Line 11264 sub modify_selfcreation {	Line 11773 sub modify_selfcreation {
}	}
#	#
# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of	# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of
# queued requests for self-creation of account using e-mail address as username	# queued requests for self-creation of account verified by e-mail.
#	#

my @approvalnotify = &Apache::loncommon::get_env_multiple('form.selfcreationnotifyapproval');	my @approvalnotify = &Apache::loncommon::get_env_multiple('form.selfcreationnotifyapproval');
Line 11284 sub modify_selfcreation {	Line 11793 sub modify_selfcreation {
push(@{$changes{'cancreate'}},'notify');	push(@{$changes{'cancreate'}},'notify');
}	}

#
# Retrieve rules (if any) governing types of e-mail address which may be used as a username
#
@email_rule = &Apache::loncommon::get_env_multiple('form.email_rule');
&process_captcha('cancreate',\%changes,\%savecaptcha,$curr_usercreation{'cancreate'});	&process_captcha('cancreate',\%changes,\%savecaptcha,$curr_usercreation{'cancreate'});
if (ref($curr_usercreation{'email_rule'}) eq 'ARRAY') {
if (@{$curr_usercreation{'email_rule'}} > 0) {
foreach my $type (@{$curr_usercreation{'email_rule'}}) {
if (!grep(/^\Q$type\E$/,@email_rule)) {
push(@{$changes{'email_rule'}},$type);
}
}
}
if (@email_rule > 0) {
foreach my $type (@email_rule) {
if (!grep(/^\Q$type\E$/,@{$curr_usercreation{'email_rule'}})) {
push(@{$changes{'email_rule'}},$type);
}
}
}
} elsif (@email_rule > 0) {
push(@{$changes{'email_rule'}},@email_rule);
}
}	}
#	#
# Check if domain default is set appropriately, if self-creation of accounts is to be available for	# Check if domain default is set appropriately, if self-creation of accounts is to be available for
# institutional log-in.	# institutional log-in.
#	#
if (grep(/^login$/,@{$cancreate{'selfcreate'}})) {	if (grep(/^login$/,@{$cancreate{'selfcreate'}})) {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) \|\|	if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) \|\|
($domdefaults{'auth_def'} eq 'localauth'))) {	($domdefaults{'auth_def'} eq 'localauth'))) {
$warningmsg = &mt('Although account creation has been set to be available for institutional logins, currently default authentication in this domain has not been set to support this.').' '.	$warningmsg = &mt('Although account creation has been set to be available for institutional logins, currently default authentication in this domain has not been set to support this.').' '.
Line 11332 sub modify_selfcreation {	Line 11818 sub modify_selfcreation {
# which the user may supply, if institutional data is unavailable.	# which the user may supply, if institutional data is unavailable.
#	#
if (($env{'form.cancreate_login'}) \|\| ($env{'form.cancreate_sso'})) {	if (($env{'form.cancreate_login'}) \|\| ($env{'form.cancreate_sso'})) {
if (ref($types) eq 'ARRAY') {	if (@types) {
if (@{$types} > 1) {	@{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');
@{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate');	push(@contexts,'statustocreate');
push(@contexts,'statustocreate');	foreach my $type (@types) {
} else {
undef($cancreate{'statustocreate'});
}
foreach my $type (@{$types}) {
my @modifiable = &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);	my @modifiable = &Apache::loncommon::get_env_multiple('form.canmodify_'.$type);
foreach my $field (@fields) {	foreach my $field (@fields) {
if (grep(/^\Q$field\E$/,@modifiable)) {	if (grep(/^\Q$field\E$/,@modifiable)) {
Line 11350 sub modify_selfcreation {	Line 11832 sub modify_selfcreation {
}	}
}	}
if (ref($curr_usermodify{'selfcreate'}) eq 'HASH') {	if (ref($curr_usermodify{'selfcreate'}) eq 'HASH') {
foreach my $type (@{$types}) {	foreach my $type (@types) {
if (ref($curr_usermodify{'selfcreate'}{$type}) eq 'HASH') {	if (ref($curr_usermodify{'selfcreate'}{$type}) eq 'HASH') {
foreach my $field (@fields) {	foreach my $field (@fields) {
if ($save_usermodify{'selfcreate'}{$type}{$field} ne	if ($save_usermodify{'selfcreate'}{$type}{$field} ne
Line 11362 sub modify_selfcreation {	Line 11844 sub modify_selfcreation {
}	}
}	}
} else {	} else {
foreach my $type (@{$types}) {	foreach my $type (@types) {
push(@{$changes{'selfcreate'}},$type);	push(@{$changes{'selfcreate'}},$type);
}	}
}	}
Line 11411 sub modify_selfcreation {	Line 11893 sub modify_selfcreation {
}	}
} elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') {	} elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') {
if (ref($cancreate{$item}) eq 'HASH') {	if (ref($cancreate{$item}) eq 'HASH') {
foreach my $curr (keys(%{$curr_usercreation{'cancreate'}{$item}})) {	foreach my $type (keys(%{$curr_usercreation{'cancreate'}{$item}})) {
if (ref($curr_usercreation{'cancreate'}{$item}{$curr}) eq 'HASH') {	if (ref($curr_usercreation{'cancreate'}{$item}{$type}) eq 'HASH') {
foreach my $field (keys(%{$curr_usercreation{'cancreate'}{$item}{$curr}})) {	foreach my $field (keys(%{$curr_usercreation{'cancreate'}{$item}{$type}})) {
unless ($curr_usercreation{'cancreate'}{$item}{$curr}{$field} eq $cancreate{$item}{$curr}{$field}) {	unless ($curr_usercreation{'cancreate'}{$item}{$type}{$field} eq $cancreate{$item}{$type}{$field}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
}	}
}	}
}	}
} elsif ($item eq 'selfcreateprocessing') {	} elsif (($item eq 'selfcreateprocessing') \|\| ($item eq 'emailverified') \|\| ($item eq 'emailoptions')) {
if ($cancreate{$item}{$curr} ne $curr_usercreation{'cancreate'}{$item}{$curr}) {	if ($cancreate{$item}{$type} ne $curr_usercreation{'cancreate'}{$item}{$type}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);
}
}
} else {
if (!$cancreate{$item}{$curr}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
}	}
}	}
}	}
}	}
foreach my $field (keys(%{$cancreate{$item}})) {	foreach my $type (keys(%{$cancreate{$item}})) {
if (ref($cancreate{$item}{$field}) eq 'HASH') {	if (ref($cancreate{$item}{$type}) eq 'HASH') {
foreach my $inner (keys(%{$cancreate{$item}{$field}})) {	foreach my $field (keys(%{$cancreate{$item}{$type}})) {
if (ref($curr_usercreation{'cancreate'}{$item}{$field}) eq 'HASH') {	if (ref($curr_usercreation{'cancreate'}{$item}{$type}) eq 'HASH') {
unless ($curr_usercreation{'cancreate'}{$item}{$field}{$inner} eq $cancreate{$item}{$field}{$inner}) {	unless ($curr_usercreation{'cancreate'}{$item}{$type}{$field} eq $cancreate{$item}{$type}{$field}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
}	}
Line 11449 sub modify_selfcreation {	Line 11925 sub modify_selfcreation {
}	}
}	}
}	}
} elsif ($item eq 'selfcreateprocessing') {	} elsif (($item eq 'selfcreateprocessing') \|\| ($item eq 'emailverified') \|\| ($item eq 'emailoptions')) {
if ($cancreate{$item}{$field} ne $curr_usercreation{'cancreate'}{$item}{$field}) {	if ($cancreate{$item}{$type} ne $curr_usercreation{'cancreate'}{$item}{$type}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);
}
}
} else {
if (!$curr_usercreation{'cancreate'}{$item}{$field}) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
}	}
Line 11471 sub modify_selfcreation {	Line 11941 sub modify_selfcreation {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
}	}
}	}
} elsif (ref($cancreate{$item}) eq 'HASH') {	}
if (!$cancreate{$item}{$curr_usercreation{'cancreate'}{$item}}) {	} elsif (($item eq 'selfcreateprocessing') \|\| ($item eq 'emailverified') \|\| ($item eq 'emailoptions')) {
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (ref($cancreate{$item}) eq 'HASH') {
push(@{$changes{'cancreate'}},$item);	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
}	push(@{$changes{'cancreate'}},$item);
}	}
}	}
} elsif ($item eq 'emailusername') {	} elsif ($item eq 'emailusername') {
Line 11508 sub modify_selfcreation {	Line 11978 sub modify_selfcreation {
if (ref($cancreate{'selfcreateprocessing'}) eq 'HASH') {	if (ref($cancreate{'selfcreateprocessing'}) eq 'HASH') {
$save_usercreate{'cancreate'}{'selfcreateprocessing'} = $cancreate{'selfcreateprocessing'};	$save_usercreate{'cancreate'}{'selfcreateprocessing'} = $cancreate{'selfcreateprocessing'};
}	}
	if (ref($cancreate{'emailverified'}) eq 'HASH') {
	$save_usercreate{'cancreate'}{'emailverified'} = $cancreate{'emailverified'};
	}
	if (ref($cancreate{'emailoptions'}) eq 'HASH') {
	$save_usercreate{'cancreate'}{'emailoptions'} = $cancreate{'emailoptions'};
	}
	if (ref($cancreate{'emaildomain'}) eq 'HASH') {
	$save_usercreate{'cancreate'}{'emaildomain'} = $cancreate{'emaildomain'};
	}
if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {	if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {
$save_usercreate{'cancreate'}{'statustocreate'} = $cancreate{'statustocreate'};	$save_usercreate{'cancreate'}{'statustocreate'} = $cancreate{'statustocreate'};
}	}
Line 11515 sub modify_selfcreation {	Line 11994 sub modify_selfcreation {
$save_usercreate{'cancreate'}{'shibenv'} = $cancreate{'shibenv'};	$save_usercreate{'cancreate'}{'shibenv'} = $cancreate{'shibenv'};
}	}
$save_usercreate{'cancreate'}{'emailusername'} = $cancreate{'emailusername'};	$save_usercreate{'cancreate'}{'emailusername'} = $cancreate{'emailusername'};
$save_usercreate{'emailrule'} = \@email_rule;	$save_usercreate{'email_rule'} = \%email_rule;

my %userconfig_hash = (	my %userconfig_hash = (
usercreation => \%save_usercreate,	usercreation => \%save_usercreate,
usermodification => \%save_usermodify,	usermodification => \%save_usermodify,
	inststatus => \%save_inststatus,
);	);

my $putresult = &Apache::lonnet::put_dom('configuration',\%userconfig_hash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%userconfig_hash,
$dom);	$dom);
#	#
# Accumulate details of changes to domain cofiguration for self-creation of usernames in $resulttext	# Accumulate details of changes to domain configuration for self-creation of usernames in $resulttext
#	#
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
Line 11532 sub modify_selfcreation {	Line 12013 sub modify_selfcreation {
if (ref($changes{'cancreate'}) eq 'ARRAY') {	if (ref($changes{'cancreate'}) eq 'ARRAY') {
my %lt = &selfcreation_types();	my %lt = &selfcreation_types();
foreach my $type (@{$changes{'cancreate'}}) {	foreach my $type (@{$changes{'cancreate'}}) {
my $chgtext;	my $chgtext = '';
if ($type eq 'selfcreate') {	if ($type eq 'selfcreate') {
if (@{$cancreate{$type}} == 0) {	if (@{$cancreate{$type}} == 0) {
$chgtext .= &mt('Self creation of a new user account is not permitted.');	$chgtext .= &mt('Self creation of a new user account is not permitted.');
Line 11547 sub modify_selfcreation {	Line 12028 sub modify_selfcreation {
if (grep(/^(login\|sso)$/,@{$cancreate{$type}})) {	if (grep(/^(login\|sso)$/,@{$cancreate{$type}})) {
if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {	if (ref($cancreate{'statustocreate'}) eq 'ARRAY') {
if (@{$cancreate{'statustocreate'}} == 0) {	if (@{$cancreate{'statustocreate'}} == 0) {
$chgtext .= '<br />'.	$chgtext .= '<span class="LC_warning">'.
'<span class="LC_warning">'.	&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts via log-in or single sign-on.").
&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").	'</span><br />';
'</span>';
}	}
}	}
}	}
	if (grep(/^email$/,@{$cancreate{$type}})) {
	if (!@statuses) {
	$chgtext .= '<span class="LC_warning">'.
	&mt("However, e-mail verification is currently set to 'unavailable' for all user types (including 'other'), so self-creation of accounts is not possible for non-institutional log-in.").
	'</span><br />';

	}
	}
}	}
}	}
} elsif ($type eq 'shibenv') {	} elsif ($type eq 'shibenv') {
if (keys(%{$cancreate{$type}}) == 0) {	if (keys(%{$cancreate{$type}}) == 0) {
$chgtext .= &mt('Shibboleth-autheticated user does not use environment variables to set user information');	$chgtext .= &mt('Shibboleth-autheticated user does not use environment variables to set user information').'<br />';
} else {	} else {
$chgtext .= &mt('Shibboleth-autheticated user information set from environment variables, as follows:').	$chgtext .= &mt('Shibboleth-autheticated user information set from environment variables, as follows:').
'<ul>';	'<ul>';
Line 11571 sub modify_selfcreation {	Line 12059 sub modify_selfcreation {
}	}
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
}	}
} elsif ($type eq 'statustocreate') {	} elsif ($type eq 'statustocreate') {
if ((ref($cancreate{'selfcreate'}) eq 'ARRAY') &&	if ((ref($cancreate{'selfcreate'}) eq 'ARRAY') &&
(ref($cancreate{'statustocreate'}) eq 'ARRAY')) {	(ref($cancreate{'statustocreate'}) eq 'ARRAY')) {
Line 11584 sub modify_selfcreation {	Line 12072 sub modify_selfcreation {
&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").	&mt("However, no institutional affiliations (including 'other') are currently permitted to create accounts.").
'</span>';	'</span>';
}	}
} elsif (ref($usertypes) eq 'HASH') {	} elsif (keys(%usertypes) > 0) {
if (grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {	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):');	$chgtext .= &mt('Creation of a new account for an institutional user is restricted to the following institutional affiliation(s):');
} else {	} else {
Line 11595 sub modify_selfcreation {	Line 12083 sub modify_selfcreation {
if ($case eq 'default') {	if ($case eq 'default') {
$chgtext .= '<li>'.$othertitle.'</li>';	$chgtext .= '<li>'.$othertitle.'</li>';
} else {	} else {
$chgtext .= '<li>'.$usertypes->{$case}.'</li>';	$chgtext .= '<li>'.$usertypes{$case}.'</li>';
}	}
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
if (!grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {	if (!grep(/^(login\|sso)$/,@{$cancreate{'selfcreate'}})) {
$chgtext .= '<br /><span class="LC_warning">'.	$chgtext .= '<span class="LC_warning">'.
&mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').	&mt('However, users authenticated by institutional login/single sign on are not currently permitted to create accounts.').
'</span>';	'</span>';
}	}
Line 11612 sub modify_selfcreation {	Line 12100 sub modify_selfcreation {
$chgtext .= &mt('Although institutional affiliations permitted to create accounts were changed, self creation of accounts is not currently permitted for any authentication types.');	$chgtext .= &mt('Although institutional affiliations permitted to create accounts were changed, self creation of accounts is not currently permitted for any authentication types.');
}	}
}	}
	$chgtext .= '<br />';
}	}
} elsif ($type eq 'selfcreateprocessing') {	} elsif ($type eq 'selfcreateprocessing') {
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
automatic => 'Automatic approval',	automatic => 'Automatic approval',
approval => 'Queued for approval',	approval => 'Queued for approval',
);	);
if (@statuses > 1) {	if (@types) {
$chgtext .= &mt('Processing of requests to create account with e-mail address as username set as follows:').	if (@statuses) {
'<ul>';	$chgtext .= &mt('Processing of requests to create account with e-mail verification set as follows:').
foreach my $type (@statuses) {	'<ul>';
if ($type eq 'default') {	foreach my $status (@statuses) {
$chgtext .= '<li>'.$othertitle.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$type}}.'</li>';	if ($status eq 'default') {
} else {	$chgtext .= '<li>'.$othertitle.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$status}}.'</li>';
$chgtext .= '<li>'.$usertypes->{$type}.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$type}}.'</li>';	} else {
}	$chgtext .= '<li>'.$usertypes{$status}.' -- '.$choices{$cancreate{'selfcreateprocessing'}{$status}}.'</li>';
}	}
$chgtext .= '</ul>';	}
	$chgtext .= '</ul>';
	}
	} else {
	$chgtext .= &mt('Processing of requests to create account with e-mail verification set to: "[_1]"',
	$choices{$cancreate{'selfcreateprocessing'}{'default'}});
	}
	} elsif ($type eq 'emailverified') {
	my %options = &Apache::lonlocal::texthash (
	all => 'Same as e-mail',
	first => 'Omit @domain',
	free => 'Free to choose',
	);
	if (@types) {
	if (@statuses) {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, username is set as follows:').
	'<ul>';
	foreach my $status (@statuses) {
	if ($type eq 'default') {
	$chgtext .= '<li>'.$othertitle.' -- '.$options{$cancreate{'emailverified'}{$status}}.'</li>';
	} else {
	$chgtext .= '<li>'.$usertypes{$status}.' -- '.$options{$cancreate{'emailverified'}{$status}}.'</li>';
	}
	}
	$chgtext .= '</ul>';
	}
} else {	} else {
$chgtext .= &mt('Processing of requests to create account with e-mail address as username set to: "[_1]"',	$chgtext .= &mt("For self-created accounts verified by e-mail address, user's username is: '[_1]'",
$choices{$cancreate{'selfcreateprocessing'}{'default'}});	$options{$cancreate{'emailverified'}{'default'}});
	}
	} elsif ($type eq 'emailoptions') {
	my %options = &Apache::lonlocal::texthash (
	any => 'Any e-mail',
	inst => 'Institutional only',
	noninst => 'Non-institutional only',
	custom => 'Custom restrictions',
	);
	if (@types) {
	if (@statuses) {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, requirements for e-mail address are as follows:').
	'<ul>';
	foreach my $status (@statuses) {
	if ($type eq 'default') {
	$chgtext .= '<li>'.$othertitle.' -- '.$options{$cancreate{'emailoptions'}{$status}}.'</li>';
	} else {
	$chgtext .= '<li>'.$usertypes{$status}.' -- '.$options{$cancreate{'emailoptions'}{$status}}.'</li>';
	}
	}
	$chgtext .= '</ul>';
	}
	} else {
	if ($cancreate{'emailoptions'}{'default'} eq 'any') {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, any e-mail may be used');
	} else {
	$chgtext .= &mt('For self-created accounts verified by e-mail address, e-mail restricted to: "[_1]"',
	$options{$cancreate{'emailoptions'}{'default'}});
	}
	}
	} elsif ($type eq 'emaildomain') {
	my $output;
	if (@statuses) {
	foreach my $type (@statuses) {
	if (ref($cancreate{'emaildomain'}{$type}) eq 'HASH') {
	if ($cancreate{'emailoptions'}{$type} eq 'inst') {
	if ($type eq 'default') {
	if ((ref($cancreate{'emaildomain'}{$type}) ne 'HASH') \|\|
	($cancreate{'emaildomain'}{$type}{'inst'} eq '')) {
	$output = '<li>'.$othertitle.' -- '.&mt('No restriction on e-mail domain').'</li>';
	} else {
	$output = '<li>'.$othertitle.' -- '.&mt("User's e-mail address needs to end: [_1]",
	$cancreate{'emaildomain'}{$type}{'inst'}).'</li>';
	}
	} else {
	if ((ref($cancreate{'emaildomain'}{$type}) ne 'HASH') \|\|
	($cancreate{'emaildomain'}{$type}{'inst'} eq '')) {
	$output = '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>';
	} else {
	$output = '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail address needs to end: [_1]",
	$cancreate{'emaildomain'}{$type}{'inst'}).'</li>';
	}
	}
	} elsif ($cancreate{'emailoptions'}{$type} eq 'noninst') {
	if ($type eq 'default') {
	if ((ref($cancreate{'emaildomain'}{$type}) ne 'HASH') \|\|
	($cancreate{'emaildomain'}{$type}{'noninst'} eq '')) {
	$output = '<li>'.$othertitle.' -- '.&mt('No restriction on e-mail domain').'</li>';
	} else {
	$output = '<li>'.$othertitle.' -- '.&mt("User's e-mail address must not end: [_1]",
	$cancreate{'emaildomain'}{$type}{'noninst'}).'</li>';
	}
	} else {
	if ((ref($cancreate{'emaildomain'}{$type}) ne 'HASH') \|\|
	($cancreate{'emaildomain'}{$type}{'noninst'} eq '')) {
	$output = '<li>'.$usertypes{$type}.' -- '.&mt('No restriction on e-mail domain').'</li>';
	} else {
	$output = '<li>'.$usertypes{$type}.' -- '.&mt("User's e-mail address must not end: [_1]",
	$cancreate{'emaildomain'}{$type}{'noninst'}).'</li>';
	}
	}
	}
	}
	}
	}
	if ($output ne '') {
	$chgtext .= &mt('For self-created accounts verified by e-mail address:').
	'<ul>'.$output.'</ul>';
}	}
} elsif ($type eq 'captcha') {	} elsif ($type eq 'captcha') {
if ($savecaptcha{$type} eq 'notused') {	if ($savecaptcha{$type} eq 'notused') {
Line 11668 sub modify_selfcreation {	Line 12259 sub modify_selfcreation {
}	}
} elsif ($type eq 'emailusername') {	} elsif ($type eq 'emailusername') {
if (ref($cancreate{'emailusername'}) eq 'HASH') {	if (ref($cancreate{'emailusername'}) eq 'HASH') {
if (ref($types) eq 'ARRAY') {	if (@statuses) {
foreach my $type (@{$types}) {	foreach my $type (@statuses) {
if (ref($cancreate{'emailusername'}{$type}) eq 'HASH') {	if (ref($cancreate{'emailusername'}{$type}) eq 'HASH') {
if (keys(%{$cancreate{'emailusername'}{$type}}) > 0) {	if (keys(%{$cancreate{'emailusername'}{$type}}) > 0) {
$chgtext .= &mt('When self-creating account with e-mail as username, the following information will be provided by [_1]:',"'$usertypes->{$type}'").	$chgtext .= &mt('When self-creating account with e-mail verification, the following information will be provided by [_1]:',"'$usertypes{$type}'").
'<ul>';	'<ul>';
foreach my $field (@{$infofields}) {	foreach my $field (@{$infofields}) {
if ($cancreate{'emailusername'}{$type}{$field}) {	if ($cancreate{'emailusername'}{$type}{$field}) {
Line 11681 sub modify_selfcreation {	Line 12272 sub modify_selfcreation {
}	}
$chgtext .= '</ul>';	$chgtext .= '</ul>';
} else {	} else {
$chgtext .= &mt('When self creating account with e-mail as username, no information besides e-mail address will be provided by [_1].',"'$usertypes->{$type}'").'<br />';	$chgtext .= &mt('When self creating account with e-mail verification, no information besides e-mail address will be provided by [_1].',"'$usertypes{$type}'").'<br />';
}	}
} else {	} else {
$chgtext .= &mt('When self creating account with e-mail as username, no information besides e-mail address will be provided by [_1].',"'$usertypes->{$type}'").'<br />';	$chgtext .= &mt('When self creating account with e-mail verification, no information besides e-mail address will be provided by [_1].',"'$usertypes{$type}'").'<br />';
}	}
}	}
}	}
}	}
} elsif ($type eq 'notify') {	} elsif ($type eq 'notify') {
$chgtext = &mt('No Domain Coordinators will receive notification of username requests requiring approval.');	my $numapprove = 0;
if (ref($changes{'cancreate'}) eq 'ARRAY') {	if (ref($changes{'cancreate'}) eq 'ARRAY') {
if ((grep(/^notify$/,@{$changes{'cancreate'}})) && (ref($cancreate{'notify'}) eq 'HASH')) {	if ((grep(/^notify$/,@{$changes{'cancreate'}})) && (ref($cancreate{'notify'}) eq 'HASH')) {
if ($cancreate{'notify'}{'approval'}) {	if ($cancreate{'notify'}{'approval'}) {
$chgtext = &mt('Notification of username requests requiring approval will be sent to: ').$cancreate{'notify'}{'approval'};	$chgtext .= &mt('Notification of username requests requiring approval will be sent to: ').$cancreate{'notify'}{'approval'};
	$numapprove ++;
}	}
}	}
}	}
	unless ($numapprove) {
	$chgtext .= &mt('No Domain Coordinators will receive notification of username requests requiring approval.');
	}
}	}
if ($chgtext) {	if ($chgtext) {
$resulttext .= '<li>'.$chgtext.'</li>';	$resulttext .= '<li>'.$chgtext.'</li>';
}	}
}	}
}	}
if (ref($changes{'email_rule'}) eq 'ARRAY') {	if ((ref($changes{'email_rule'}) eq 'ARRAY') && (@{$changes{'email_rule'}} > 0)) {
my ($emailrules,$emailruleorder) =	my ($emailrules,$emailruleorder) =
&Apache::lonnet::inst_userrules($dom,'email');	&Apache::lonnet::inst_userrules($dom,'email');
my $chgtext = '<ul>';	foreach my $type (@{$changes{'email_rule'}}) {
foreach my $type (@email_rule) {	if (ref($email_rule{$type}) eq 'ARRAY') {
if (ref($emailrules->{$type}) eq 'HASH') {	my $chgtext = '<ul>';
$chgtext .= '<li>'.$emailrules->{$type}{'name'}.'</li>';	foreach my $rule (@{$email_rule{$type}}) {
	if (ref($emailrules->{$rule}) eq 'HASH') {
	$chgtext .= '<li>'.$emailrules->{$rule}{'name'}.'</li>';
	}
	}
	$chgtext .= '</ul>';
	my $typename;
	if (@types) {
	if ($type eq 'default') {
	$typename = $othertitle;
	} else {
	$typename = $usertypes{$type};
	}
	$chgtext .= &mt('(Affiliation: [_1])',$typename);
	}
	if (@{$email_rule{$type}} > 0) {
	$resulttext .= '<li>'.
	&mt('Accounts may not be created by users verified by e-mail, for e-mail addresses of the following types: ',
	$usertypes{$type}).
	$chgtext.
	'</li>';
	} else {
	$resulttext .= '<li>'.
	&mt('There are now no restrictions on e-mail addresses which may be used for verification when a user requests an account.').
	'</li>'.
	&mt('(Affiliation: [_1])',$typename);
	}
}	}
}	}
$chgtext .= '</ul>';	}
if (@email_rule > 0) {	if (ref($changes{'inststatus'}) eq 'ARRAY') {
$resulttext .= '<li>'.	if (ref($save_inststatus{'inststatusguest'}) eq 'ARRAY') {
&mt('Accounts may not be created by users self-enrolling with e-mail addresses of the following types: ').	if (@{$save_inststatus{'inststatusguest'}} > 0) {
$chgtext.	my $chgtext = '<ul>';
'</li>';	foreach my $type (@{$save_inststatus{'inststatusguest'}}) {
} else {	$chgtext .= '<li>'.$usertypes{$type}.'</li>';
$resulttext .= '<li>'.	}
&mt('There are now no restrictions on e-mail addresses which may be used as a username when self-enrolling.').	$chgtext .= '</ul>';
'</li>';	$resulttext .= '<li>'.
	&mt('A user will self-report one of the following affiliations when requesting an account verified by e-mail: ').
	$chgtext.
	'</li>';
	} else {
	$resulttext .= '<li>'.
	&mt('No affiliations available for self-reporting when requesting an account verified by e-mail.').
	'</li>';
	}
}	}
}	}
if (ref($changes{'selfcreate'}) eq 'ARRAY') {	if (ref($changes{'selfcreate'}) eq 'ARRAY') {
Line 11730 sub modify_selfcreation {	Line 12359 sub modify_selfcreation {
my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();	my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles();
foreach my $type (@{$changes{'selfcreate'}}) {	foreach my $type (@{$changes{'selfcreate'}}) {
my $typename = $type;	my $typename = $type;
if (ref($usertypes) eq 'HASH') {	if (keys(%usertypes) > 0) {
if ($usertypes->{$type} ne '') {	if ($usertypes{$type} ne '') {
$typename = $usertypes->{$type};	$typename = $usertypes{$type};
}	}
}	}
my @modifiable;	my @modifiable;
Line 11755 sub modify_selfcreation {	Line 12384 sub modify_selfcreation {
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
	my $cachetime = 246060;
	$domdefaults{'inststatusguest'} = $save_inststatus{'inststatusguest'};
	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
} else {	} else {
$resulttext = &mt('No changes made to self-creation settings');	$resulttext = &mt('No changes made to self-creation settings');
}	}
Line 12038 sub modify_defaults {	Line 12673 sub modify_defaults {
}	}
my @todelete = &Apache::loncommon::get_env_multiple('form.inststatus_delete');	my @todelete = &Apache::loncommon::get_env_multiple('form.inststatus_delete');
my @allpos;	my @allpos;
my %guests;
my %alltypes;	my %alltypes;
my ($currtitles,$currguests,$currorder);	my @inststatusguest;
	if (ref($currinststatus->{'inststatusguest'}) eq 'ARRAY') {
	foreach my $type (@{$currinststatus->{'inststatusguest'}}) {
	unless (grep(/^\Q$type\E$/,@todelete)) {
	push(@inststatusguest,$type);
	}
	}
	}
	my ($currtitles,$currorder);
if (ref($currinststatus) eq 'HASH') {	if (ref($currinststatus) eq 'HASH') {
if (ref($currinststatus->{'inststatusorder'}) eq 'ARRAY') {	if (ref($currinststatus->{'inststatusorder'}) eq 'ARRAY') {
foreach my $type (@{$currinststatus->{'inststatusorder'}}) {	foreach my $type (@{$currinststatus->{'inststatusorder'}}) {
Line 12055 sub modify_defaults {	Line 12697 sub modify_defaults {
$allpos[$position] = $type;	$allpos[$position] = $type;
$alltypes{$type} = $env{'form.inststatus_title_'.$type};	$alltypes{$type} = $env{'form.inststatus_title_'.$type};
$alltypes{$type} =~ s/`//g;	$alltypes{$type} =~ s/`//g;
if ($env{'form.inststatus_guest_'.$type}) {
$guests{$type} = 1;
}
}	}
}	}
if (ref($currinststatus->{'inststatusguest'}) eq 'ARRAY') {
$currguests = join(',',@{$currinststatus->{'inststatusguest'}});
}
$currorder = join(',',@{$currinststatus->{'inststatusorder'}});	$currorder = join(',',@{$currinststatus->{'inststatusorder'}});
$currtitles =~ s/,$//;	$currtitles =~ s/,$//;
}	}
Line 12071 sub modify_defaults {	Line 12707 sub modify_defaults {
my $newtype = $env{'form.addinststatus'};	my $newtype = $env{'form.addinststatus'};
$newtype =~ s/\W//g;	$newtype =~ s/\W//g;
unless (exists($alltypes{$newtype})) {	unless (exists($alltypes{$newtype})) {
if ($env{'form.addinststatus_guest'}) {
$guests{$newtype} = 1;
}
$alltypes{$newtype} = $env{'form.addinststatus_title'};	$alltypes{$newtype} = $env{'form.addinststatus_title'};
$alltypes{$newtype} =~ s/`//g;	$alltypes{$newtype} =~ s/`//g;
my $position = $env{'form.addinststatus_pos'};	my $position = $env{'form.addinststatus_pos'};
Line 12083 sub modify_defaults {	Line 12716 sub modify_defaults {
}	}
}	}
}	}
my (@orderedstatus,@orderedguests);	my @orderedstatus;
foreach my $type (@allpos) {	foreach my $type (@allpos) {
unless (($type eq '') \|\| (grep(/^\Q$type\E$/,@orderedstatus))) {	unless (($type eq '') \|\| (grep(/^\Q$type\E$/,@orderedstatus))) {
push(@orderedstatus,$type);	push(@orderedstatus,$type);
if ($guests{$type}) {
push(@orderedguests,$type);
}
}	}
}	}
foreach my $type (keys(%alltypes)) {	foreach my $type (keys(%alltypes)) {
Line 12100 sub modify_defaults {	Line 12730 sub modify_defaults {
$defaults_hash{'inststatus'} = {	$defaults_hash{'inststatus'} = {
inststatustypes => \%alltypes,	inststatustypes => \%alltypes,
inststatusorder => \@orderedstatus,	inststatusorder => \@orderedstatus,
inststatusguest => \@orderedguests,	inststatusguest => \@inststatusguest,
};	};
if (ref($defaults_hash{'inststatus'}) eq 'HASH') {	if (ref($defaults_hash{'inststatus'}) eq 'HASH') {
foreach my $item ('inststatustypes','inststatusorder','inststatusguest') {	foreach my $item ('inststatustypes','inststatusorder','inststatusguest') {
Line 12110 sub modify_defaults {	Line 12740 sub modify_defaults {
if ($currorder ne join(',',@orderedstatus)) {	if ($currorder ne join(',',@orderedstatus)) {
$changes{'inststatus'}{'inststatusorder'} = 1;	$changes{'inststatus'}{'inststatusorder'} = 1;
}	}
if ($currguests ne join(',',@orderedguests)) {
$changes{'inststatus'}{'inststatusguest'} = 1;
}
my $newtitles;	my $newtitles;
foreach my $item (@orderedstatus) {	foreach my $item (@orderedstatus) {
$newtitles .= $alltypes{$item}.',';	$newtitles .= $alltypes{$item}.',';
Line 12131 sub modify_defaults {	Line 12758 sub modify_defaults {
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
if ($item eq 'inststatus') {	if ($item eq 'inststatus') {
if (ref($changes{'inststatus'}) eq 'HASH') {	if (ref($changes{'inststatus'}) eq 'HASH') {
if (($changes{'inststatus'}{'inststatustypes'}) \|\| $changes{'inststatus'}{'inststatusorder'}) {	if (@orderedstatus) {
$resulttext .= '<li>'.&mt('Institutional user status types set to:').' ';	$resulttext .= '<li>'.&mt('Institutional user status types set to:').' ';
foreach my $type (@orderedstatus) {	foreach my $type (@orderedstatus) {
$resulttext .= $alltypes{$type}.', ';	$resulttext .= $alltypes{$type}.', ';
}	}
$resulttext =~ s/, $//;	$resulttext =~ s/, $//;
$resulttext .= '</li>';	$resulttext .= '</li>';
}	} else {
if ($changes{'inststatus'}{'inststatusguest'}) {	$resulttext .= '<li>'.&mt('Institutional user status types deleted').'</li>';
$resulttext .= '<li>';
if (@orderedguests) {
$resulttext .= &mt('Types assignable to "non-institutional" usernames set to:').' ';
foreach my $type (@orderedguests) {
$resulttext .= $alltypes{$type}.', ';
}
$resulttext =~ s/, $//;
} else {
$resulttext .= &mt('Types assignable to "non-institutional" usernames set to none.');
}
$resulttext .= '</li>';
}	}
}	}
} else {	} else {
Line 13077 sub modify_coursedefaults {	Line 13693 sub modify_coursedefaults {
postsubmit => 60,	postsubmit => 60,
mysqltables => 172800,	mysqltables => 172800,
);	);
	my %texoptions = (
	MathJax => 'MathJax',
	mimetex => &mt('Convert to Images'),
	tth => &mt('TeX to HTML'),
	);
$defaultshash{'coursedefaults'} = {};	$defaultshash{'coursedefaults'} = {};

if (ref($domconfig{'coursedefaults'}) ne 'HASH') {	if (ref($domconfig{'coursedefaults'}) ne 'HASH') {
Line 13137 sub modify_coursedefaults {	Line 13757 sub modify_coursedefaults {
}	}
}	}
}	}
	my $texengine;
	if ($env{'form.texengine'} =~ /^(MathJax\|mimetex\|tth)$/) {
	$texengine = $env{'form.texengine'};
	if ($defaultshash{'coursedefaults'}{'texengine'} eq '') {
	unless ($texengine eq 'MathJax') {
	$changes{'texengine'} = 1;
	}
	} elsif ($defaultshash{'coursedefaults'}{'texengine'} ne $texengine) {
	$changes{'texengine'} = 1;
	}
	}
	if ($texengine ne '') {
	$defaultshash{'coursedefaults'}{'texengine'} = $texengine;
	}
my $currclone = $domconfig{'coursedefaults'}{'canclone'};	my $currclone = $domconfig{'coursedefaults'}{'canclone'};
my @currclonecode;	my @currclonecode;
if (ref($currclone) eq 'HASH') {	if (ref($currclone) eq 'HASH') {
Line 13257 sub modify_coursedefaults {	Line 13891 sub modify_coursedefaults {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (($changes{'canuse_pdfforms'}) \|\| ($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|	if (($changes{'canuse_pdfforms'}) \|\| ($changes{'uploadquota'}) \|\| ($changes{'postsubmit'}) \|\|
($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|	($changes{'coursecredits'}) \|\| ($changes{'uselcmath'}) \|\| ($changes{'usejsme'}) \|\|
($changes{'canclone'}) \|\| ($changes{'mysqltables'})) {	($changes{'canclone'}) \|\| ($changes{'mysqltables'}) \|\| ($changes{'texengine'})) {
foreach my $item ('canuse_pdfforms','uselcmath','usejsme') {	foreach my $item ('canuse_pdfforms','uselcmath','usejsme','texengine') {
if ($changes{$item}) {	if ($changes{$item}) {
$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};	$domdefaults{$item}=$defaultshash{'coursedefaults'}{$item};
}	}
Line 13327 sub modify_coursedefaults {	Line 13961 sub modify_coursedefaults {
} else {	} else {
$resulttext .= '<li>'.&mt('Molecule editor uses JME (Java), if supported by client OS.').'</li>';	$resulttext .= '<li>'.&mt('Molecule editor uses JME (Java), if supported by client OS.').'</li>';
}	}
	} elsif ($item eq 'texengine') {
	if ($defaultshash{'coursedefaults'}{'texengine'} ne '') {
	$resulttext .= '<li>'.&mt('Default method to display mathematics set to: "[_1]"',
	$texoptions{$defaultshash{'coursedefaults'}{'texengine'}}).'</li>';
	}
} elsif ($item eq 'anonsurvey_threshold') {	} elsif ($item eq 'anonsurvey_threshold') {
$resulttext .= '<li>'.&mt('Responder count required for display of anonymous survey submissions set to [_1].',$defaultshash{'coursedefaults'}{'anonsurvey_threshold'}).'</li>';	$resulttext .= '<li>'.&mt('Responder count required for display of anonymous survey submissions set to [_1].',$defaultshash{'coursedefaults'}{'anonsurvey_threshold'}).'</li>';
} elsif ($item eq 'uploadquota') {	} elsif ($item eq 'uploadquota') {
Line 13654 sub modify_selfenrollment {	Line 14293 sub modify_selfenrollment {
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
}	}
}	}
if ((exists($changes{'admin'})) \|\| (exists($changes{'default'}))) {	}
my $cachetime = 246060;	if ((exists($changes{'admin'})) \|\| (exists($changes{'default'}))) {
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	my $cachetime = 246060;
if (ref($lastactref) eq 'HASH') {	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
$lastactref->{'domdefaults'} = 1;	if (ref($lastactref) eq 'HASH') {
}	$lastactref->{'domdefaults'} = 1;
}	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
Line 15233 function toggleDisplay(domForm,caller) {	Line 15872 function toggleDisplay(domForm,caller) {
var optionsElement = domForm.coursecredits;	var optionsElement = domForm.coursecredits;
var checkval = 1;	var checkval = 1;
var dispval = 'block';	var dispval = 'block';
	var selfcreateRegExp = /^cancreate_emailverified/;
if (caller == 'emailoptions') {	if (caller == 'emailoptions') {
optionsElement = domForm.cancreate_email;	optionsElement = domForm.cancreate_email;
}	}
Line 15243 function toggleDisplay(domForm,caller) {	Line 15883 function toggleDisplay(domForm,caller) {
optionsElement = domForm.canclone;	optionsElement = domForm.canclone;
checkval = 'instcode';	checkval = 'instcode';
}	}
	if (selfcreateRegExp.test(caller)) {
	optionsElement = domForm.elements[caller];
	checkval = 'other';
	dispval = 'inline'
	}
if (optionsElement.length) {	if (optionsElement.length) {
var currval;	var currval;
for (var i=0; i<optionsElement.length; i++) {	for (var i=0; i<optionsElement.length; i++) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.300
changed lines
	Added in v.1.314