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.160.6.5 and 1.220

version 1.160.6.5, 2012/09/01 09:13:53	version 1.220, 2014/01/01 16:00:11
Line 45 described at http://www.lon-capa.org.	Line 45 described at http://www.lon-capa.org.
=head1 OVERVIEW	=head1 OVERVIEW

Each institution using LON-CAPA will typically have a single domain designated	Each institution using LON-CAPA will typically have a single domain designated
for use by individuals affliated with the institution. Accordingly, each domain	for use by individuals affiliated with the institution. Accordingly, each domain
may define a default set of logos and a color scheme which can be used to "brand"	may define a default set of logos and a color scheme which can be used to "brand"
the LON-CAPA instance. In addition, an institution will typically have a language	the LON-CAPA instance. In addition, an institution will typically have a language
and timezone which are used for the majority of courses.	and timezone which are used for the majority of courses.
Line 86 $dom,$settings,$rowtotal,$action.	Line 86 $dom,$settings,$rowtotal,$action.

$dom is the domain, $settings is a reference to a hash of current settings for	$dom is the domain, $settings is a reference to a hash of current settings for
the current context, $rowtotal is a reference to the scalar used to record the	the current context, $rowtotal is a reference to the scalar used to record the
number of rows displayed on the page, and $action is the context (quotas,	number of rows displayed on the page, and $action is the context (quotas,
requestcourses or requestauthor).	requestcourses or requestauthor).

The print_quotas routine was orginally created to display/store information	The print_quotas routine was orginally created to display/store information
Line 94 about default quota sizes for portfolio	Line 94 about default quota sizes for portfolio
institutional affiliation in the domain (e.g., Faculty, Staff, Student etc.),	institutional affiliation in the domain (e.g., Faculty, Staff, Student etc.),
but is now also used to manage availability of user tools:	but is now also used to manage availability of user tools:
i.e., blogs, aboutme page, and portfolios, and the course request tool,	i.e., blogs, aboutme page, and portfolios, and the course request tool,
used by course owners to request creation of a course.	used by course owners to request creation of a course, and to display/store
	default quota sizes for authoring spaces.

Outputs: 1	Outputs: 1

Line 102 $datatable - HTML containing form eleme	Line 103 $datatable - HTML containing form eleme

In the case of course requests, radio buttons are displayed for each institutional	In the case of course requests, radio buttons are displayed for each institutional
affiliate type (and also default, and _LC_adv) for each of the course types	affiliate type (and also default, and _LC_adv) for each of the course types
(official, unofficial and community). In each case the radio buttons allow the	(official, unofficial, community, and textbook). In each case the radio buttons
selection of one of four values:	allow the selection of one of four values:

0, approval, validate, autolimit=N (where N is blank, or a positive integer).	0, approval, validate, autolimit=N (where N is blank, or a positive integer).
which have the following effects:	which have the following effects:
Line 210 sub handler {	Line 211 sub handler {
'quotas','autoenroll','autoupdate','autocreate',	'quotas','autoenroll','autoupdate','autocreate',
'directorysrch','usercreation','usermodification',	'directorysrch','usercreation','usermodification',
'contacts','defaults','scantron','coursecategories',	'contacts','defaults','scantron','coursecategories',
'serverstatuses','requestcourses','usersessions',	'serverstatuses','requestcourses','helpsettings',
'loadbalancing','requestauthor'],$dom);	'coursedefaults','usersessions','loadbalancing',
	'requestauthor'],$dom);
my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',	my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll',
'autoupdate','autocreate','directorysrch','contacts',	'autoupdate','autocreate','directorysrch','contacts',
'usercreation','usermodification','scantron',	'usercreation','usermodification','scantron',
'requestcourses','requestauthor','coursecategories',	'requestcourses','requestauthor','coursecategories',
'serverstatuses','usersessions');	'serverstatuses','helpsettings',
if (keys(%servers) > 1) {	'coursedefaults','usersessions');
	my %existing;
	if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
	%existing = %{$domconfig{'loadbalancing'}};
	}
	if ((keys(%servers) > 1) \|\| (keys(%existing) > 0)) {
push(@prefs_order,'loadbalancing');	push(@prefs_order,'loadbalancing');
}	}
my %prefs = (	my %prefs = (
Line 248 sub handler {	Line 255 sub handler {
col2 => 'Value'}],	col2 => 'Value'}],
},	},
'quotas' =>	'quotas' =>
{ text => 'Blogs, personal web pages, webDAV, portfolios',	{ text => 'Blogs, personal web pages, webDAV/quotas, portfolios',
help => 'Domain_Configuration_Quotas',	help => 'Domain_Configuration_Quotas',
header => [{col1 => 'User affiliation',	header => [{col1 => 'User affiliation',
col2 => 'Available tools',	col2 => 'Available tools',
col3 => 'Portfolio quota',}],	col3 => 'Quotas, MB; (Authoring requires role)',}],
},	},
'autoenroll' =>	'autoenroll' =>
{ text => 'Auto-enrollment settings',	{ text => 'Auto-enrollment settings',
Line 322 sub handler {	Line 329 sub handler {
header => [{col1 => 'User affiliation',	header => [{col1 => 'User affiliation',
col2 => 'Availability/Processing of requests',},	col2 => 'Availability/Processing of requests',},
{col1 => 'Setting',	{col1 => 'Setting',
col2 => 'Value'}],	col2 => 'Value'},
	{col1 => 'Available textbooks',
	col2 => ''}],
},	},
'requestauthor' =>	'requestauthor' =>
{text => 'Request authoring space',	{text => 'Request authoring space',
Line 349 sub handler {	Line 358 sub handler {
col3 => 'Specific IPs',	col3 => 'Specific IPs',
}],	}],
},	},
	'helpsettings' =>
	{text => 'Help page settings',
	help => 'Domain_Configuration_Help_Settings',
	header => [{col1 => 'Help Settings (logged-in users)',
	col2 => 'Value'}],
	},
	'coursedefaults' =>
	{text => 'Course/Community defaults',
	help => 'Domain_Configuration_Course_Defaults',
	header => [{col1 => 'Defaults which can be overridden in each course by a CC',
	col2 => 'Value',},
	{col1 => 'Defaults which can be overridden for each course by a DC',
	col2 => 'Value',},],
	},
	'privacy' =>
	{text => 'User Privacy',
	help => 'Domain_Configuration_User_Privacy',
	header => [{col1 => 'Setting',
	col2 => 'Value',}],
	},
'usersessions' =>	'usersessions' =>
{text => 'User session hosting/offloading',	{text => 'User session hosting/offloading',
help => 'Domain_Configuration_User_Sessions',	help => 'Domain_Configuration_User_Sessions',
Line 360 sub handler {	Line 389 sub handler {
col2 => 'Rules'}],	col2 => 'Rules'}],
},	},
'loadbalancing' =>	'loadbalancing' =>
{text => 'Dedicated Load Balancer',	{text => 'Dedicated Load Balancer(s)',
help => 'Domain_Configuration_Load_Balancing',	help => 'Domain_Configuration_Load_Balancing',
header => [{col1 => 'Server',	header => [{col1 => 'Balancers',
col2 => 'Default destinations',	col2 => 'Default destinations',
col3 => 'User affliation',	col3 => 'User affiliation',
col4 => 'Overrides'},	col4 => 'Overrides'},
],	],
},	},
Line 380 sub handler {	Line 409 sub handler {
col2 => 'Value'}],	col2 => 'Value'}],
};	};
}	}

my @roles = ('student','coordinator','author','admin');	my @roles = ('student','coordinator','author','admin');
my @actions = &Apache::loncommon::get_env_multiple('form.actions');	my @actions = &Apache::loncommon::get_env_multiple('form.actions');
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:changePage(document.$phase,'pickactions')",	({href=>"javascript:changePage(document.$phase,'pickactions')",
text=>"Settings to display/modify"});	text=>"Settings to display/modify"});
my $confname = $dom.'-domainconfig';	my $confname = $dom.'-domainconfig';

if ($phase eq 'process') {	if ($phase eq 'process') {
&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles);	my $result = &Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,
	\%prefs,\%domconfig,$confname,\@roles);
	if (ref($result) eq 'HASH') {
	$r->rflush();
	&devalidate_remote_domconfs($dom,$result);
	}
} elsif ($phase eq 'display') {	} elsif ($phase eq 'display') {
my $js = &recaptcha_js();	my $js = &recaptcha_js().
if (keys(%servers) > 1) {	&credits_js();
	if ((keys(%servers) > 1) \|\| (keys(%existing) > 0)) {
my ($othertitle,$usertypes,$types) =	my ($othertitle,$usertypes,$types) =
&Apache::loncommon::sorted_inst_types($dom);	&Apache::loncommon::sorted_inst_types($dom);
$js = &lonbalance_targets_js($dom,$types,\%servers).	$js .= &lonbalance_targets_js($dom,$types,\%servers,
&new_spares_js().	$domconfig{'loadbalancing'}).
&common_domprefs_js().	&new_spares_js().
&Apache::loncommon::javascript_array_indexof();	&common_domprefs_js().
	&Apache::loncommon::javascript_array_indexof();
	}
	if (grep(/^requestcourses$/,@actions)) {
	my $javascript_validations;
	my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'});
	$js .= <<END;
	<script type="text/javascript">
	$javascript_validations
	</script>
	$coursebrowserjs
	END
}	}
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);	&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);
} else {	} else {
	# check if domconfig user exists for the domain.
	my $servadm = $r->dir_config('lonAdmEMail');
	my ($configuserok,$author_ok,$switchserver) =
	&config_check($dom,$confname,$servadm);
	unless ($configuserok eq 'ok') {
	&Apache::lonconfigsettings::print_header($r,$phase,$context);
	$r->print(&mt('The domain configuration user "[_1]" has yet to be created.',
	$confname).
	'<br />'
	);
	if ($switchserver) {
	$r->print(&mt('Ordinarily, that domain configuration user is created when the ./UPDATE script is run to install LON-CAPA for the first time.').
	'<br />'.
	&mt('However, that does not apply when new domains are added to a multi-domain server, and ./UPDATE has not been run recently.').
	'<br />'.
	&mt('The "[_1]" user can be created automatically when a Domain Coordinator visits the web-based "Set domain configuration" screen, in a session hosted on the primary library server.',$confname).
	'<br />'.
	&mt('To do that now, use the following link: [_1]',$switchserver)
	);
	} else {
	$r->print(&mt('To create that user from the command line run the ./UPDATE script found in the top level directory of the extracted LON-CAPA tarball.').
	'<br />'.
	&mt('Once that is done, you will be able to use the web-based "Set domain configuration" to configure the domain')
	);
	}
	$r->print(&Apache::loncommon::end_page());
	return OK;
	}
if (keys(%domconfig) == 0) {	if (keys(%domconfig) == 0) {
my $primarylibserv = &Apache::lonnet::domain($dom,'primary');	my $primarylibserv = &Apache::lonnet::domain($dom,'primary');
my @ids=&Apache::lonnet::current_machine_ids();	my @ids=&Apache::lonnet::current_machine_ids();
Line 439 sub handler {	Line 515 sub handler {
}	}

sub process_changes {	sub process_changes {
my ($r,$dom,$confname,$action,$roles,$values) = @_;	my ($r,$dom,$confname,$action,$roles,$values,$lastactref) = @_;
my %domconfig;	my %domconfig;
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
%domconfig = %{$values};	%domconfig = %{$values};
}	}
my $output;	my $output;
if ($action eq 'login') {	if ($action eq 'login') {
$output = &modify_login($r,$dom,$confname,%domconfig);	$output = &modify_login($r,$dom,$confname,$lastactref,%domconfig);
} elsif ($action eq 'rolecolors') {	} elsif ($action eq 'rolecolors') {
$output = &modify_rolecolors($r,$dom,$confname,$roles,	$output = &modify_rolecolors($r,$dom,$confname,$roles,
%domconfig);	$lastactref,%domconfig);
} elsif ($action eq 'quotas') {	} elsif ($action eq 'quotas') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
} elsif ($action eq 'autoenroll') {	} elsif ($action eq 'autoenroll') {
$output = &modify_autoenroll($dom,%domconfig);	$output = &modify_autoenroll($dom,$lastactref,%domconfig);
} elsif ($action eq 'autoupdate') {	} elsif ($action eq 'autoupdate') {
$output = &modify_autoupdate($dom,%domconfig);	$output = &modify_autoupdate($dom,%domconfig);
} elsif ($action eq 'autocreate') {	} elsif ($action eq 'autocreate') {
Line 465 sub process_changes {	Line 541 sub process_changes {
} 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') {
$output = &modify_contacts($dom,%domconfig);	$output = &modify_contacts($dom,$lastactref,%domconfig);
} elsif ($action eq 'defaults') {	} elsif ($action eq 'defaults') {
$output = &modify_defaults($dom,$r);	$output = &modify_defaults($dom,$lastactref,%domconfig);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
$output = &modify_scantron($r,$dom,$confname,%domconfig);	$output = &modify_scantron($r,$dom,$confname,$lastactref,%domconfig);
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
$output = &modify_coursecategories($dom,%domconfig);	$output = &modify_coursecategories($dom,%domconfig);
} elsif ($action eq 'serverstatuses') {	} elsif ($action eq 'serverstatuses') {
$output = &modify_serverstatuses($dom,%domconfig);	$output = &modify_serverstatuses($dom,%domconfig);
} elsif ($action eq 'requestcourses') {	} elsif ($action eq 'requestcourses') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
	} elsif ($action eq 'helpsettings') {
	$output = &modify_helpsettings($r,$dom,$confname,%domconfig);
	} elsif ($action eq 'coursedefaults') {
	$output = &modify_coursedefaults($dom,$lastactref,%domconfig);
} elsif ($action eq 'usersessions') {	} elsif ($action eq 'usersessions') {
$output = &modify_usersessions($dom,%domconfig);	$output = &modify_usersessions($dom,$lastactref,%domconfig);
} elsif ($action eq 'loadbalancing') {	} elsif ($action eq 'loadbalancing') {
$output = &modify_loadbalancing($dom,%domconfig);	$output = &modify_loadbalancing($dom,%domconfig);
}	}
Line 547 sub print_config_box {	Line 627 sub print_config_box {
$output .= &print_usersessions('top',$dom,$settings,\$rowtotal);	$output .= &print_usersessions('top',$dom,$settings,\$rowtotal);
} elsif ($action eq 'rolecolors') {	} elsif ($action eq 'rolecolors') {
$output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);	$output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);
	} elsif ($action eq 'coursedefaults') {
	$output .= &print_coursedefaults('top',$dom,$settings,\$rowtotal);
}	}
$output .= '	$output .= '
</table>	</table>
Line 597 sub print_config_box {	Line 679 sub print_config_box {
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">	<tr class="LC_info_row">
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.	<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
&print_usermodification('bottom',$dom,$settings,\$rowtotal);	&print_usermodification('bottom',$dom,$settings,\$rowtotal);
$rowtotal ++;	$rowtotal ++;
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
Line 613 sub print_config_box {	Line 695 sub print_config_box {
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">	<tr class="LC_info_row">
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
&print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);	&print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
$rowtotal ++;	$rowtotal ++;
} else {	} else {
$output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);	$output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
}	}
} elsif ($action eq 'requestcourses') {	} elsif ($action eq 'requestcourses') {
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);	$output .= &print_requestmail($dom,$action,$settings,\$rowtotal).
	&print_studentcode($settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
	<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.
	&print_textbookcourses($dom,$settings,\$rowtotal);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);	$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
} elsif ($action eq 'usersessions') {	} elsif ($action eq 'usersessions') {
Line 725 sub print_config_box {	Line 818 sub print_config_box {
} elsif ($action eq 'contacts') {	} elsif ($action eq 'contacts') {
$output .= &print_contacts($dom,$settings,\$rowtotal);	$output .= &print_contacts($dom,$settings,\$rowtotal);
} elsif ($action eq 'defaults') {	} elsif ($action eq 'defaults') {
$output .= &print_defaults($dom,\$rowtotal);	$output .= &print_defaults($dom,$settings,\$rowtotal);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);	$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);
} elsif ($action eq 'serverstatuses') {	} elsif ($action eq 'serverstatuses') {
Line 776 sub print_login {	Line 869 sub print_login {
'<td><select name="'.$lonhost.'_server">'.	'<td><select name="'.$lonhost.'_server">'.
'<option value=""'.$direct.'>'.$choices{'directlogin'}.	'<option value=""'.$direct.'>'.$choices{'directlogin'}.
'</option>';	'</option>';
foreach my $hostid (keys(%servers)) {	foreach my $hostid (sort(keys(%servers))) {
next if ($servers{$hostid} eq $servers{$lonhost});	next if ($servers{$hostid} eq $servers{$lonhost});
my $selected = '';	my $selected = '';
if (ref($disallowed{$lonhost}) eq 'HASH') {	if (ref($disallowed{$lonhost}) eq 'HASH') {
Line 819 sub print_login {	Line 912 sub print_login {
} elsif ($caller eq 'page') {	} elsif ($caller eq 'page') {
my %defaultchecked = (	my %defaultchecked = (
'coursecatalog' => 'on',	'coursecatalog' => 'on',
	'helpdesk' => 'on',
'adminmail' => 'off',	'adminmail' => 'off',
'newuser' => 'off',	'newuser' => 'off',
);	);
my @toggles = ('coursecatalog','adminmail','newuser');	my @toggles = ('coursecatalog','adminmail','helpdesk','newuser');
my (%checkedon,%checkedoff);	my (%checkedon,%checkedoff);
foreach my $item (@toggles) {	foreach my $item (@toggles) {
if ($defaultchecked{$item} eq 'on') {	if ($defaultchecked{$item} eq 'on') {
Line 1038 sub login_choices {	Line 1132 sub login_choices {
&Apache::lonlocal::texthash (	&Apache::lonlocal::texthash (
coursecatalog => 'Display Course/Community Catalog link?',	coursecatalog => 'Display Course/Community Catalog link?',
adminmail => "Display Administrator's E-mail Address?",	adminmail => "Display Administrator's E-mail Address?",
	helpdesk => 'Display "Contact Helpdesk" link',
disallowlogin => "Login page requests redirected",	disallowlogin => "Login page requests redirected",
hostid => "Server",	hostid => "Server",
server => "Redirect to:",	server => "Redirect to:",
Line 1075 sub print_rolecolors {	Line 1170 sub print_rolecolors {
my %designhash = &Apache::loncommon::get_domainconf($dom);	my %designhash = &Apache::loncommon::get_domainconf($dom);
my %defaultdesign = %Apache::loncommon::defaultdesign;	my %defaultdesign = %Apache::loncommon::defaultdesign;
my (%is_custom,%designs);	my (%is_custom,%designs);
my %defaults = (	my %defaults = &role_defaults($role,\@bgs,\@links,\@images);
img => $defaultdesign{$role.'.img'},
font => $defaultdesign{$role.'.font'},
fontmenu => $defaultdesign{$role.'.fontmenu'},
);
foreach my $item (@bgs) {
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item};
}
foreach my $item (@links) {
$defaults{'links'}{$item} = $defaultdesign{$role.'.'.$item};
}
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{$role}) eq 'HASH') {	if (ref($settings->{$role}) eq 'HASH') {
if ($settings->{$role}->{'img'} ne '') {	if ($settings->{$role}->{'img'} ne '') {
Line 1146 sub print_rolecolors {	Line 1231 sub print_rolecolors {
return $datatable;	return $datatable;
}	}

	sub role_defaults {
	my ($role,$bgs,$links,$images,$logintext) = @_;
	my %defaults;
	unless ((ref($bgs) eq 'ARRAY') && (ref($links) eq 'ARRAY') && (ref($images) eq 'ARRAY')) {
	return %defaults;
	}
	my %defaultdesign = %Apache::loncommon::defaultdesign;
	if ($role eq 'login') {
	%defaults = (
	font => $defaultdesign{$role.'.font'},
	);
	if (ref($logintext) eq 'ARRAY') {
	foreach my $item (@{$logintext}) {
	$defaults{'logintext'}{$item} = $defaultdesign{$role.'.'.$item};
	}
	}
	foreach my $item (@{$images}) {
	$defaults{'showlogo'}{$item} = 1;
	}
	} else {
	%defaults = (
	img => $defaultdesign{$role.'.img'},
	font => $defaultdesign{$role.'.font'},
	fontmenu => $defaultdesign{$role.'.fontmenu'},
	);
	}
	foreach my $item (@{$bgs}) {
	$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item};
	}
	foreach my $item (@{$links}) {
	$defaults{'links'}{$item} = $defaultdesign{$role.'.'.$item};
	}
	foreach my $item (@{$images}) {
	$defaults{$item} = $defaultdesign{$role.'.'.$item};
	}
	return %defaults;
	}

sub display_color_options {	sub display_color_options {
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,	my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,
$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_;	$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_;
Line 1158 sub display_color_options {	Line 1281 sub display_color_options {
} else {	} else {
$datatable .= '<td> </td>';	$datatable .= '<td> </td>';
}	}
my $fontlink = &color_pick($phase,$role,'font',$choices->{'font'},$designs->{'font'});	my $current_color = $designs->{'font'} ? $designs->{'font'} : $defaults->{'font'};

$datatable .= '<td><span class="LC_nobreak">'.	$datatable .= '<td><span class="LC_nobreak">'.
'<input type="text" size="10" name="'.$role.'_font"'.	'<input type="text" class="colorchooser" size="10" name="'.$role.'_font"'.
' value="'.$designs->{'font'}.'" /> '.$fontlink.	' value="'.$current_color.'" /> '.
' <span id="css_'.$role.'_font" style="background-color: '.	' </td></tr>';
$designs->{'font'}.';">   </span>'.
'</span></td></tr>';
unless ($role eq 'login') {	unless ($role eq 'login') {
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td>'.$choices->{'fontmenu'}.'</td>';	'<td>'.$choices->{'fontmenu'}.'</td>';
Line 1173 sub display_color_options {	Line 1295 sub display_color_options {
} else {	} else {
$datatable .= '<td> </td>';	$datatable .= '<td> </td>';
}	}
$fontlink = &color_pick($phase,$role,'fontmenu',$choices->{'fontmenu'},$designs->{'fontmenu'});	$current_color = $designs->{'fontmenu'} ?
	$designs->{'fontmenu'} : $defaults->{'fontmenu'};
$datatable .= '<td><span class="LC_nobreak">'.	$datatable .= '<td><span class="LC_nobreak">'.
'<input type="text" size="10" name="'.$role.'_fontmenu"'.	'<input class="colorchooser" type="text" size="10" name="'
' value="'.$designs->{'fontmenu'}.'" /> '.$fontlink.	.$role.'_fontmenu"'.
' <span id="css_'.$role.'_fontmenu" style="background-color: '.	' value="'.$current_color.'" /> '.
$designs->{'fontmenu'}.';">   </span>'.	' </td></tr>';
'</span></td></tr>';
}	}
my $switchserver = &check_switchserver($dom,$confname);	my $switchserver = &check_switchserver($dom,$confname);
foreach my $img (@{$images}) {	foreach my $img (@{$images}) {
Line 1194 sub display_color_options {	Line 1316 sub display_color_options {
&login_header_options($img,$role,$defaults,$is_custom,$choices);	&login_header_options($img,$role,$defaults,$is_custom,$choices);
$logincolors =	$logincolors =
&login_text_colors($img,$role,$logintext,$phase,$choices,	&login_text_colors($img,$role,$logintext,$phase,$choices,
$designs);	$designs,$defaults);
} elsif ($img ne 'domlogo') {	} elsif ($img ne 'domlogo') {
$datatable.= &logo_display_options($img,$defaults,$designs);	$datatable.= &logo_display_options($img,$defaults,$designs);
}	}
Line 1273 sub display_color_options {	Line 1395 sub display_color_options {
$datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import,	$datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import,
$showfile,$fullsize,$role,$img,$imgfile,$logincolors);	$showfile,$fullsize,$role,$img,$imgfile,$logincolors);
} else {	} else {
$datatable .= '<td colspan="2" class="LC_right_item"><br />'.	$datatable .= '<td> </td><td class="LC_left_item">'.
&mt('Upload:');	&mt('Upload:').'<br />';
}	}
} else {	} else {
$datatable .= '<td colspan="2" class="LC_right_item"><br />'.	$datatable .= '<td> </td><td class="LC_left_item">'.
&mt('Upload:');	&mt('Upload:').'<br />';
}	}
if ($switchserver) {	if ($switchserver) {
$datatable .= &mt('Upload to library server: [_1]',$switchserver);	$datatable .= &mt('Upload to library server: [_1]',$switchserver);
Line 1306 sub display_color_options {	Line 1428 sub display_color_options {
}	}
$datatable .= '<td class="LC_right_item">'.	$datatable .= '<td class="LC_right_item">'.
'<table border="0"><tr>';	'<table border="0"><tr>';

foreach my $item (@{$bgs}) {	foreach my $item (@{$bgs}) {
my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'bgs'}{$item});	$datatable .= '<td align="center">'.$choices->{$item};
$datatable .= '<td align="center">'.$link;	my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item};
if ($designs->{'bgs'}{$item}) {	if ($designs->{'bgs'}{$item}) {
$datatable .= ' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'bgs'}{$item}.';">   </span>';	$datatable .= ' ';
}	}
$datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'bgs'}{$item}.	$datatable .= '<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>';
}	}
$datatable .= '</tr></table></td></tr>';	$datatable .= '</tr></table></td></tr>';
Line 1334 sub display_color_options {	Line 1457 sub display_color_options {
$datatable .= '<td class="LC_right_item">'.	$datatable .= '<td class="LC_right_item">'.
'<table border="0"><tr>';	'<table border="0"><tr>';
foreach my $item (@{$links}) {	foreach my $item (@{$links}) {
$datatable .= '<td align="center">'."\n".	my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item};
&color_pick($phase,$role,$item,$choices->{$item},	$datatable .= '<td align="center">'.$choices->{$item}."\n";
$designs->{'links'}{$item});
if ($designs->{'links'}{$item}) {	if ($designs->{'links'}{$item}) {
$datatable.=' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'links'}{$item}.';">   </span>';	$datatable.=' ';
}	}
$datatable .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.$designs->{'links'}{$item}.	$datatable .= '<br /><input type="text" size="8" class="colorchooser" name="'.$role.'_'.$item.'" value="'.$color.
'" /></td>';	'" /></td>';
}	}
$$rowtotal += $itemcount;	$$rowtotal += $itemcount;
Line 1394 sub login_header_options {	Line 1516 sub login_header_options {
}	}

sub login_text_colors {	sub login_text_colors {
my ($img,$role,$logintext,$phase,$choices,$designs) = @_;	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}) {
my $link = &color_pick($phase,$role,$item,$choices->{$item},$designs->{'logintext'}{$item});	$color_menu .= '<td align="center">'.$choices->{$item};
$color_menu .= '<td align="center">'.$link;	my $color = $designs->{'logintext'}{$item} ? $designs->{'logintext'}{$item} : $defaults->{'logintext'}{$item};
if ($designs->{'logintext'}{$item}) {	$color_menu .= '<br /><input type="text" class="colorchooser" size="8" name="'.$role.'_'.$item.'" value="'.$color.
$color_menu .= ' <span id="css_'.$role.'_'.$item.'" style="background-color: '.$designs->{'logintext'}{$item}.';">   </span>';	'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>';
}
$color_menu .= '<br /><input type="text" size="8" name="'.$role.'_'.$item.'" value="'.
$designs->{'logintext'}{$item}.'" onblur = "javascript:colchg_span('."'css_".$role.'_'.$item."'".',this);" /></td>'.
'<td> </td>';
}	}
$color_menu .= '</tr></table><br />';	$color_menu .= '</tr></table><br />';
return $color_menu;	return $color_menu;
Line 1436 sub image_changes {	Line 1554 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="bottom">'.$logincolors.&mt('Upload:').'<br />';	$output .= '<td valign="middle">'.$logincolors.&mt('Upload:').'<br />';
}	}
}	}
return $output;	return $output;
}	}

sub color_pick {
my ($phase,$role,$item,$desc,$curcol) = @_;
my $link = '<a href="javascript:pjump('."'color_custom','".$desc.
"','".$curcol."','".$role.'_'.$item."','parmform.pres','psub'".
');">'.$desc.'</a>';
return $link;
}

sub print_quotas {	sub print_quotas {
my ($dom,$settings,$rowtotal,$action) = @_;	my ($dom,$settings,$rowtotal,$action) = @_;
my $context;	my $context;
Line 1458 sub print_quotas {	Line 1568 sub print_quotas {
} else {	} else {
$context = $action;	$context = $action;
}	}
my ($datatable,$defaultquota,@usertools,@options,%validations);	my ($datatable,$defaultquota,$authorquota,@usertools,@options,%validations);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
my $typecount = 0;	my $typecount = 0;
my ($css_class,%titles);	my ($css_class,%titles);
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community');	@usertools = ('official','unofficial','community','textbook');
@options =('norequest','approval','validate','autolimit');	@options =('norequest','approval','validate','autolimit');
%validations = &Apache::lonnet::auto_courserequest_checks($dom);	%validations = &Apache::lonnet::auto_courserequest_checks($dom);
%titles = &courserequest_titles();	%titles = &courserequest_titles();
Line 1477 sub print_quotas {	Line 1587 sub print_quotas {
}	}
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
foreach my $type (@{$types}) {	foreach my $type (@{$types}) {
my $currdefquota;	my ($currdefquota,$currauthorquota);
unless (($context eq 'requestcourses') \|\|	unless (($context eq 'requestcourses') \|\|
($context eq 'requestauthor')) {	($context eq 'requestauthor')) {
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{defaultquota}) eq 'HASH') {	if (ref($settings->{defaultquota}) eq 'HASH') {
$currdefquota = $settings->{defaultquota}->{$type};	$currdefquota = $settings->{defaultquota}->{$type};
} else {	} else {
$currdefquota = $settings->{$type};	$currdefquota = $settings->{$type};
}	}
	if (ref($settings->{authorquota}) eq 'HASH') {
	$currauthorquota = $settings->{authorquota}->{$type};
	}
}	}
}	}
if (defined($usertypes->{$type})) {	if (defined($usertypes->{$type})) {
Line 1599 sub print_quotas {	Line 1712 sub print_quotas {
unless (($context eq 'requestcourses') \|\|	unless (($context eq 'requestcourses') \|\|
($context eq 'requestauthor')) {	($context eq 'requestauthor')) {
$datatable .=	$datatable .=
'<td class="LC_right_item"><span class="LC_nobreak">'.	'<td class="LC_right_item">'.
	'<span class="LC_nobreak">'.&mt('Portfolio').': '.
'<input type="text" name="quota_'.$type.	'<input type="text" name="quota_'.$type.
'" value="'.$currdefquota.	'" value="'.$currdefquota.
'" size="5" /> Mb</span></td>';	'" size="5" /></span>'.(' ' x 2).
	'<span class="LC_nobreak">'.&mt('Authoring').': '.
	'<input type="text" name="authorquota_'.$type.
	'" value="'.$currauthorquota.
	'" size="5" /></span></td>';
}	}
$datatable .= '</tr>';	$datatable .= '</tr>';
}	}
Line 1610 sub print_quotas {	Line 1728 sub print_quotas {
}	}
unless (($context eq 'requestcourses') \|\| ($context eq 'requestauthor')) {	unless (($context eq 'requestcourses') \|\| ($context eq 'requestauthor')) {
$defaultquota = '20';	$defaultquota = '20';
	$authorquota = '500';
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'defaultquota'}) eq 'HASH') {	if (ref($settings->{'defaultquota'}) eq 'HASH') {
$defaultquota = $settings->{'defaultquota'}->{'default'};	$defaultquota = $settings->{'defaultquota'}->{'default'};
} elsif (defined($settings->{'default'})) {	} elsif (defined($settings->{'default'})) {
$defaultquota = $settings->{'default'};	$defaultquota = $settings->{'default'};
}	}
	if (ref($settings->{'authorquota'}) eq 'HASH') {
	$authorquota = $settings->{'authorquota'}->{'default'};
	}
}	}
}	}
$typecount ++;	$typecount ++;
Line 1681 sub print_quotas {	Line 1803 sub print_quotas {
} elsif ($context eq 'requestauthor') {	} elsif ($context eq 'requestauthor') {
my $curroption;	my $curroption;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'requestauthor'}) eq 'HASH') {	$curroption = $settings->{'default'};
$curroption = $settings->{'requestauthor'};
}
}	}
if (!$curroption) {	if (!$curroption) {
$curroption = 'norequest';	$curroption = 'norequest';
Line 1728 sub print_quotas {	Line 1848 sub print_quotas {
}	}
$datatable .= '</td>';	$datatable .= '</td>';
unless (($context eq 'requestcourses') \|\| ($context eq 'requestauthor')) {	unless (($context eq 'requestcourses') \|\| ($context eq 'requestauthor')) {
$datatable .= '<td class="LC_right_item"><span class="LC_nobreak">'.	$datatable .= '<td class="LC_right_item">'.
	'<span class="LC_nobreak">'.&mt('Portfolio').': '.
'<input type="text" name="defaultquota" value="'.	'<input type="text" name="defaultquota" value="'.
$defaultquota.'" size="5" /> Mb</span></td>';	$defaultquota.'" size="5" /></span>'.(' ' x2).
	'<span class="LC_nobreak">'.&mt('Authoring').': '.
	'<input type="text" name="authorquota" value="'.
	$authorquota.'" size="5" /></span></td>';
}	}
$datatable .= '</tr>';	$datatable .= '</tr>';
$typecount ++;	$typecount ++;
$css_class = $typecount%2?' class="LC_odd_row"':'';	$css_class = $typecount%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td>'.&mt('LON-CAPA Advanced Users').' ';	'<td>'.&mt('LON-CAPA Advanced Users').'<br />';
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
$datatable .= &mt('(overrides affiliation, if set)').	$datatable .= &mt('(overrides affiliation, if set)').
'</td>'.	'</td>'.
Line 1828 sub print_quotas {	Line 1952 sub print_quotas {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
}	}
$datatable .= '<span class="LC_nobreak"><label>'.	$datatable .= '<span class="LC_nobreak"><label>'.
'<input type="radio" name="crsreq_'.$item.	'<input type="radio" name="authorreq__LC_adv"'.
'__LC_adv" value="'.$val.'"'.$checked.' />'.	' value="'.$val.'"'.$checked.' />'.
$titles{$option}.'</label></span>  ';	$titles{$option}.'</label></span>  ';
}	}
} else {	} else {
Line 1863 sub print_quotas {	Line 1987 sub print_quotas {

sub print_requestmail {	sub print_requestmail {
my ($dom,$action,$settings,$rowtotal) = @_;	my ($dom,$action,$settings,$rowtotal) = @_;
my ($now,$datatable,%dompersonnel,@domcoord,@currapproval,$rows);	my ($now,$datatable,%currapp);
$now = time;	$now = time;
$rows = 0;
%dompersonnel = &Apache::lonnet::get_domain_roles($dom,['dc'],$now,$now);
foreach my $server (keys(%dompersonnel)) {
foreach my $user (sort(keys(%{$dompersonnel{$server}}))) {
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user);
if (!grep(/^$uname:$udom$/,@domcoord)) {
push(@domcoord,$uname.':'.$udom);
}
}
}
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'notify'}) eq 'HASH') {	if (ref($settings->{'notify'}) eq 'HASH') {
if ($settings->{'notify'}{'approval'} ne '') {	if ($settings->{'notify'}{'approval'} ne '') {
@currapproval = split(',',$settings->{'notify'}{'approval'});	map {$currapp{$_}=1;} split(/,/,$settings->{'notify'}{'approval'});
}	}
}	}
}	}
if (@currapproval) {	my $numinrow = 2;
foreach my $dc (@currapproval) {
unless (grep(/^\Q$dc\E$/,@domcoord)) {
push(@domcoord,$dc);
}
}
}
@domcoord = sort(@domcoord);
my $numinrow = 4;
my $numdc = @domcoord;
my $css_class = 'class="LC_odd_row"';	my $css_class = 'class="LC_odd_row"';
my $text;	my $text;
if ($action eq 'requestcourses') {	if ($action eq 'requestcourses') {
Line 1902 sub print_requestmail {	Line 2007 sub print_requestmail {
$datatable = '<tr '.$css_class.'>'.	$datatable = '<tr '.$css_class.'>'.
' <td>'.$text.'</td>'.	' <td>'.$text.'</td>'.
' <td class="LC_left_item">';	' <td class="LC_left_item">';
if (@domcoord > 0) {	my ($numdc,$table,$rows) = &active_dc_picker($dom,$numinrow,'checkbox',
$datatable .= '<table>';	'reqapprovalnotify',%currapp);
for (my $i=0; $i<$numdc; $i++) {	if ($numdc > 0) {
my $rem = $i%($numinrow);	$datatable .= $table;
if ($rem == 0) {	} else {
if ($i > 0) {	$datatable .= &mt('There are no active Domain Coordinators');
$datatable .= '</tr>';	}
}	$datatable .='</td></tr>';
$datatable .= '<tr>';	$$rowtotal += $rows;
$rows ++;	return $datatable;
	}

	sub print_studentcode {
	my ($settings,$rowtotal) = @_;
	my $rownum = 0;
	my ($output,%current);
	my @crstypes = ('official','unofficial','community','textbook');
	if (ref($settings->{'uniquecode'}) eq 'HASH') {
	foreach my $type (@crstypes) {
	$current{$type} = $settings->{'uniquecode'}{$type};
	}
	}
	$output .= '<tr>'.
	'<td class="LC_left_item">'.&mt('Generate unique six character code as course identifier?').'</td>'.
	'<td class="LC_left_item">';
	foreach my $type (@crstypes) {
	my $check = ' ';
	if ($current{$type}) {
	$check = ' checked="checked" ';
	}
	$output .= '<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="uniquecode" value="'.$type.'"'.$check.'/>'.
	&mt($type).'</label></span>'.(' 'x2).' ';
	}
	$output .= '</td></tr>';
	$$rowtotal ++;
	return $output;
	}

	sub print_textbookcourses {
	my ($dom,$settings,$rowtotal) = @_;
	my $rownum = 0;
	my $css_class;
	my $itemcount = 1;
	my $maxnum = 0;
	my $bookshash;
	if (ref($settings) eq 'HASH') {
	$bookshash = $settings->{'textbooks'};
	}
	my %ordered;
	if (ref($bookshash) eq 'HASH') {
	foreach my $item (keys(%{$bookshash})) {
	if (ref($bookshash->{$item}) eq 'HASH') {
	my $num = $bookshash->{$item}{'order'};
	$ordered{$num} = $item;
}	}
my $check = ' ';	}
if (grep(/^\Q$domcoord[$i]\E$/,@currapproval)) {	}
$check = ' checked="checked" ';	my $confname = $dom.'-domainconfig';
	my $switchserver = &check_switchserver($dom,$confname);
	my $maxnum = scalar(keys(%ordered));
	my $datatable = &textbookcourses_javascript(\%ordered);
	if (keys(%ordered)) {
	my @items = sort { $a <=> $b } keys(%ordered);
	for (my $i=0; $i<@items; $i++) {
	$css_class = $itemcount%2?' class="LC_odd_row"':'';
	my $key = $ordered{$items[$i]};
	my %coursehash=&Apache::lonnet::coursedescription($key);
	my $coursetitle = $coursehash{'description'};
	my ($subject,$title,$author,$image,$imgsrc,$cdom,$cnum);
	if (ref($bookshash->{$key}) eq 'HASH') {
	$subject = $bookshash->{$key}->{'subject'};
	$title = $bookshash->{$key}->{'title'};
	$author = $bookshash->{$key}->{'author'};
	$image = $bookshash->{$key}->{'image'};
	if ($image ne '') {
	my ($path,$imagefile) = ($image =~ m{^(.+)/([^/]+)$});
	my $imagethumb = "$path/tn-".$imagefile;
	$imgsrc = '<img src="'.$imagethumb.'" alt="'.&mt('Textbook image').'" />';
	}
	}
	my $chgstr = ' onchange="javascript:reorderBooks(this.form,'."'$key'".');"';
	$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'
	.'<select name="'.$key.'"'.$chgstr.'>';
	for (my $k=0; $k<=$maxnum; $k++) {
	my $vpos = $k+1;
	my $selstr;
	if ($k == $i) {
	$selstr = ' selected="selected" ';
	}
	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
	}
	$datatable .= '</select>'.(' 'x2).
	'<label><input type="checkbox" name="book_del" value="'.$key.'" />'.
	&mt('Delete?').'</label></span></td>'.
	'<td colspan="2">'.
	'<span class="LC_nobreak">'.&mt('Subject:').'<input type="text" size="15" name="book_subject_'.$i.'" value="'.$subject.'" /></span> '.
	(' 'x2).
	'<span class="LC_nobreak">'.&mt('Title:').'<input type="text" size="30" name="book_title_'.$i.'" value="'.$title.'" /></span> '.
	(' 'x2).
	'<span class="LC_nobreak">'.&mt('Author(s):').'<input type="text" size="25" name="book_author_'.$i.'" value="'.$author.'" /></span> '.
	(' 'x2).
	'<span class="LC_nobreak">'.&mt('Thumbnail:');
	if ($image) {
	$datatable .= '<span class="LC_nobreak">'.
	$imgsrc.
	'<label><input type="checkbox" name="book_image_del"'.
	' value="'.$key.'" />'.&mt('Delete?').'</label></span> '.
	'<span class="LC_nobreak"> '.&mt('Replace:').' ';
}	}
my ($uname,$udom) = split(':',$domcoord[$i]);	if ($switchserver) {
my $fullname = &Apache::loncommon::plainname($uname,$udom);	$datatable .= &mt('Upload to library server: [_1]',$switchserver);
if ($i == $numdc-1) {
my $colsleft = $numinrow-$rem;
if ($colsleft > 1) {
$datatable .= '<td colspan="'.$colsleft.'" class="LC_left_item">';
} else {
$datatable .= '<td class="LC_left_item">';
}
} else {	} else {
$datatable .= '<td class="LC_left_item">';	$datatable .= '<input type="file" name="book_image_'.$i.'" value="" />';
}	}
$datatable .= '<span class="LC_nobreak"><label>'.	$datatable .= '<input type="hidden" name="book_id_'.$i.'" value="'.$key.'" /></span> '.
'<input type="checkbox" name="reqapprovalnotify" '.	'<span class="LC_nobreak">'.&mt('LON-CAPA course:').' '.
'value="'.$domcoord[$i].'"'.$check.'/>'.	$coursetitle.'</span></td></tr>'."\n";
$fullname.'</label></span></td>';	$itemcount ++;
}	}
$datatable .= '</tr></table>';
} else {
$datatable .= &mt('There are no active Domain Coordinators');
$rows ++;
}	}
$datatable .='</td></tr>';	$css_class = $itemcount%2?' class="LC_odd_row"':'';
$$rowtotal += $rows;	my $chgstr = ' onchange="javascript:reorderBooks(this.form,'."'addbook_pos'".');"';
	$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".
	'<input type="hidden" name="book_maxnum" value="'.$maxnum.'" />'."\n".
	'<select name="addbook_pos"'.$chgstr.'>';
	for (my $k=0; $k<$maxnum+1; $k++) {
	my $vpos = $k+1;
	my $selstr;
	if ($k == $maxnum) {
	$selstr = ' selected="selected" ';
	}
	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
	}
	$datatable .= '</select> '."\n".
	'<input type="checkbox" name="addbook" value="1" />'.&mt('Add').'</td>'."\n".
	'<td colspan="2">'.
	'<span class="LC_nobreak">'.&mt('Subject:').'<input type="text" size="15" name="addbook_subject" value="" /></span> '."\n".
	(' 'x2).
	'<span class="LC_nobreak">'.&mt('Title:').'<input type="text" size="30" name="addbook_title" value="" /></span> '."\n".
	(' 'x2).
	'<span class="LC_nobreak">'.&mt('Author(s):').'<input type="text" size="25" name="addbook_author" value="" /></span> '."\n".
	(' 'x2).
	'<span class="LC_nobreak">'.&mt('Image:').' ';
	if ($switchserver) {
	$datatable .= &mt('Upload to library server: [_1]',$switchserver);
	} else {
	$datatable .= '<input type="file" name="addbook_image" value="" />';
	}
	$datatable .= '</span>'."\n".
	'<span class="LC_nobreak">'.&mt('LON-CAPA course:').' '.
	&Apache::loncommon::select_dom_form($env{'request.role.domain'},'addbook_cdom').
	'<input type="text" size="25" name="addbook_cnum" value="" />'.
	&Apache::loncommon::selectcourse_link
	('display','addbook_cnum','addbook_cdom',undef,undef,undef,'Course');
	'</span></td>'."\n".
	'</tr>'."\n";
	$itemcount ++;
return $datatable;	return $datatable;
}	}

	sub textbookcourses_javascript {
	my ($textbooks) = @_;
	return unless(ref($textbooks) eq 'HASH');
	my $num = scalar(keys(%{$textbooks}));
	my @jsarray;
	foreach my $item (sort {$a <=> $b } (keys(%{$textbooks}))) {
	push(@jsarray,$textbooks->{$item});
	}
	my $jstext = ' var textbooks = Array('."'".join("','",@jsarray)."'".');'."\n";
	return <<"ENDSCRIPT";
	<script type="text/javascript">
	// <![CDATA[
	function reorderBooks(form,item) {
	var changedVal;
	$jstext
	var newpos = 'addbook_pos';
	var current = new Array;
	var maxh = 1 + $num;
	var current = new Array;
	var newitemVal = form.elements[newpos].options[form.elements[newpos].selectedIndex].value;
	if (item == newpos) {
	changedVal = newitemVal;
	} else {
	changedVal = form.elements[item].options[form.elements[item].selectedIndex].value;
	current[newitemVal] = newpos;
	}
	for (var i=0; i<textbooks.length; i++) {
	var elementName = textbooks[i];
	if (elementName != item) {
	if (form.elements[elementName]) {
	var currVal = form.elements[elementName].options[form.elements[elementName].selectedIndex].value;
	current[currVal] = elementName;
	}
	}
	}
	var oldVal;
	for (var j=0; j<maxh; j++) {
	if (current[j] == undefined) {
	oldVal = j;
	}
	}
	if (oldVal < changedVal) {
	for (var k=oldVal+1; k<=changedVal ; k++) {
	var elementName = current[k];
	form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex - 1;
	}
	} else {
	for (var k=changedVal; k<oldVal; k++) {
	var elementName = current[k];
	form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex + 1;
	}
	}
	return;
	}

	// ]]>
	</script>

	ENDSCRIPT
	}

sub print_autoenroll {	sub print_autoenroll {
my ($dom,$settings,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my $autorun = &Apache::lonnet::auto_run(undef,$dom),	my $autorun = &Apache::lonnet::auto_run(undef,$dom),
Line 2092 sub print_autoupdate {	Line 2377 sub print_autoupdate {

sub print_autocreate {	sub print_autocreate {
my ($dom,$settings,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my (%createon,%createoff);	my (%createon,%createoff,%currhash);
my $curr_dc;
my @types = ('xml','req');	my @types = ('xml','req');
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
foreach my $item (@types) {	foreach my $item (@types) {
Line 2106 sub print_autocreate {	Line 2390 sub print_autocreate {
}	}
}	}
}	}
$curr_dc = $settings->{'xmldc'};	if ($settings->{'xmldc'} ne '') {
	$currhash{$settings->{'xmldc'}} = 1;
	}
} else {	} else {
foreach my $item (@types) {	foreach my $item (@types) {
$createoff{$item} = ' checked="checked" ';	$createoff{$item} = ' checked="checked" ';
Line 2114 sub print_autocreate {	Line 2400 sub print_autocreate {
}	}
}	}
$$rowtotal += 2;	$$rowtotal += 2;
	my $numinrow = 2;
my $datatable='<tr class="LC_odd_row">'.	my $datatable='<tr class="LC_odd_row">'.
'<td>'.&mt('Create pending official courses from XML files').'</td>'.	'<td>'.&mt('Create pending official courses from XML files').'</td>'.
'<td class="LC_right_item"><span class="LC_nobreak"><label>'.	'<td class="LC_right_item"><span class="LC_nobreak"><label>'.
Line 2128 sub print_autocreate {	Line 2415 sub print_autocreate {
$createon{'req'}.' value="1" />'.&mt('Yes').'</label> '.	$createon{'req'}.' value="1" />'.&mt('Yes').'</label> '.
'<label><input type="radio" name="autocreate_req"'.	'<label><input type="radio" name="autocreate_req"'.
$createoff{'req'}.' value="0" />'.&mt('No').'</label></span>';	$createoff{'req'}.' value="0" />'.&mt('No').'</label></span>';
my ($numdc,$dctable) = &active_dc_picker($dom,$curr_dc);	my ($numdc,$dctable,$rows) = &active_dc_picker($dom,$numinrow,'radio',
	'autocreate_xmldc',%currhash);
if ($numdc > 1) {	if ($numdc > 1) {
$datatable .= '</td></tr><tr class="LC_odd_row"><td>'.	$datatable .= '</td></tr><tr class="LC_odd_row"><td>'.
&mt('Course creation processed as: (choose Dom. Coord.)').	&mt('Course creation processed as: (choose Dom. Coord.)').
'</td><td class="LC_left_item">'.$dctable.'</td></tr>';	'</td><td class="LC_left_item">'.$dctable.'</td></tr>';
$$rowtotal ++ ;
} else {	} else {
$datatable .= $dctable.'</td></tr>';	$datatable .= $dctable.'</td></tr>';
}	}
	$$rowtotal += $rows;
return $datatable;	return $datatable;
}	}

Line 2259 sub print_contacts {	Line 2547 sub print_contacts {
my @contacts = ('adminemail','supportemail');	my @contacts = ('adminemail','supportemail');
my (%checked,%to,%otheremails,%bccemails);	my (%checked,%to,%otheremails,%bccemails);
my @mailings = ('errormail','packagesmail','lonstatusmail','helpdeskmail',	my @mailings = ('errormail','packagesmail','lonstatusmail','helpdeskmail',
'requestsmail');	'requestsmail','updatesmail','idconflictsmail');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$otheremails{$type} = '';	$otheremails{$type} = '';
}	}
Line 2295 sub print_contacts {	Line 2583 sub print_contacts {
$checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';	$checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';
$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';	$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';
$checked{'requestsmail'}{'adminemail'} = ' checked="checked" ';	$checked{'requestsmail'}{'adminemail'} = ' checked="checked" ';
	$checked{'updatesmail'}{'adminemail'} = ' checked="checked" ';
	$checked{'idconflictsmail'}{'adminemail'} = ' checked="checked" ';
}	}
my ($titles,$short_titles) = &contact_titles();	my ($titles,$short_titles) = &contact_titles();
my $rownum = 0;	my $rownum = 0;
my $css_class;	my $css_class;
foreach my $item (@contacts) {	foreach my $item (@contacts) {
$rownum ++;
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.$titles->{$item}.	'<td><span class="LC_nobreak">'.$titles->{$item}.
'</span></td><td class="LC_right_item">'.	'</span></td><td class="LC_right_item">'.
'<input type="text" name="'.$item.'" value="'.	'<input type="text" name="'.$item.'" value="'.
$to{$item}.'" /></td></tr>';	$to{$item}.'" /></td></tr>';
	$rownum ++;
}	}
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$rownum ++;
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.	'<td><span class="LC_nobreak">'.
Line 2332 sub print_contacts {	Line 2621 sub print_contacts {
'value="'.$bccemails{$type}.'" />';	'value="'.$bccemails{$type}.'" />';
}	}
$datatable .= '</td></tr>'."\n";	$datatable .= '</td></tr>'."\n";
	$rownum ++;
}	}
	my %choices;
	$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500));
	$choices{'reportupdates'} = &mt('E-mail record of completed LON-CAPA updates to [_1]',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500));
	my @toggles = ('reporterrors','reportupdates');
	my %defaultchecked = ('reporterrors' => 'on',
	'reportupdates' => 'on');
	(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
	\%choices,$rownum);
	$datatable .= $reports;
$$rowtotal += $rownum;	$$rowtotal += $rownum;
return $datatable;	return $datatable;
}	}
Line 2354 sub print_helpsettings {	Line 2657 sub print_helpsettings {
}	}

sub radiobutton_prefs {	sub radiobutton_prefs {
my ($settings,$toggles,$defaultchecked,$choices,$itemcount) = @_;	my ($settings,$toggles,$defaultchecked,$choices,$itemcount,$onclick,
	$additional) = @_;
return unless ((ref($toggles) eq 'ARRAY') && (ref($defaultchecked) eq 'HASH') &&	return unless ((ref($toggles) eq 'ARRAY') && (ref($defaultchecked) eq 'HASH') &&
(ref($choices) eq 'HASH'));	(ref($choices) eq 'HASH'));

Line 2380 sub radiobutton_prefs {	Line 2684 sub radiobutton_prefs {
}	}
}	}
}	}
	if ($onclick) {
	$onclick = ' onclick="'.$onclick.'"';
	}
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><span class="LC_nobreak">'.$choices->{$item}.	'<tr'.$css_class.'><td valign="top">'.
	'<span class="LC_nobreak">'.$choices->{$item}.
'</span></td>'.	'</span></td>'.
'<td class="LC_right_item"><span class="LC_nobreak">'.	'<td class="LC_right_item"><span class="LC_nobreak">'.
'<label><input type="radio" name="'.	'<label><input type="radio" name="'.
$item.'" '.$checkedon{$item}.' value="1" />'.&mt('Yes').	$item.'" '.$checkedon{$item}.' value="1"'.$onclick.' />'.&mt('Yes').
'</label> <label><input type="radio" name="'.$item.'" '.	'</label> <label><input type="radio" name="'.$item.'" '.
$checkedoff{$item}.' value="0" />'.&mt('No').'</label>'.	$checkedoff{$item}.' value="0"'.$onclick.' />'.&mt('No').'</label>'.
'</span></td>'.	'</span>'.$additional.
	'</td>'.
'</tr>';	'</tr>';
$itemcount ++;	$itemcount ++;
}	}
Line 2399 sub radiobutton_prefs {	Line 2708 sub radiobutton_prefs {

sub print_coursedefaults {	sub print_coursedefaults {
my ($position,$dom,$settings,$rowtotal) = @_;	my ($position,$dom,$settings,$rowtotal) = @_;
my ($css_class,$datatable);	my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);
my $itemcount = 1;	my $itemcount = 1;
	my %choices = &Apache::lonlocal::texthash (
	canuse_pdfforms => 'Course/Community users can create/upload PDF forms',
	uploadquota => 'Default quota for files uploaded directly to course/community using Course Editor (MB)',
	anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',
	coursecredits => 'Credits can be specified for courses',
	);
	my %staticdefaults = (
	anonsurvey_threshold => 10,
	uploadquota => 500,
	);
if ($position eq 'top') {	if ($position eq 'top') {
my (%checkedon,%checkedoff,%choices,%defaultchecked,@toggles);
%choices =
&Apache::lonlocal::texthash (
canuse_pdfforms => 'Course/Community users can create/upload PDF forms',
);
%defaultchecked = ('canuse_pdfforms' => 'off');	%defaultchecked = ('canuse_pdfforms' => 'off');
@toggles = ('canuse_pdfforms',);	@toggles = ('canuse_pdfforms');
($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,	($datatable,$itemcount) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
\%choices,$itemcount);	\%choices,$itemcount);
$$rowtotal += $itemcount;
} else {	} else {
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
my %choices =	my ($currdefresponder,$def_official_credits,$def_unofficial_credits,$def_textbook_credits,
&Apache::lonlocal::texthash (	%curruploadquota);
anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',	my $currusecredits = 0;
);	my @types = ('official','unofficial','community','textbook');
my $currdefresponder;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
$currdefresponder = $settings->{'anonsurvey_threshold'};	$currdefresponder = $settings->{'anonsurvey_threshold'};
	if (ref($settings->{'uploadquota'}) eq 'HASH') {
	foreach my $type (keys(%{$settings->{'uploadquota'}})) {
	$curruploadquota{$type} = $settings->{'uploadquota'}{$type};
	}
	}
	if (ref($settings->{'coursecredits'}) eq 'HASH') {
	$def_official_credits = $settings->{'coursecredits'}->{'official'};
	$def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'};
	$def_textbook_credits = $settings->{'coursecredits'}->{'textbook'};
	if (($def_official_credits ne '') \|\| ($def_unofficial_credits ne '') \|\|
	($def_textbook_credits ne '')) {
	$currusecredits = 1;
	}
	}
}	}
if (!$currdefresponder) {	if (!$currdefresponder) {
$currdefresponder = 10;	$currdefresponder = $staticdefaults{'anonsurvey_threshold'};
} elsif ($currdefresponder < 1) {	} elsif ($currdefresponder < 1) {
$currdefresponder = 1;	$currdefresponder = 1;
}	}
	foreach my $type (@types) {
	if ($curruploadquota{$type} eq '') {
	$curruploadquota{$type} = $staticdefaults{'uploadquota'};
	}
	}
$datatable .=	$datatable .=
'<tr'.$css_class.'><td><span class="LC_nobreak">'.$choices{'anonsurvey_threshold'}.	'<tr'.$css_class.'><td><span class="LC_nobreak">'.
	$choices{'anonsurvey_threshold'}.
'</span></td>'.	'</span></td>'.
'<td class="LC_right_item"><span class="LC_nobreak">'.	'<td class="LC_right_item"><span class="LC_nobreak">'.
'<input type="text" name="anonsurvey_threshold"'.	'<input type="text" name="anonsurvey_threshold"'.
' value="'.$currdefresponder.'" size="5" /></span>'.	' value="'.$currdefresponder.'" size="5" /></span>'.
'</td></tr>';	'</td></tr>'."\n".
	'<tr><td><span class="LC_nobreak">'.
	$choices{'uploadquota'}.
	'</span></td>'.
	'<td align="right" class="LC_right_item">'.
	'<table><tr>';
	foreach my $type (@types) {
	$datatable .= '<td align="center">'.&mt($type).'<br />'.
	'<input type="text" name="uploadquota_'.$type.'"'.
	' value="'.$curruploadquota{$type}.'" size="5" /></td>';
	}
	$datatable .= '</tr></table></td></tr>'."\n";
	$itemcount += 2;
	my $onclick = 'toggleCredits(this.form);';
	my $display = 'none';
	if ($currusecredits) {
	$display = 'block';
	}
	my $additional = '<div id="credits" style="display: '.$display.'">'.
	'<span class="LC_nobreak">'.
	&mt('Default credits for official courses [_1]',
	'<input type="text" name="official_credits" value="'.
	$def_official_credits.'" size="3" />').
	'</span><br />'.
	'<span class="LC_nobreak">'.
	&mt('Default credits for unofficial courses [_1]',
	'<input type="text" name="unofficial_credits" value="'.
	$def_unofficial_credits.'" size="3" />').
	'</span><br />'.
	'<span class="LC_nobreak">'.
	&mt('Default credits for textbook courses [_1]',
	'<input type="text" name="textbook_credits" value="'.
	$def_textbook_credits.'" size="3" />').
	'</span></div>'."\n";
	%defaultchecked = ('coursecredits' => 'off');
	@toggles = ('coursecredits');
	my $current = {
	'coursecredits' => $currusecredits,
	};
	(my $table,$itemcount) =
	&radiobutton_prefs($current,\@toggles,\%defaultchecked,
	\%choices,$itemcount,$onclick,$additional);
	$datatable .= $table;
}	}
	$$rowtotal += $itemcount;
return $datatable;	return $datatable;
}	}

Line 2725 sub spares_row {	Line 3100 sub spares_row {
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
$datatable .= '<tr'.$css_class.'>	$datatable .= '<tr'.$css_class.'>
<td rowspan="2">	<td rowspan="2">
<span class="LC_nobreak"><b>'.$server.'</b> when busy, offloads to:</span></td>'."\n";	<span class="LC_nobreak">'.
	&mt('[_1] when busy, offloads to:'
	,'<b>'.$server.'</b>').
	"\n";
my (%current,%canselect);	my (%current,%canselect);
my @choices =	my @choices =
&possible_newspares($server,$spareid->{$server},$serverhomes,$altids);	&possible_newspares($server,$spareid->{$server},$serverhomes,$altids);
Line 2849 sub print_loadbalancing {	Line 3227 sub print_loadbalancing {
my $numinrow = 1;	my $numinrow = 1;
my $datatable;	my $datatable;
my %servers = &Apache::lonnet::internet_dom_servers($dom);	my %servers = &Apache::lonnet::internet_dom_servers($dom);
my ($currbalancer,$currtargets,$currrules);	my (%currbalancer,%currtargets,%currrules,%existing);
if (keys(%servers) > 1) {	if (ref($settings) eq 'HASH') {
if (ref($settings) eq 'HASH') {	%existing = %{$settings};
$currbalancer = $settings->{'lonhost'};	}
$currtargets = $settings->{'targets'};	if ((keys(%servers) > 1) \|\| (keys(%existing) > 0)) {
$currrules = $settings->{'rules'};	&get_loadbalancers_config(\%servers,\%existing,\%currbalancer,
} else {	\%currtargets,\%currrules);
($currbalancer,$currtargets) =
&Apache::lonnet::get_lonbalancer_config(\%servers);
}
} else {	} else {
return;	return;
}	}
my ($othertitle,$usertypes,$types) =	my ($othertitle,$usertypes,$types) =
&Apache::loncommon::sorted_inst_types($dom);	&Apache::loncommon::sorted_inst_types($dom);
my $rownum = 6;	my $rownum = 8;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
$rownum += scalar(@{$types});	$rownum += scalar(@{$types});
}	}
my $css_class = ' class="LC_odd_row"';	my @css_class = ('LC_odd_row','LC_even_row');
my $targets_div_style = 'display: none';	my $balnum = 0;
my $disabled_div_style = 'display: block';	my $islast;
my $homedom_div_style = 'display: none';	my (@toshow,$disabledtext);
$datatable = '<tr'.$css_class.'>'.	if (keys(%currbalancer) > 0) {
'<td rowspan="'.$rownum.'" valign="top">'.	@toshow = sort(keys(%currbalancer));
'<p><select name="loadbalancing_lonhost" onchange="toggleTargets();">'."\n".	if (scalar(@toshow) < scalar(keys(%servers)) + 1) {
'<option value=""';	push(@toshow,'');
if (($currbalancer eq '') \|\| (!grep(/^\Q$currbalancer\E$/,keys(%servers)))) {	}
$datatable .= ' selected="selected"';	} else {
} else {	@toshow = ('');
$targets_div_style = 'display: block';	$disabledtext = &mt('No existing load balancer');
$disabled_div_style = 'display: none';	}
if ($dom eq &Apache::lonnet::host_domain($currbalancer)) {	foreach my $lonhost (@toshow) {
$homedom_div_style = 'display: block';	if ($balnum == scalar(@toshow)-1) {
}	$islast = 1;
}	} else {
$datatable .= '>'.&mt('None').'</option>'."\n";	$islast = 0;
foreach my $lonhost (sort(keys(%servers))) {	}
my $selected;	my $cssidx = $balnum%2;
if ($lonhost eq $currbalancer) {	my $targets_div_style = 'display: none';
$selected .= ' selected="selected"';	my $disabled_div_style = 'display: block';
}	my $homedom_div_style = 'display: none';
$datatable .= '<option value="'.$lonhost.'"'.$selected.'>'.$lonhost.'</option>'."\n";	$datatable .= '<tr class="'.$css_class[$cssidx].'">'.
}	'<td rowspan="'.$rownum.'" valign="top">'.
$datatable .= '</select></p></td><td rowspan="'.$rownum.'" valign="top">'.	'<p>';
'<div id="loadbalancing_disabled" style="'.$disabled_div_style.'">'.&mt('No dedicated Load Balancer').'</div>'."\n".	if ($lonhost eq '') {
'<div id="loadbalancing_targets" style="'.$targets_div_style.'">'.&mt('Offloads to:').'<br />';	$datatable .= '<span class="LC_nobreak">';
my ($numspares,@spares) = &count_servers($currbalancer,%servers);	if (keys(%currbalancer) > 0) {
my @sparestypes = ('primary','default');	$datatable .= &mt('Add balancer:');
my %typetitles = &sparestype_titles();	} else {
foreach my $sparetype (@sparestypes) {	$datatable .= &mt('Enable balancer:');
my $targettable;	}
for (my $i=0; $i<$numspares; $i++) {	$datatable .= ' '.
my $checked;	'<select name="loadbalancing_lonhost_'.$balnum.'"'.
if (ref($currtargets) eq 'HASH') {	' id="loadbalancing_lonhost_'.$balnum.'"'.
if (ref($currtargets->{$sparetype}) eq 'ARRAY') {	' onchange="toggleTargets('."'$balnum'".');">'."\n".
if (grep(/^\Q$spares[$i]\E$/,@{$currtargets->{$sparetype}})) {	'<option value="" selected="selected">'.&mt('None').
$checked = ' checked="checked"';	'</option>'."\n";
	foreach my $server (sort(keys(%servers))) {
	next if ($currbalancer{$server});
	$datatable .= '<option value="'.$server.'">'.$server.'</option>'."\n";
	}
	$datatable .=
	'</select>'."\n".
	'<input type="hidden" name="loadbalancing_prevlonhost_'.$balnum.'" id="loadbalancing_prevlonhost_'.$balnum.'" value="" /> </span>'."\n";
	} else {
	$datatable .= '<i>'.$lonhost.'</i><br /><span class="LC_nobreak">'.
	'<label><input type="checkbox" name="loadbalancing_delete" value="'.$balnum.'" id="loadbalancing_delete_'.$balnum.'" onclick="javascript:balancerDeleteChange('."'$balnum'".');" /> '.
	&mt('Stop balancing').'</label>'.
	'<input type="hidden" name="loadbalancing_lonhost_'.$balnum.'" value="'.$lonhost.'" id="loadbalancing_lonhost_'.$balnum.'" /></span>';
	$targets_div_style = 'display: block';
	$disabled_div_style = 'display: none';
	if ($dom eq &Apache::lonnet::host_domain($lonhost)) {
	$homedom_div_style = 'display: block';
	}
	}
	$datatable .= '</p></td><td rowspan="'.$rownum.'" valign="top">'.
	'<div id="loadbalancing_disabled_'.$balnum.'" style="'.
	$disabled_div_style.'">'.$disabledtext.'</div>'."\n".
	'<div id="loadbalancing_targets_'.$balnum.'" style="'.$targets_div_style.'">'.&mt('Offloads to:').'<br />';
	my ($numspares,@spares) = &count_servers($lonhost,%servers);
	my @sparestypes = ('primary','default');
	my %typetitles = &sparestype_titles();
	foreach my $sparetype (@sparestypes) {
	my $targettable;
	for (my $i=0; $i<$numspares; $i++) {
	my $checked;
	if (ref($currtargets{$lonhost}) eq 'HASH') {
	if (ref($currtargets{$lonhost}{$sparetype}) eq 'ARRAY') {
	if (grep(/^\Q$spares[$i]\E$/,@{$currtargets{$lonhost}{$sparetype}})) {
	$checked = ' checked="checked"';
	}
	}
	}
	my ($chkboxval,$disabled);
	if (($lonhost ne '') && (exists($servers{$lonhost}))) {
	$chkboxval = $spares[$i];
	}
	if (exists($currbalancer{$spares[$i]})) {
	$disabled = ' disabled="disabled"';
	}
	$targettable .=
	'<td><label><input type="checkbox" name="loadbalancing_target_'.$balnum.'_'.$sparetype.'"'.
	$checked.$disabled.' value="'.$chkboxval.'" id="loadbalancing_target_'.$balnum.'_'.$sparetype.'_'.$i.'" onclick="checkOffloads('."this,'$balnum','$sparetype'".');" /><span id="loadbalancing_targettxt_'.$balnum.'_'.$sparetype.'_'.$i.'"> '.$chkboxval.
	'</span></label></td>';
	my $rem = $i%($numinrow);
	if ($rem == 0) {
	if (($i > 0) && ($i < $numspares-1)) {
	$targettable .= '</tr>';
	}
	if ($i < $numspares-1) {
	$targettable .= '<tr>';
}	}
}	}
}	}
my $chkboxval;	if ($targettable ne '') {
if (($currbalancer ne '') && (grep((/^\Q$currbalancer\E$/,keys(%servers))))) {	my $rem = $numspares%($numinrow);
$chkboxval = $spares[$i];	my $colsleft = $numinrow - $rem;
}	if ($colsleft > 1 ) {
$targettable .= '<td><label><input type="checkbox" name="loadbalancing_target_'.$sparetype.'"'.	$targettable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
$checked.' value="'.$chkboxval.'" id="loadbalancing_target_'.$sparetype.'_'.$i.'" onclick="checkOffloads('."this,'$sparetype'".');" /><span id="loadbalancing_targettxt_'.$sparetype.'_'.$i.'"> '.$chkboxval.	' </td>';
'</span></label></td>';	} elsif ($colsleft == 1) {
my $rem = $i%($numinrow);	$targettable .= '<td class="LC_left_item"> </td>';
if ($rem == 0) {	}
if ($i > 0) {	$datatable .= '<i>'.$typetitles{$sparetype}.'</i><br />'.
$targettable .= '</tr>';	'<table><tr>'.$targettable.'</tr></table><br />';
}	}
$targettable .= '<tr>';	}
	$datatable .= '</div></td></tr>'.
	&loadbalancing_rules($dom,$intdom,$currrules{$lonhost},
	$othertitle,$usertypes,$types,\%servers,
	\%currbalancer,$lonhost,
	$targets_div_style,$homedom_div_style,
	$css_class[$cssidx],$balnum,$islast);
	$$rowtotal += $rownum;
	$balnum ++;
	}
	$datatable .= '<input type="hidden" name="loadbalancing_total" id="loadbalancing_total" value="'.$balnum.'" />';
	return $datatable;
	}

	sub get_loadbalancers_config {
	my ($servers,$existing,$currbalancer,$currtargets,$currrules) = @_;
	return unless ((ref($servers) eq 'HASH') &&
	(ref($existing) eq 'HASH') && (ref($currbalancer) eq 'HASH') &&
	(ref($currtargets) eq 'HASH') && (ref($currrules) eq 'HASH'));
	if (keys(%{$existing}) > 0) {
	my $oldlonhost;
	foreach my $key (sort(keys(%{$existing}))) {
	if ($key eq 'lonhost') {
	$oldlonhost = $existing->{'lonhost'};
	$currbalancer->{$oldlonhost} = 1;
	} elsif ($key eq 'targets') {
	if ($oldlonhost) {
	$currtargets->{$oldlonhost} = $existing->{'targets'};
	}
	} elsif ($key eq 'rules') {
	if ($oldlonhost) {
	$currrules->{$oldlonhost} = $existing->{'rules'};
	}
	} elsif (ref($existing->{$key}) eq 'HASH') {
	$currbalancer->{$key} = 1;
	$currtargets->{$key} = $existing->{$key}{'targets'};
	$currrules->{$key} = $existing->{$key}{'rules'};
}	}
}	}
if ($targettable ne '') {	} else {
my $rem = $numspares%($numinrow);	my ($balancerref,$targetsref) =
my $colsleft = $numinrow - $rem;	&Apache::lonnet::get_lonbalancer_config($servers);
if ($colsleft > 1 ) {	if ((ref($balancerref) eq 'HASH') && (ref($targetsref) eq 'HASH')) {
$targettable .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.	foreach my $server (sort(keys(%{$balancerref}))) {
' </td>';	$currbalancer->{$server} = 1;
} elsif ($colsleft == 1) {	$currtargets->{$server} = $targetsref->{$server};
$targettable .= '<td class="LC_left_item"> </td>';
}	}
$datatable .= '<i>'.$typetitles{$sparetype}.'</i><br />'.
'<table><tr>'.$targettable.'</table><br />';
}	}
}	}
$datatable .= '</div></td></tr>'.	return;
&loadbalancing_rules($dom,$intdom,$currrules,$othertitle,
$usertypes,$types,\%servers,$currbalancer,
$targets_div_style,$homedom_div_style,$css_class);
$$rowtotal += $rownum;
return $datatable;
}	}

sub loadbalancing_rules {	sub loadbalancing_rules {
my ($dom,$intdom,$currrules,$othertitle,$usertypes,$types,$servers,	my ($dom,$intdom,$currrules,$othertitle,$usertypes,$types,$servers,
$currbalancer,$targets_div_style,$homedom_div_style,$css_class) = @_;	$currbalancer,$lonhost,$targets_div_style,$homedom_div_style,
	$css_class,$balnum,$islast) = @_;
my $output;	my $output;
my ($alltypes,$othertypes,$titles) =	my $num = 0;
	my ($alltypes,$othertypes,$titles) =
&loadbalancing_titles($dom,$intdom,$usertypes,$types);	&loadbalancing_titles($dom,$intdom,$usertypes,$types);
if ((ref($alltypes) eq 'ARRAY') && (ref($titles) eq 'HASH')) {	if ((ref($alltypes) eq 'ARRAY') && (ref($titles) eq 'HASH')) {
foreach my $type (@{$alltypes}) {	foreach my $type (@{$alltypes}) {
	$num ++;
my $current;	my $current;
if (ref($currrules) eq 'HASH') {	if (ref($currrules) eq 'HASH') {
$current = $currrules->{$type};	$current = $currrules->{$type};
}	}
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom') \|\| ($type eq '_LC_ipchange')) {
if ($dom ne &Apache::lonnet::host_domain($currbalancer)) {	if ($dom ne &Apache::lonnet::host_domain($lonhost)) {
$current = '';	$current = '';
}	}
}	}
$output .= &loadbalance_rule_row($type,$titles->{$type},$current,	$output .= &loadbalance_rule_row($type,$titles->{$type},$current,
$servers,$currbalancer,$dom,	$servers,$currbalancer,$lonhost,$dom,
$targets_div_style,$homedom_div_style,$css_class);	$targets_div_style,$homedom_div_style,
	$css_class,$balnum,$num,$islast);
}	}
}	}
return $output;	return $output;
Line 2978 sub loadbalancing_titles {	Line 3439 sub loadbalancing_titles {
'_LC_author' => &mt('Users from [_1] with author role',$dom),	'_LC_author' => &mt('Users from [_1] with author role',$dom),
'_LC_internetdom' => &mt('Users not from [_1], but from [_2]',$dom,$intdom),	'_LC_internetdom' => &mt('Users not from [_1], but from [_2]',$dom,$intdom),
'_LC_external' => &mt('Users not from [_1]',$intdom),	'_LC_external' => &mt('Users not from [_1]',$intdom),
	'_LC_ipchangesso' => &mt('SSO users from [_1], with IP mismatch',$dom),
	'_LC_ipchange' => &mt('Non-SSO users with IP mismatch'),
);	);
my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external');	my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external','_LC_ipchangesso','_LC_ipchange');
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
unshift(@alltypes,@{$types},'default');	unshift(@alltypes,@{$types},'default');
}	}
Line 3002 sub loadbalancing_titles {	Line 3465 sub loadbalancing_titles {
}	}

sub loadbalance_rule_row {	sub loadbalance_rule_row {
my ($type,$title,$current,$servers,$currbalancer,$dom,$targets_div_style,	my ($type,$title,$current,$servers,$currbalancer,$lonhost,$dom,
$homedom_div_style,$css_class) = @_;	$targets_div_style,$homedom_div_style,$css_class,$balnum,$num,$islast) = @_;
my @rulenames = ('default','homeserver');	my @rulenames;
my %ruletitles = &offloadtype_text();	my %ruletitles = &offloadtype_text();
if ($type eq '_LC_external') {	if (($type eq '_LC_ipchangesso') \|\| ($type eq '_LC_ipchange')) {
push(@rulenames,'externalbalancer');	@rulenames = ('balancer','offloadedto');
} else {	} else {
push(@rulenames,'specific');	@rulenames = ('default','homeserver');
	if ($type eq '_LC_external') {
	push(@rulenames,'externalbalancer');
	} else {
	push(@rulenames,'specific');
	}
	push(@rulenames,'none');
}	}
push(@rulenames,'none');
my $style = $targets_div_style;	my $style = $targets_div_style;
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom') \|\| ($type eq '_LC_ipchange')) {
$style = $homedom_div_style;	$style = $homedom_div_style;
}	}
my $output =	my $space;
'<tr'.$css_class.'><td valign="top"><div id="balanceruletitle_'.$type.'" style="'.$style.'">'.$title.'</div></td>'."\n".	if ($islast && $num == 1) {
'<td><div id="balancerule_'.$type.'" style="'.$style.'">'."\n";	$space = '<div display="inline-block"> </div>';
	}
	my $output =
	'<tr class="'.$css_class.'" id="balanceruletr_'.$balnum.'_'.$num.'"><td valign="top">'.$space.
	'<div id="balanceruletitle_'.$balnum.'_'.$type.'" style="'.$style.'">'.$title.'</div></td>'."\n".
	'<td valaign="top">'.$space.
	'<div id="balancerule_'.$balnum.'_'.$type.'" style="'.$style.'">'."\n";
for (my $i=0; $i<@rulenames; $i++) {	for (my $i=0; $i<@rulenames; $i++) {
my $rule = $rulenames[$i];	my $rule = $rulenames[$i];
my ($checked,$extra);	my ($checked,$extra);
Line 3034 sub loadbalance_rule_row {	Line 3508 sub loadbalance_rule_row {
unless ($checked) {	unless ($checked) {
$default = ' selected="selected"';	$default = ' selected="selected"';
}	}
$extra = ': <select name="loadbalancing_singleserver_'.$type.	$extra =
'" id="loadbalancing_singleserver_'.$type.	': <select name="loadbalancing_singleserver_'.$balnum.'_'.$type.
'" onchange="singleServerToggle('."'$type'".')">'."\n".	'" id="loadbalancing_singleserver_'.$balnum.'_'.$type.
'<option value=""'.$default.'></option>'."\n";	'" onchange="singleServerToggle('."'$balnum','$type'".')">'."\n".
foreach my $lonhost (sort(keys(%{$servers}))) {	'<option value=""'.$default.'></option>'."\n";
next if ($lonhost eq $currbalancer);	foreach my $server (sort(keys(%{$servers}))) {
	if (ref($currbalancer) eq 'HASH') {
	next if (exists($currbalancer->{$server}));
	}
my $selected;	my $selected;
if ($lonhost eq $current) {	if ($server eq $current) {
$selected = ' selected="selected"';	$selected = ' selected="selected"';
}	}
$extra .= '<option value="'.$lonhost.'"'.$selected.'>'.$lonhost.'</option>';	$extra .= '<option value="'.$server.'"'.$selected.'>'.$server.'</option>';
}	}
$extra .= '</select>';	$extra .= '</select>';
}	}
Line 3052 sub loadbalance_rule_row {	Line 3529 sub loadbalance_rule_row {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
}	}
$output .= '<span class="LC_nobreak"><label>'.	$output .= '<span class="LC_nobreak"><label>'.
'<input type="radio" name="loadbalancing_rules_'.$type.	'<input type="radio" name="loadbalancing_rules_'.$balnum.'_'.$type.
'" id="loadbalancing_rules_'.$type.'_'.$i.'" value="'.	'" id="loadbalancing_rules_'.$balnum.'_'.$type.'_'.$i.'" value="'.
$rule.'" onclick="balanceruleChange('."this.form,'$type'".	$rule.'" onclick="balanceruleChange('."this.form,'$balnum','$type'".
')"'.$checked.' /> '.$ruletitles{$rulenames[$i]}.	')"'.$checked.' /> '.$ruletitles{$rulenames[$i]}.
'</label>'.$extra.'</span><br />'."\n";	'</label>'.$extra.'</span><br />'."\n";
}	}
Line 3069 sub offloadtype_text {	Line 3546 sub offloadtype_text {
'externalbalancer' => "Offloads to Load Balancer in user's domain",	'externalbalancer' => "Offloads to Load Balancer in user's domain",
'specific' => 'Offloads to specific server',	'specific' => 'Offloads to specific server',
'none' => 'No offload',	'none' => 'No offload',
	'balancer' => 'Session hosted on Load Balancer, after re-authentication',
	'offloadedto' => 'Session hosted on offload server, after re-authentication',
);	);
return %ruletitles;	return %ruletitles;
}	}
Line 3090 sub contact_titles {	Line 3569 sub contact_titles {
'helpdeskmail' => 'Helpdesk requests to be e-mailed to',	'helpdeskmail' => 'Helpdesk requests to be e-mailed to',
'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)',	'lonstatusmail' => 'E-mail from nightly status check (warnings/errors)',
'requestsmail' => 'E-mail from course requests requiring approval',	'requestsmail' => 'E-mail from course requests requiring approval',
	'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates',
	'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID',
);	);
my %short_titles = &Apache::lonlocal::texthash (	my %short_titles = &Apache::lonlocal::texthash (
adminemail => 'Admin E-mail address',	adminemail => 'Admin E-mail address',
Line 3107 sub tool_titles {	Line 3588 sub tool_titles {
official => 'Official courses (with institutional codes)',	official => 'Official courses (with institutional codes)',
unofficial => 'Unofficial courses',	unofficial => 'Unofficial courses',
community => 'Communities',	community => 'Communities',
	textbook => 'Textbook courses',
);	);
return %titles;	return %titles;
}	}
Line 3116 sub courserequest_titles {	Line 3598 sub courserequest_titles {
official => 'Official',	official => 'Official',
unofficial => 'Unofficial',	unofficial => 'Unofficial',
community => 'Communities',	community => 'Communities',
	textbook => 'Textbook',
norequest => 'Not allowed',	norequest => 'Not allowed',
approval => 'Approval by Dom. Coord.',	approval => 'Approval by Dom. Coord.',
validate => 'With validation',	validate => 'With validation',
Line 3137 sub authorrequest_titles {	Line 3620 sub authorrequest_titles {
sub courserequest_conditions {	sub courserequest_conditions {
my %conditions = &Apache::lonlocal::texthash (	my %conditions = &Apache::lonlocal::texthash (
approval => '(Processing of request subject to approval by Domain Coordinator).',	approval => '(Processing of request subject to approval by Domain Coordinator).',
validate => '(Processing of request subject to instittutional validation).',	validate => '(Processing of request subject to institutional validation).',
);	);
return %conditions;	return %conditions;
}	}
Line 3520 sub print_usermodification {	Line 4003 sub print_usermodification {
}	}

sub print_defaults {	sub print_defaults {
my ($dom,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my @items = ('auth_def','auth_arg_def','lang_def','timezone_def',	my @items = ('auth_def','auth_arg_def','lang_def','timezone_def',
'datelocale_def','portal_def');	'datelocale_def','portal_def');
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %defaults;
	if (ref($settings) eq 'HASH') {
	%defaults = %{$settings};
	} else {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
	foreach my $item (@items) {
	$defaults{$item} = $domdefaults{$item};
	}
	}
my $titles = &defaults_titles($dom);	my $titles = &defaults_titles($dom);
my $rownum = 0;	my $rownum = 0;
my ($datatable,$css_class);	my ($datatable,$css_class);
Line 3547 sub print_defaults {	Line 4038 sub print_defaults {
my %authnames = &authtype_names();	my %authnames = &authtype_names();
foreach my $auth (@authtypes) {	foreach my $auth (@authtypes) {
my $checked = ' ';	my $checked = ' ';
if ($domdefaults{$item} eq $auth) {	if ($defaults{$item} eq $auth) {
$checked = ' checked="checked" ';	$checked = ' checked="checked" ';
}	}
$datatable .= '<label><input type="radio" name="'.$item.	$datatable .= '<label><input type="radio" name="'.$item.
Line 3556 sub print_defaults {	Line 4047 sub print_defaults {
}	}
} elsif ($item eq 'timezone_def') {	} elsif ($item eq 'timezone_def') {
my $includeempty = 1;	my $includeempty = 1;
$datatable .= &Apache::loncommon::select_timezone($item,$domdefaults{$item},undef,$includeempty);	$datatable .= &Apache::loncommon::select_timezone($item,$defaults{$item},undef,$includeempty);
} elsif ($item eq 'datelocale_def') {	} elsif ($item eq 'datelocale_def') {
my $includeempty = 1;	my $includeempty = 1;
$datatable .= &Apache::loncommon::select_datelocale($item,$domdefaults{$item},undef,$includeempty);	$datatable .= &Apache::loncommon::select_datelocale($item,$defaults{$item},undef,$includeempty);
} elsif ($item eq 'lang_def') {	} elsif ($item eq 'lang_def') {
my %langchoices = &get_languages_hash();	my %langchoices = &get_languages_hash();
$langchoices{''} = 'No language preference';	$langchoices{''} = 'No language preference';
%langchoices = &Apache::lonlocal::texthash(%langchoices);	%langchoices = &Apache::lonlocal::texthash(%langchoices);
$datatable .= &Apache::loncommon::select_form($domdefaults{$item},$item,	$datatable .= &Apache::loncommon::select_form($defaults{$item},$item,
\%langchoices);	\%langchoices);
} else {	} else {
my $size;	my $size;
Line 3572 sub print_defaults {	Line 4063 sub print_defaults {
$size = ' size="25"';	$size = ' size="25"';
}	}
$datatable .= '<input type="text" name="'.$item.'" value="'.	$datatable .= '<input type="text" name="'.$item.'" value="'.
$domdefaults{$item}.'"'.$size.' />';	$defaults{$item}.'"'.$size.' />';
}	}
$datatable .= '</td></tr>';	$datatable .= '</td></tr>';
$rownum ++;	$rownum ++;
Line 3724 sub print_scantronformat {	Line 4215 sub print_scantronformat {
$datatable .= '<td>'.&mt('Default in use:').'<br />'.	$datatable .= '<td>'.&mt('Default in use:').'<br />'.
'<span class="LC_nobreak">';	'<span class="LC_nobreak">';
if ($scantronurl) {	if ($scantronurl) {
$datatable .= '<a href="'.$scantronurl.'" target="_blank">'.	$datatable .= &Apache::loncommon::modal_link($scantronurl,&mt('Default bubblesheet format file'),600,500,
&mt('Default bubblesheet format file').'</a>';	undef,undef,undef,undef,'background-color:#ffffff');
} else {	} else {
$datatable = &mt('File unavailable for display');	$datatable = &mt('File unavailable for display');
}	}
Line 3750 sub print_scantronformat {	Line 4241 sub print_scantronformat {
}	}
$datatable .= '<td>'.$errorstr.'</td><td> ';	$datatable .= '<td>'.$errorstr.'</td><td> ';
} elsif ($scantronurl) {	} elsif ($scantronurl) {
	my $link = &Apache::loncommon::modal_link($scantronurl,&mt('Custom bubblesheet format file'),600,500,
	undef,undef,undef,undef,'background-color:#ffffff');
$datatable .= '<td><span class="LC_nobreak">'.	$datatable .= '<td><span class="LC_nobreak">'.
'<a href="'.$scantronurl.'" target="_blank">'.	$link.
&mt('Custom bubblesheet format file').'</a><label>'.	'<label><input type="checkbox" name="scantronformat_del"'.
'<input type="checkbox" name="scantronformat_del"'.	' value="1" />'.&mt('Delete?').'</label></span></td>'.
'" value="1" />'.&mt('Delete?').'</label></span></td>'.
'<td><span class="LC_nobreak"> '.	'<td><span class="LC_nobreak"> '.
&mt('Replace:').'</span><br />';	&mt('Replace:').'</span><br />';
}	}
Line 3908 sub print_coursecategories {	Line 4400 sub print_coursecategories {
}	}
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select></td><td>';	$datatable .= '</select></span></td><td>';
if ($parent eq 'instcode' \|\| $parent eq 'communities') {	if ($parent eq 'instcode' \|\| $parent eq 'communities') {
$datatable .= '<span class="LC_nobreak">'	$datatable .= '<span class="LC_nobreak">'
.$default_names{$parent}.'</span>';	.$default_names{$parent}.'</span>';
Line 3938 sub print_coursecategories {	Line 4430 sub print_coursecategories {
$datatable .= '</td>';	$datatable .= '</td>';
} else {	} else {
$datatable .= $parent	$datatable .= $parent
.' <label><input type="checkbox" name="deletecategory" '	.' <span class="LC_nobreak"><label>'
	.'<input type="checkbox" name="deletecategory" '
.'value="'.$item.'" />'.&mt('Delete').'</label></span></td>';	.'value="'.$item.'" />'.&mt('Delete').'</label></span></td>';
}	}
my $depth = 1;	my $depth = 1;
Line 4052 sub print_serverstatuses {	Line 4545 sub print_serverstatuses {

sub serverstatus_pages {	sub serverstatus_pages {
return ('userstatus','lonstatus','loncron','server-status','codeversions',	return ('userstatus','lonstatus','loncron','server-status','codeversions',
'clusterstatus','metadata_keywords','metadata_harvest',	'checksums','clusterstatus','metadata_keywords','metadata_harvest',
'takeoffline','takeonline','showenv','toggledebug','ping','domconf');	'takeoffline','takeonline','showenv','toggledebug','ping','domconf');
}	}

Line 4210 sub build_category_rows {	Line 4703 sub build_category_rows {
if (ref($cats->[$depth]{$parent}) eq 'ARRAY') {	if (ref($cats->[$depth]{$parent}) eq 'ARRAY') {
my $numchildren = @{$cats->[$depth]{$parent}};	my $numchildren = @{$cats->[$depth]{$parent}};
my $css_class = $itemcount%2?' class="LC_odd_row"':'';	my $css_class = $itemcount%2?' class="LC_odd_row"':'';
$text .= '<td><table class="LC_datatable">';	$text .= '<td><table class="LC_data_table">';
my ($idxnum,$parent_name,$parent_item);	my ($idxnum,$parent_name,$parent_item);
my $higher = $depth - 1;	my $higher = $depth - 1;
if ($higher == 0) {	if ($higher == 0) {
Line 4502 sub usertype_update_row {	Line 4995 sub usertype_update_row {
}	}

sub modify_login {	sub modify_login {
my ($r,$dom,$confname,%domconfig) = @_;	my ($r,$dom,$confname,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,$colchgtext,%changes,%colchanges,%newfile,%newurl,	my ($resulttext,$errors,$colchgtext,%changes,%colchanges,%newfile,%newurl,
%curr_loginvia,%loginhash,@currlangs,@newlangs,$addedfile,%title,@offon);	%curr_loginvia,%loginhash,@currlangs,@newlangs,$addedfile,%title,@offon);
%title = ( coursecatalog => 'Display course catalog',	%title = ( coursecatalog => 'Display course catalog',
adminmail => 'Display administrator E-mail address',	adminmail => 'Display administrator E-mail address',
	helpdesk => 'Display "Contact Helpdesk" link',
newuser => 'Link for visitors to create a user account',	newuser => 'Link for visitors to create a user account',
loginheader => 'Log-in box header');	loginheader => 'Log-in box header');
@offon = ('off','on');	@offon = ('off','on');
Line 4519 sub modify_login {	Line 5013 sub modify_login {
}	}
($errors,%colchanges) = &modify_colors($r,$dom,$confname,['login'],	($errors,%colchanges) = &modify_colors($r,$dom,$confname,['login'],
\%domconfig,\%loginhash);	\%domconfig,\%loginhash);
my @toggles = ('coursecatalog','adminmail','newuser');	my @toggles = ('coursecatalog','adminmail','helpdesk','newuser');
foreach my $item (@toggles) {	foreach my $item (@toggles) {
$loginhash{login}{$item} = $env{'form.'.$item};	$loginhash{login}{$item} = $env{'form.'.$item};
}	}
Line 4707 sub modify_login {	Line 5201 sub modify_login {
my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%loginhash,
$dom);	$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
my @toggles = ('coursecatalog','adminmail','newuser');	my @toggles = ('coursecatalog','adminmail','helpdesk','newuser');
my %defaultchecked = (	my %defaultchecked = (
'coursecatalog' => 'on',	'coursecatalog' => 'on',
	'helpdesk' => 'on',
'adminmail' => 'off',	'adminmail' => 'off',
'newuser' => 'off',	'newuser' => 'off',
);	);
Line 4738 sub modify_login {	Line 5233 sub modify_login {
}	}
if (keys(%changes) > 0 \|\| $colchgtext) {	if (keys(%changes) > 0 \|\| $colchgtext) {
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
if ($item eq 'loginvia') {	if ($item eq 'loginvia') {
Line 4858 sub color_font_choices {	Line 5356 sub color_font_choices {
links => "Link colors",	links => "Link colors",
images => "Images",	images => "Images",
font => "Font color",	font => "Font color",
fontmenu => "Font Menu",	fontmenu => "Font menu",
pgbg => "Page",	pgbg => "Page",
tabbg => "Header",	tabbg => "Header",
sidebg => "Border",	sidebg => "Border",
Line 4870 sub color_font_choices {	Line 5368 sub color_font_choices {
}	}

sub modify_rolecolors {	sub modify_rolecolors {
my ($r,$dom,$confname,$roles,%domconfig) = @_;	my ($r,$dom,$confname,$roles,$lastactref,%domconfig) = @_;
my ($resulttext,%rolehash);	my ($resulttext,%rolehash);
$rolehash{'rolecolors'} = {};	$rolehash{'rolecolors'} = {};
if (ref($domconfig{'rolecolors'}) ne 'HASH') {	if (ref($domconfig{'rolecolors'}) ne 'HASH') {
Line 4885 sub modify_rolecolors {	Line 5383 sub modify_rolecolors {
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
$resulttext = &display_colorchgs($dom,\%changes,$roles,	$resulttext = &display_colorchgs($dom,\%changes,$roles,
$rolehash{'rolecolors'});	$rolehash{'rolecolors'});
} else {	} else {
Line 4910 sub modify_colors {	Line 5411 sub modify_colors {
my @images;	my @images;
my $servadm = $r->dir_config('lonAdmEMail');	my $servadm = $r->dir_config('lonAdmEMail');
my $errors;	my $errors;
	my %defaults;
foreach my $role (@{$roles}) {	foreach my $role (@{$roles}) {
if ($role eq 'login') {	if ($role eq 'login') {
%choices = &login_choices();	%choices = &login_choices();
@logintext = ('textcol','bgcol');	@logintext = ('textcol','bgcol');
} else {	} else {
%choices = &color_font_choices();	%choices = &color_font_choices();
$confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'};
}	}
if ($role eq 'login') {	if ($role eq 'login') {
@images = ('img','logo','domlogo','login');	@images = ('img','logo','domlogo','login');
@bgs = ('pgbg','mainbg','sidebg');	@bgs = ('pgbg','mainbg','sidebg');
} else {	} else {
@images = ('img');	@images = ('img');
@bgs = ('pgbg','tabbg','sidebg');	@bgs = ('pgbg','tabbg','sidebg');
}	}
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};	my %defaults = &role_defaults($role,\@bgs,\@links,\@images,\@logintext);
foreach my $item (@bgs,@links,@logintext) {	unless ($env{'form.'.$role.'_font'} eq $defaults{'font'}) {
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};	$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
	}
	if ($role eq 'login') {
	foreach my $item (@logintext) {
	unless ($env{'form.'.$role.'_'.$item} eq $defaults{'logintext'}{$item}) {
	$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
	}
	}
	} else {
	unless($env{'form.'.$role.'_fontmenu'} eq $defaults{'fontmenu'}) {
	$confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'};
	}
	}
	foreach my $item (@bgs) {
	unless ($env{'form.'.$role.'_'.$item} eq $defaults{'bgs'}{$item} ) {
	$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
	}
	}
	foreach my $item (@links) {
	unless ($env{'form.'.$role.'_'.$item} eq $defaults{'links'}{$item}) {
	$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
	}
}	}
my ($configuserok,$author_ok,$switchserver) =	my ($configuserok,$author_ok,$switchserver) =
&config_check($dom,$confname,$servadm);	&config_check($dom,$confname,$servadm);
Line 5283 sub publishlogo {	Line 5805 sub publishlogo {
if ($fname=~m\|/\|) {	if ($fname=~m\|/\|) {
($fnamepath,$file) = ($fname =~ m\|^(.*)/([^/]+)$\|);	($fnamepath,$file) = ($fname =~ m\|^(.*)/([^/]+)$\|);
}	}
my @parts=split(/\//,"$filepath/$relpath/$fnamepath");	my @parts=split(/\//,"$filepath/$relpath/$fnamepath");
my $count;	my $count;
for ($count=5;$count<=$#parts;$count++) {	for ($count=5;$count<=$#parts;$count++) {
$filepath.="/$parts[$count]";	$filepath.="/$parts[$count]";
Line 5295 sub publishlogo {	Line 5817 sub publishlogo {
if ($file=~/\.(\w+)$/ &&	if ($file=~/\.(\w+)$/ &&
(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {	(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
$output =	$output =
&mt('Invalid file extension ([_1]) - reserved for LONCAPA use.',$1);	&mt('Invalid file extension ([_1]) - reserved for internal use.',$1);
} elsif ($file=~/\.(\w+)$/ &&	} elsif ($file=~/\.(\w+)$/ &&
!defined(&Apache::loncommon::fileembstyle($1))) {	!defined(&Apache::loncommon::fileembstyle($1))) {
$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);	$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);
} elsif ($file=~/\.(\d+)\.(\w+)$/) {	} elsif ($file=~/\.(\d+)\.(\w+)$/) {
$output = &mt('File name not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);	$output = &mt('Filename not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);
} elsif (-d "$filepath/$file") {	} elsif (-d "$filepath/$file") {
$output = &mt('File name is a directory name - rename the file and re-upload');	$output = &mt('Filename is a directory name - rename the file and re-upload');
} else {	} else {
my $source = $filepath.'/'.$file;	my $source = $filepath.'/'.$file;
my $logfile;	my $logfile;
if (!open($logfile,">>$source".'.log')) {	if (!open($logfile,">>$source".'.log')) {
return (&mt('No write permission to Construction Space'));	return (&mt('No write permission to Authoring Space'));
}	}
print $logfile	print $logfile
"\n================= Publish ".localtime()." ================\n".	"\n================= Publish ".localtime()." ================\n".
Line 5454 sub write_metadata {	Line 5976 sub write_metadata {
print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file;	print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file;
my $mfh;	my $mfh;
if (open($mfh,'>'.$targetdir.'/'.$file.'.meta')) {	if (open($mfh,'>'.$targetdir.'/'.$file.'.meta')) {
foreach (sort keys %metadatafields) {	foreach (sort(keys(%metadatafields))) {
unless ($_=~/\./) {	unless ($_=~/\./) {
my $unikey=$_;	my $unikey=$_;
$unikey=~/^([A-Za-z]+)/;	$unikey=~/^([A-Za-z]+)/;
Line 5538 sub check_switchserver {	Line 6060 sub check_switchserver {
my @ids=&Apache::lonnet::current_machine_ids();	my @ids=&Apache::lonnet::current_machine_ids();
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if (!$allowed) {	if (!$allowed) {
$switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role=dc./'.$dom.'/">'.&mt('Switch Server').'</a>';	$switchserver='<a href="/adm/switchserver?otherserver='.$home.'&role=dc./'.$dom.'/&destinationurl=/adm/domainprefs">'.&mt('Switch Server').'</a>';
}	}
return $switchserver;	return $switchserver;
}	}

sub modify_quotas {	sub modify_quotas {
my ($dom,$action,%domconfig) = @_;	my ($r,$dom,$action,$lastactref,%domconfig) = @_;
my ($context,@usertools,@options,%validations,%titles,%confhash,%toolshash,	my ($context,@usertools,@options,%validations,%titles,%confhash,%toolshash,
%limithash,$toolregexp,%conditions,$resulttext,%changes);	%limithash,$toolregexp,%conditions,$resulttext,%changes,$confname,$configuserok,
	$author_ok,$switchserver,$errors);
if ($action eq 'quotas') {	if ($action eq 'quotas') {
$context = 'tools';	$context = 'tools';
} else {	} else {
$context = $action;	$context = $action;
}	}
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
@usertools = ('official','unofficial','community');	@usertools = ('official','unofficial','community','textbook');
@options =('norequest','approval','validate','autolimit');	@options =('norequest','approval','validate','autolimit');
%validations = &Apache::lonnet::auto_courserequest_checks($dom);	%validations = &Apache::lonnet::auto_courserequest_checks($dom);
%titles = &courserequest_titles();	%titles = &courserequest_titles();
$toolregexp = join('\|',@usertools);	$toolregexp = join('\|',@usertools);
%conditions = &courserequest_conditions();	%conditions = &courserequest_conditions();
	$confname = $dom.'-domainconfig';
	my $servadm = $r->dir_config('lonAdmEMail');
	($configuserok,$author_ok,$switchserver) = &config_check($dom,$confname,$servadm);
} elsif ($context eq 'requestauthor') {	} elsif ($context eq 'requestauthor') {
@usertools = ('author');	@usertools = ('author');
%titles = &authorrequest_titles();	%titles = &authorrequest_titles();
Line 5566 sub modify_quotas {	Line 6092 sub modify_quotas {
@usertools = ('aboutme','blog','webdav','portfolio');	@usertools = ('aboutme','blog','webdav','portfolio');
%titles = &tool_titles();	%titles = &tool_titles();
}	}
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
foreach my $key (keys(%env)) {	foreach my $key (keys(%env)) {
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
Line 5586 sub modify_quotas {	Line 6112 sub modify_quotas {
} else {	} else {
if ($key =~ /^form\.quota_(.+)$/) {	if ($key =~ /^form\.quota_(.+)$/) {
$confhash{'defaultquota'}{$1} = $env{$key};	$confhash{'defaultquota'}{$1} = $env{$key};
}	} elsif ($key =~ /^form\.authorquota_(.+)$/) {
if ($key =~ /^form\.\Q$context\E_(.+)$/) {	$confhash{'authorquota'}{$1} = $env{$key};
	} elsif ($key =~ /^form\.\Q$context\E_(.+)$/) {
@{$toolshash{$1}} = &Apache::loncommon::get_env_multiple($key);	@{$toolshash{$1}} = &Apache::loncommon::get_env_multiple($key);
}	}
}	}
Line 5596 sub modify_quotas {	Line 6123 sub modify_quotas {
my @approvalnotify = &Apache::loncommon::get_env_multiple('form.reqapprovalnotify');	my @approvalnotify = &Apache::loncommon::get_env_multiple('form.reqapprovalnotify');
@approvalnotify = sort(@approvalnotify);	@approvalnotify = sort(@approvalnotify);
$confhash{'notify'}{'approval'} = join(',',@approvalnotify);	$confhash{'notify'}{'approval'} = join(',',@approvalnotify);
	my @crstypes = ('official','unofficial','community','textbook');
	my @hasuniquecode = &Apache::loncommon::get_env_multiple('form.uniquecode');
	foreach my $type (@hasuniquecode) {
	if (grep(/^\Q$type\E$/,@crstypes)) {
	$confhash{'uniquecode'}{$type} = 1;
	}
	}
	my ($newbook,@allpos);
	if ($context eq 'requestcourses') {
	if ($env{'form.addbook'}) {
	if (($env{'form.addbook_cnum'} =~ /^$match_courseid$/) &&
	($env{'form.addbook_cdom'} =~ /^$match_domain$/)) {
	if (&Apache::lonnet::homeserver($env{'form.addbook_cnum'},
	$env{'form.addbook_cdom'}) eq 'no_host') {
	$errors .= '<li><span class="LC_error">'.&mt('Invalid LON-CAPA course for textbook').
	'</span></li>';
	} else {
	$newbook = $env{'form.addbook_cdom'}.'_'.$env{'form.addbook_cnum'};
	my $position = $env{'form.addbook_pos'};
	$position =~ s/\D+//g;
	if ($position ne '') {
	$allpos[$position] = $newbook;
	}
	}
	} else {
	$errors .= '<li><span class="LC_error">'.&mt('Invalid LON-CAPA course for textbook').
	'</span></li>';
	}
	}
	}
if (ref($domconfig{$action}) eq 'HASH') {	if (ref($domconfig{$action}) eq 'HASH') {
if (ref($domconfig{$action}{'notify'}) eq 'HASH') {	if (ref($domconfig{$action}{'notify'}) eq 'HASH') {
if ($domconfig{$action}{'notify'}{'approval'} ne $confhash{'notify'}{'approval'}) {	if ($domconfig{$action}{'notify'}{'approval'} ne $confhash{'notify'}{'approval'}) {
Line 5606 sub modify_quotas {	Line 6163 sub modify_quotas {
$changes{'notify'}{'approval'} = 1;	$changes{'notify'}{'approval'} = 1;
}	}
}	}
	if (ref($domconfig{$action}{'uniquecode'}) eq 'HASH') {
	if (ref($confhash{'uniquecode'}) eq 'HASH') {
	foreach my $crstype (keys(%{$domconfig{$action}{'uniquecode'}})) {
	unless ($confhash{'uniquecode'}{$crstype}) {
	$changes{'uniquecode'} = 1;
	}
	}
	unless ($changes{'uniquecode'}) {
	foreach my $crstype (keys(%{$confhash{'uniquecode'}})) {
	unless ($domconfig{$action}{'uniquecode'}{$crstype}) {
	$changes{'uniquecode'} = 1;
	}
	}
	}
	} else {
	$changes{'uniquecode'} = 1;
	}
	} elsif (ref($confhash{'uniquecode'}) eq 'HASH') {
	$changes{'uniquecode'} = 1;
	}
	if ($context eq 'requestcourses') {
	if (ref($domconfig{$action}{'textbooks'}) eq 'HASH') {
	my %deletions;
	my @todelete = &Apache::loncommon::get_env_multiple('form.book_del');
	if (@todelete) {
	map { $deletions{$_} = 1; } @todelete;
	}
	my %imgdeletions;
	my @todeleteimages = &Apache::loncommon::get_env_multiple('form.book_image_del');
	if (@todeleteimages) {
	map { $imgdeletions{$_} = 1; } @todeleteimages;
	}
	my $maxnum = $env{'form.book_maxnum'};
	for (my $i=0; $i<=$maxnum; $i++) {
	my $key = $env{'form.book_id_'.$i};
	if (ref($domconfig{$action}{'textbooks'}{$key}) eq 'HASH') {
	if ($deletions{$key}) {
	if ($domconfig{$action}{'textbooks'}{$key}{'image'}) {
	#FIXME need to obsolete item in RES space
	}
	next;
	} else {
	my $newpos = $env{'form.'.$key};
	$newpos =~ s/\D+//g;
	foreach my $item ('subject','title','author') {
	$confhash{'textbooks'}{$key}{$item} = $env{'form.book_'.$item.'_'.$i};
	if ($domconfig{$action}{'textbooks'}{$key}{$item} ne $confhash{'textbooks'}{$key}{$item}) {
	$changes{'textbooks'}{$key} = 1;
	}
	}
	$allpos[$newpos] = $key;
	}
	if ($imgdeletions{$key}) {
	$changes{'textbooks'}{$key} = 1;
	#FIXME need to obsolete item in RES space
	} elsif ($env{'form.book_image_'.$i.'.filename'}) {
	my ($cdom,$cnum) = split(/_/,$key);
	my ($imgurl,$error) = &process_textbook_image($r,$dom,$confname,'book_image_'.$i,
	$cdom,$cnum,$configuserok,
	$switchserver,$author_ok);
	if ($imgurl) {
	$confhash{'textbooks'}{$key}{'image'} = $imgurl;
	$changes{'textbooks'}{$key} = 1;
	}
	if ($error) {
	&Apache::lonnet::logthis($error);
	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
	}
	} elsif ($domconfig{$action}{'textbooks'}{$key}{'image'}) {
	$confhash{'textbooks'}{$key}{'image'} =
	$domconfig{$action}{'textbooks'}{$key}{'image'};
	}
	}
	}
	}
	}
} else {	} else {
if ($confhash{'notify'}{'approval'}) {	if ($confhash{'notify'}{'approval'}) {
$changes{'notify'}{'approval'} = 1;	$changes{'notify'}{'approval'} = 1;
}	}
	if (ref($confhash{'uniquecode'} eq 'HASH')) {
	$changes{'uniquecode'} = 1;
	}
	}
	if ($context eq 'requestcourses') {
	if ($newbook) {
	$changes{'textbooks'}{$newbook} = 1;
	foreach my $item ('subject','title','author') {
	$env{'form.addbook_'.$item} =~ s/(`)/'/g;
	if ($env{'form.addbook_'.$item}) {
	$confhash{'textbooks'}{$newbook}{$item} = $env{'form.addbook_'.$item};
	}
	}
	if ($env{'form.addbook_image.filename'} ne '') {
	my ($cdom,$cnum) = split(/_/,$newbook);
	my ($imageurl,$error) =
	&process_textbook_image($r,$dom,$confname,'addbook_image',$cdom,$cnum,$configuserok,
	$switchserver,$author_ok);
	if ($imageurl) {
	$confhash{'textbooks'}{$newbook}{'image'} = $imageurl;
	}
	if ($error) {
	&Apache::lonnet::logthis($error);
	$errors .= '<li><span class="LC_error">'.$error.'</span></li>';
	}
	}
	}
	if (@allpos > 0) {
	my $idx = 0;
	foreach my $item (@allpos) {
	if ($item ne '') {
	$confhash{'textbooks'}{$item}{'order'} = $idx;
	if (ref($domconfig{$action}) eq 'HASH') {
	if (ref($domconfig{$action}{'textbooks'}) eq 'HASH') {
	if (ref($domconfig{$action}{'textbooks'}{$item}) eq 'HASH') {
	if ($domconfig{$action}{'textbooks'}{$item}{'order'} ne $idx) {
	$changes{'textbooks'}{$item} = 1;
	}
	}
	}
	}
	$idx ++;
	}
	}
	}
}	}
} else {	} else {
$confhash{'defaultquota'}{'default'} = $env{'form.defaultquota'};	$confhash{'defaultquota'}{'default'} = $env{'form.defaultquota'};
	$confhash{'authorquota'}{'default'} = $env{'form.authorquota'};
}	}
foreach my $item (@usertools) {	foreach my $item (@usertools) {
foreach my $type (@{$types},'default','_LC_adv') {	foreach my $type (@{$types},'default','_LC_adv') {
Line 5700 sub modify_quotas {	Line 6379 sub modify_quotas {
}	}
}	}
}	}
	if (ref($domconfig{'quotas'}{'authorquota'}) eq 'HASH') {
	foreach my $key (keys(%{$domconfig{'quotas'}{'authorquota'}})) {
	if (exists($confhash{'authorquota'}{$key})) {
	if ($confhash{'authorquota'}{$key} ne $domconfig{'quotas'}{'authorquota'}{$key}) {
	$changes{'authorquota'}{$key} = 1;
	}
	} else {
	$confhash{'authorquota'}{$key} = $domconfig{'quotas'}{'authorquota'}{$key};
	}
	}
	}
}	}
if (ref($confhash{'defaultquota'}) eq 'HASH') {	if (ref($confhash{'defaultquota'}) eq 'HASH') {
foreach my $key (keys(%{$confhash{'defaultquota'}})) {	foreach my $key (keys(%{$confhash{'defaultquota'}})) {
Line 5718 sub modify_quotas {	Line 6408 sub modify_quotas {
}	}
}	}
}	}
	if (ref($confhash{'authorquota'}) eq 'HASH') {
	foreach my $key (keys(%{$confhash{'authorquota'}})) {
	if (ref($domconfig{'quotas'}) eq 'HASH') {
	if (ref($domconfig{'quotas'}{'authorquota'}) eq 'HASH') {
	if (!exists($domconfig{'quotas'}{'authorquota'}{$key})) {
	$changes{'authorquota'}{$key} = 1;
	}
	} else {
	$changes{'authorquota'}{$key} = 1;
	}
	} else {
	$changes{'authorquota'}{$key} = 1;
	}
	}
	}
}	}

if ($context eq 'requestauthor') {	if ($context eq 'requestauthor') {
$domdefaults{'requestauthor'} = \%confhash;	$domdefaults{'requestauthor'} = \%confhash;
} else {	} else {
foreach my $key (keys(%confhash)) {	foreach my $key (keys(%confhash)) {
$domdefaults{$key} = $confhash{$key};	unless (($context eq 'requestcourses') && ($key eq 'textbooks')) {
	$domdefaults{$key} = $confhash{$key};
	}
}	}
}	}

Line 5737 sub modify_quotas {	Line 6444 sub modify_quotas {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
unless (($context eq 'requestcourses') \|\|	unless (($context eq 'requestcourses') \|\|
($context eq 'requestauthor')) {	($context eq 'requestauthor')) {
Line 5749 sub modify_quotas {	Line 6458 sub modify_quotas {
if ($type eq 'default') {	if ($type eq 'default') {
$typetitle = $othertitle;	$typetitle = $othertitle;
}	}
$resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$typetitle,$confhash{'defaultquota'}{$type}).'</li>';	$resulttext .= '<li>'.&mt('[_1] set to [_2] MB',$typetitle,$confhash{'defaultquota'}{$type}).'</li>';
	}
	}
	$resulttext .= '</ul></li>';
	}
	if (ref($changes{'authorquota'}) eq 'HASH') {
	$resulttext .= '<li>'.&mt('Authoring space default quotas').'<ul>';
	foreach my $type (@{$types},'default') {
	if (defined($changes{'authorquota'}{$type})) {
	my $typetitle = $usertypes->{$type};
	if ($type eq 'default') {
	$typetitle = $othertitle;
	}
	$resulttext .= '<li>'.&mt('[_1] set to [_2] MB',$typetitle,$confhash{'authorquota'}{$type}).'</li>';
}	}
}	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
Line 5808 sub modify_quotas {	Line 6530 sub modify_quotas {
$cond = $conditions{$inconf{$type}};	$cond = $conditions{$inconf{$type}};
}	}
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>';	$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>';
	} elsif ($context eq 'requestauthor') {
	$resulttext .= '<li>'.&mt('Set to "[_1]" for "[_2]".',
	$titles{$inconf{$type}},$typetitle);

} else {	} else {
$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>';	$resulttext .= '<li>'.&mt('Set to be available to [_1]',$typetitle).'</li>';
}	}
Line 5842 sub modify_quotas {	Line 6568 sub modify_quotas {
}	}
}	}
}	}
	if ($action eq 'requestcourses') {
	my @offon = ('off','on');
	if ($changes{'uniquecode'}) {
	if (ref($confhash{'uniquecode'}) eq 'HASH') {
	my $codestr = join(' ',map{ &mt($_); } sort(keys(%{$confhash{'uniquecode'}})));
	$resulttext .= '<li>'.
	&mt('Generation of six character code as course identifier for distribution to students set to on for: [_1].','<b>'.$codestr.'</b>').
	'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Generation of six character code as course identifier for distribution to students set to off.').
	'</li>';
	}
	}
	if (ref($changes{'textbooks'}) eq 'HASH') {
	$resulttext .= '<li>'.&mt('Available textbooks updated').'<ul>';
	foreach my $key (sort(keys(%{$changes{'textbooks'}}))) {
	my %coursehash = &Apache::lonnet::coursedescription($key);
	my $coursetitle = $coursehash{'description'};
	my $position = $confhash{'textbooks'}{$key}{'order'} + 1;
	$resulttext .= '<li>';
	foreach my $item ('subject','title','author') {
	my $name = $item.':';
	$name =~ s/^(\w)/\U$1/;
	$resulttext .= &mt($name).' '.$confhash{'textbooks'}{$key}{$item}.'<br />';
	}
	$resulttext .= ' '.&mt('Order: [_1]',$position).'<br />';
	if ($confhash{'textbooks'}{$key}{'image'}) {
	$resulttext .= ' '.&mt('Image: [_1]',
	'<img src="'.$confhash{'textbooks'}{$key}{'image'}.'"'.
	' alt="Textbook cover" />').'<br />';
	}
	$resulttext .= ' '.&mt('LON-CAPA Course: [_1]',$coursetitle).'</li>';
	}
	$resulttext .= '</ul></li>';
	}
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
if (keys(%newenv)) {	if (keys(%newenv)) {
&Apache::lonnet::appenv(\%newenv);	&Apache::lonnet::appenv(\%newenv);
Line 5859 sub modify_quotas {	Line 6621 sub modify_quotas {
$resulttext = '<span class="LC_error">'.	$resulttext = '<span class="LC_error">'.
&mt('An error occurred: [_1]',$putresult).'</span>';	&mt('An error occurred: [_1]',$putresult).'</span>';
}	}
	if ($errors) {
	$resulttext .= '<p>'.&mt('The following errors occurred when modifying Textbook settings.').
	'<ul>'.$errors.'</ul></p>';
	}
return $resulttext;	return $resulttext;
}	}

	sub process_textbook_image {
	my ($r,$dom,$confname,$caller,$cdom,$cnum,$configuserok,$switchserver,$author_ok) = @_;
	my $filename = $env{'form.'.$caller.'.filename'};
	my ($error,$url);
	my ($width,$height) = (50,50);
	if ($configuserok eq 'ok') {
	if ($switchserver) {
	$error = &mt('Upload of textbook image is not permitted to this server: [_1]',
	$switchserver);
	} elsif ($author_ok eq 'ok') {
	my ($result,$imageurl) =
	&publishlogo($r,'upload',$caller,$dom,$confname,
	"textbooks/$dom/$cnum/cover",$width,$height);
	if ($result eq 'ok') {
	$url = $imageurl;
	} else {
	$error = &mt("Upload of [_1] failed because an error occurred publishing the file in RES space. Error was: [_2].",$filename,$result);
	}
	} else {
	$error = &mt("Upload of [_1] failed because an author role could not be assigned to a Domain Configuration user ([_2]) in domain: [_3]. Error was: [_4].",$filename,$confname,$dom,$author_ok);
	}
	} else {
	$error = &mt("Upload of [_1] failed because a Domain Configuration user ([_2]) could not be created in domain: [_3]. Error was: [_4].",$filename,$confname,$dom,$configuserok);
	}
	return ($url,$error);
	}

sub modify_autoenroll {	sub modify_autoenroll {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,%changes);	my ($resulttext,%changes);
my %currautoenroll;	my %currautoenroll;
if (ref($domconfig{'autoenroll'}) eq 'HASH') {	if (ref($domconfig{'autoenroll'}) eq 'HASH') {
Line 5931 sub modify_autoenroll {	Line 6724 sub modify_autoenroll {
if ($changes{'coowners'}) {	if ($changes{'coowners'}) {
$resulttext .= '<li>'.&mt("$title{'coowners'} set to $offon[$env{'form.autoassign_coowners'}]").'</li>';	$resulttext .= '<li>'.&mt("$title{'coowners'} set to $offon[$env{'form.autoassign_coowners'}]").'</li>';
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
Line 6181 sub modify_autocreate {	Line 6977 sub modify_autocreate {
foreach my $item (@types) {	foreach my $item (@types) {
if ($changes{$item}) {	if ($changes{$item}) {
my $newtxt = $offon[$newvals{$item}];	my $newtxt = $offon[$newvals{$item}];
$resulttext .= '<li>'.&mt("$title{$item} set to [_1]$newtxt [_2]",'<b>','</b>').'</li>';	$resulttext .= '<li>'.
	&mt("$title{$item} set to [_1]$newtxt [_2]",
	'<b>','</b>').
	'</li>';
}	}
}	}
if ($changes{'xmldc'}) {	if ($changes{'xmldc'}) {
my ($dcname,$dcdom) = split(':',$newvals{'xmldc'});	my ($dcname,$dcdom) = split(':',$newvals{'xmldc'});
my $newtxt = &Apache::loncommon::plainname($dcname,$dcdom);	my $newtxt = &Apache::loncommon::plainname($dcname,$dcdom);
$resulttext .= '<li>'.&mt("$title{'xmldc'} set to [_1]$newtxt [_2]",'<b>','</b>').'</li>';	$resulttext .= '<li>'.&mt("$title{'xmldc'} set to [_1]",'<b>'.$newtxt.'</b>').'</li>';
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
Line 6333 sub modify_directorysrch {	Line 7132 sub modify_directorysrch {
} else {	} else {
$chgtext =~ s/\; $//;	$chgtext =~ s/\; $//;
}	}
$resulttext .= '<li>'.&mt("Users from domain '<span class=\"LC_cusr_emph\">[_1]</span>' permitted to search the institutional directory set to: [_2]",$dom,$chgtext).'</li>';	$resulttext .=
	'<li>'.
	&mt("Users from domain '[_1]' permitted to search the institutional directory set to: [_2]",
	'<span class="LC_cusr_emph">'.$dom.'</span>',$chgtext).
	'</li>';
}	}
}	}
}	}
Line 6361 sub modify_directorysrch {	Line 7164 sub modify_directorysrch {
}	}
}	}
$chgtext =~ s/\; $//;	$chgtext =~ s/\; $//;
$resulttext .= '<li>'.&mt("$title{'searchtypes'} set to: \"[_1]\"",$chgtext).'</li>';	$resulttext .= '<li>'.&mt($title{'searchtypes'}.' set to: "[_1]"',$chgtext).'</li>';
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
Line 6375 sub modify_directorysrch {	Line 7178 sub modify_directorysrch {
}	}

sub modify_contacts {	sub modify_contacts {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,%currsetting,%newsetting,%changes,%contacts_hash);	my ($resulttext,%currsetting,%newsetting,%changes,%contacts_hash);
if (ref($domconfig{'contacts'}) eq 'HASH') {	if (ref($domconfig{'contacts'}) eq 'HASH') {
foreach my $key (keys(%{$domconfig{'contacts'}})) {	foreach my $key (keys(%{$domconfig{'contacts'}})) {
Line 6385 sub modify_contacts {	Line 7188 sub modify_contacts {
my (%others,%to,%bcc);	my (%others,%to,%bcc);
my @contacts = ('supportemail','adminemail');	my @contacts = ('supportemail','adminemail');
my @mailings = ('errormail','packagesmail','helpdeskmail','lonstatusmail',	my @mailings = ('errormail','packagesmail','helpdeskmail','lonstatusmail',
'requestsmail');	'requestsmail','updatesmail','idconflictsmail');
	my @toggles = ('reporterrors','reportupdates');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
@{$newsetting{$type}} =	@{$newsetting{$type}} =
&Apache::loncommon::get_env_multiple('form.'.$type);	&Apache::loncommon::get_env_multiple('form.'.$type);
Line 6407 sub modify_contacts {	Line 7211 sub modify_contacts {
$to{$item} = $env{'form.'.$item};	$to{$item} = $env{'form.'.$item};
$contacts_hash{'contacts'}{$item} = $to{$item};	$contacts_hash{'contacts'}{$item} = $to{$item};
}	}
	foreach my $item (@toggles) {
	if ($env{'form.'.$item} =~ /^(0\|1)$/) {
	$contacts_hash{'contacts'}{$item} = $env{'form.'.$item};
	}
	}
if (keys(%currsetting) > 0) {	if (keys(%currsetting) > 0) {
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($to{$item} ne $currsetting{$item}) {	if ($to{$item} ne $currsetting{$item}) {
Line 6441 sub modify_contacts {	Line 7250 sub modify_contacts {
$default{'helpdeskmail'} = 'supportemail';	$default{'helpdeskmail'} = 'supportemail';
$default{'lonstatusmail'} = 'adminemail';	$default{'lonstatusmail'} = 'adminemail';
$default{'requestsmail'} = 'adminemail';	$default{'requestsmail'} = 'adminemail';
	$default{'updatesmail'} = 'adminemail';
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($to{$item} ne $default{$item}) {	if ($to{$item} ne $default{$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
}	}
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if ((@{$newsetting{$type}} != 1) \|\| ($newsetting{$type}[0] ne $default{$type})) {	if ((@{$newsetting{$type}} != 1) \|\| ($newsetting{$type}[0] ne $default{$type})) {
Line 6461 sub modify_contacts {	Line 7271 sub modify_contacts {
}	}
}	}
}	}
	foreach my $item (@toggles) {
	if (($env{'form.'.$item} == 1) && ($currsetting{$item} == 0)) {
	$changes{$item} = 1;
	} elsif ((!$env{'form.'.$item}) &&
	(($currsetting{$item} eq '') \|\| ($currsetting{$item} == 1))) {
	$changes{$item} = 1;
	}
	}
my $putresult = &Apache::lonnet::put_dom('configuration',\%contacts_hash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%contacts_hash,
$dom);	$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
my ($titles,$short_titles) = &contact_titles();	my ($titles,$short_titles) = &contact_titles();
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (@contacts) {	foreach my $item (@contacts) {
Line 6495 sub modify_contacts {	Line 7317 sub modify_contacts {
$resulttext .= '</li>';	$resulttext .= '</li>';
}	}
}	}
	my @offon = ('off','on');
	if ($changes{'reporterrors'}) {
	$resulttext .= '<li>'.
	&mt('E-mail error reports to [_1] set to "'.
	$offon[$env{'form.reporterrors'}].'".',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500)).
	'</li>';
	}
	if ($changes{'reportupdates'}) {
	$resulttext .= '<li>'.
	&mt('E-mail record of completed LON-CAPA updates to [_1] set to "'.
	$offon[$env{'form.reportupdates'}].'".',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500)).
	'</li>';
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = &mt('No changes made to contact information');	$resulttext = &mt('No changes made to contact information');
Line 6522 sub modify_usercreation {	Line 7361 sub modify_usercreation {
foreach my $item(@contexts) {	foreach my $item(@contexts) {
if ($item eq 'selfcreate') {	if ($item eq 'selfcreate') {
@{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item);	@{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) \|\| ($domdefaults{'auth_def'} eq 'localauth'))) {	if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) \|\| ($domdefaults{'auth_def'} eq 'localauth'))) {
if (ref($cancreate{$item}) eq 'ARRAY') {	if (ref($cancreate{$item}) eq 'ARRAY') {
if (grep(/^login$/,@{$cancreate{$item}})) {	if (grep(/^login$/,@{$cancreate{$item}})) {
Line 6947 sub process_captcha {	Line 7786 sub process_captcha {
if (ref($current->{'recaptchakeys'}) eq 'HASH') {	if (ref($current->{'recaptchakeys'}) eq 'HASH') {
$currpub = $current->{'recaptchakeys'}{'public'};	$currpub = $current->{'recaptchakeys'}{'public'};
$currpriv = $current->{'recaptchakeys'}{'private'};	$currpriv = $current->{'recaptchakeys'}{'private'};
$newsettings->{'recaptchakeys'} = {	unless ($newsettings->{'captcha'} eq 'recaptcha') {
public => '',	$newsettings->{'recaptchakeys'} = {
private => '',	public => '',
}	private => '',
	}
	}
}	}
if (($newpub ne $currpub) \|\| ($newpriv ne $currpriv)) {	if (($newpub ne $currpub) \|\| ($newpriv ne $currpriv)) {
if ($container eq 'cancreate') {	if ($container eq 'cancreate') {
Line 7087 sub modify_usermodification {	Line 7928 sub modify_usermodification {
}	}

sub modify_defaults {	sub modify_defaults {
my ($dom,$r) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$mailmsgtxt,%newvalues,%changes,@errors);	my ($resulttext,$mailmsgtxt,%newvalues,%changes,@errors);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def','portal_def');	my @items = ('auth_def','auth_arg_def','lang_def','timezone_def','datelocale_def','portal_def');
my @authtypes = ('internal','krb4','krb5','localauth');	my @authtypes = ('internal','krb4','krb5','localauth');
foreach my $item (@items) {	foreach my $item (@items) {
Line 7149 sub modify_defaults {	Line 7990 sub modify_defaults {
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
my $version = $r->dir_config('lonVersion');	my $version = &Apache::lonnet::get_server_loncaparev($dom);
my $mailmsgtext = "Changes made to domain settings in a LON-CAPA installation - domain: $dom (running version: $version) - dns_domain.tab needs to be updated with the following changes, to support legacy 2.4, 2.5 and 2.6 versions of LON-CAPA.\n\n";	my $mailmsgtext = "Changes made to domain settings in a LON-CAPA installation - domain: $dom (running version: $version) - dns_domain.tab needs to be updated with the following changes, to support legacy 2.4, 2.5 and 2.6 versions of LON-CAPA.\n\n";
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
my $value = $env{'form.'.$item};	my $value = $env{'form.'.$item};
Line 7172 sub modify_defaults {	Line 8013 sub modify_defaults {
$mailmsgtext .= "\n";	$mailmsgtext .= "\n";
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
if ($changes{'auth_def'} \|\| $changes{'auth_arg_def'} \|\| $changes{'lang_def'} \|\| $changes{'datelocale_def'}) {	if ($changes{'auth_def'} \|\| $changes{'auth_arg_def'} \|\| $changes{'lang_def'} \|\| $changes{'datelocale_def'}) {
my $sysmail = $r->dir_config('lonSysEMail');	my $notify = 1;
&Apache::lonmsg::sendemail($sysmail,"LON-CAPA Domain Settings Change - $dom",$mailmsgtext);	if (ref($domconfig{'contacts'}) eq 'HASH') {
	if ($domconfig{'contacts'}{'reportupdates'} == 0) {
	$notify = 0;
	}
	}
	if ($notify) {
	&Apache::lonmsg::sendemail('installrecord@loncapa.org',
	"LON-CAPA Domain Settings Change - $dom",
	$mailmsgtext);
	}
}	}
} else {	} else {
$resulttext = &mt('No changes made to default authentication/language/timezone settings');	$resulttext = &mt('No changes made to default authentication/language/timezone settings');
Line 7194 sub modify_defaults {	Line 8047 sub modify_defaults {
}	}

sub modify_scantron {	sub modify_scantron {
my ($r,$dom,$confname,%domconfig) = @_;	my ($r,$dom,$confname,$lastactref,%domconfig) = @_;
my ($resulttext,%confhash,%changes,$errors);	my ($resulttext,%confhash,%changes,$errors);
my $custom = 'custom.tab';	my $custom = 'custom.tab';
my $default = 'default.tab';	my $default = 'default.tab';
Line 7255 sub modify_scantron {	Line 8108 sub modify_scantron {
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
} else {	} else {
$resulttext = &mt('No changes made to bubblesheet format file');	$resulttext = &mt('No changes made to bubblesheet format file');
}	}
Line 7644 sub modify_helpsettings {	Line 8500 sub modify_helpsettings {
} elsif ($domconfig{'helpsettings'}{$item} ne $env{'form.'.$item}) {	} elsif ($domconfig{'helpsettings'}{$item} ne $env{'form.'.$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
}	}
if (($env{'form.'.$item} eq '0') \|\| ($env{'form.'.$item} eq '1')) {	if (($env{'form.'.$item} eq '0') \|\| ($env{'form.'.$item} eq '1')) {
$helphash{'helpsettings'}{$item} = $env{'form.'.$item};	$helphash{'helpsettings'}{$item} = $env{'form.'.$item};
}	}
Line 7678 sub modify_helpsettings {	Line 8534 sub modify_helpsettings {
}	}

sub modify_coursedefaults {	sub modify_coursedefaults {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,%changes,%defaultshash);	my ($resulttext,$errors,%changes,%defaultshash);
my %defaultchecked = ('canuse_pdfforms' => 'off');	my %defaultchecked = ('canuse_pdfforms' => 'off');
my @offon = ('off','on');
my @toggles = ('canuse_pdfforms');	my @toggles = ('canuse_pdfforms');
	my @numbers = ('anonsurvey_threshold','uploadquota_official','uploadquota_unofficial',
	'uploadquota_community','uploadquota_textbook');
	my @types = ('official','unofficial','community','textbook');
	my %staticdefaults = (
	anonsurvey_threshold => 10,
	uploadquota => 500,
	);

$defaultshash{'coursedefaults'} = {};	$defaultshash{'coursedefaults'} = {};

Line 7698 sub modify_coursedefaults {	Line 8560 sub modify_coursedefaults {
if (($domconfig{'coursedefaults'}{$item} eq '') &&	if (($domconfig{'coursedefaults'}{$item} eq '') &&
($env{'form.'.$item} eq '0')) {	($env{'form.'.$item} eq '0')) {
$changes{$item} = 1;	$changes{$item} = 1;
} elsif ($domconfig{'coursdefaults'}{$item} ne $env{'form.'.$item}) {	} elsif ($domconfig{'coursedefaults'}{$item} ne $env{'form.'.$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
} elsif ($defaultchecked{$item} eq 'off') {	} elsif ($defaultchecked{$item} eq 'off') {
Line 7711 sub modify_coursedefaults {	Line 8573 sub modify_coursedefaults {
}	}
$defaultshash{'coursedefaults'}{$item} = $env{'form.'.$item};	$defaultshash{'coursedefaults'}{$item} = $env{'form.'.$item};
}	}
my $currdefresponder = $domconfig{'coursedefaults'}{'anonsurvey_threshold'};	foreach my $item (@numbers) {
my $newdefresponder = $env{'form.anonsurvey_threshold'};	my ($currdef,$newdef);
$newdefresponder =~ s/\D//g;	$newdef = $env{'form.'.$item};
if ($newdefresponder eq '' \|\| $newdefresponder < 1) {	if ($item eq 'anonsurvey_threshold') {
$newdefresponder = 1;	$currdef = $domconfig{'coursedefaults'}{$item};
}	$newdef =~ s/\D//g;
$defaultshash{'coursedefaults'}{'anonsurvey_threshold'} = $newdefresponder;	if ($newdef eq '' \|\| $newdef < 1) {
if ($currdefresponder ne $newdefresponder) {	$newdef = 1;
unless ($currdefresponder eq '' && $newdefresponder == 10) {	}
$changes{'anonsurvey_threshold'} = 1;	$defaultshash{'coursedefaults'}{$item} = $newdef;
	} else {
	my ($type) = ($item =~ /^\Quploadquota_\E(\w+)$/);
	if (ref($domconfig{'coursedefaults'}{'uploadquota'}) eq 'HASH') {
	$currdef = $domconfig{'coursedefaults'}{'uploadquota'}{$type};
	}
	$newdef =~ s/[^\w.\-]//g;
	$defaultshash{'coursedefaults'}{'uploadquota'}{$type} = $newdef;
	}
	if ($currdef ne $newdef) {
	my $staticdef;
	if ($item eq 'anonsurvey_threshold') {
	unless (($currdef eq '') && ($newdef == $staticdefaults{$item})) {
	$changes{$item} = 1;
	}
	} else {
	unless (($currdef eq '') && ($newdef == $staticdefaults{'uploadquota'})) {
	$changes{'uploadquota'} = 1;
	}
	}
}	}
}	}
	my $officialcreds = $env{'form.official_credits'};
	$officialcreds =~ s/[^\d.]+//g;
	my $unofficialcreds = $env{'form.unofficial_credits'};
	$unofficialcreds =~ s/[^\d.]+//g;
	my $textbookcreds = $env{'form.textbook_credits'};
	$textbookcreds =~ s/[^\d.]+//g;
	if (ref($domconfig{'coursedefaults'}{'coursecredits'} ne 'HASH') &&
	($env{'form.coursecredits'} eq '1')) {
	$changes{'coursecredits'} = 1;
	} else {
	if (($domconfig{'coursedefaults'}{'coursecredits'}{'official'} ne $officialcreds) \|\|
	($domconfig{'coursedefaults'}{'coursecredits'}{'unofficial'} ne $unofficialcreds) \|\|
	($domconfig{'coursedefaults'}{'coursecredits'}{'textbook'} ne $textbookcreds)) {
	$changes{'coursecredits'} = 1;
	}
	}
	$defaultshash{'coursedefaults'}{'coursecredits'} = {
	official => $officialcreds,
	unofficial => $unofficialcreds,
	textbook => $textbookcreds,
	}
}	}
my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%defaultshash,
$dom);	$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
if ($changes{'canuse_pdfforms'}) {	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	if (($changes{'canuse_pdfforms'}) \|\| ($changes{'coursecredits'}) \|\| ($changes{'uploadquota'})) {
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'};	if ($changes{'canuse_pdfforms'}) {
	$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'};
	}
	if ($changes{'coursecredits'}) {
	if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
	$domdefaults{'officialcredits'} =
	$defaultshash{'coursedefaults'}{'coursecredits'}{'official'};
	$domdefaults{'unofficialcredits'} =
	$defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'};
	$domdefaults{'textbookcredits'} =
	$domdefaults{'coursedefaults'}{'coursecredits'}{'textbook'};
	}
	}
	if ($changes{'uploadquota'}) {
	if (ref($defaultshash{'coursedefaults'}{'uploadquota'}) eq 'HASH') {
	foreach my $type (@types) {
	$domdefaults{$type.'quota'}=$defaultshash{'coursedefaults'}{'uploadquota'}{$type};
	}
	}
	}
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
}	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
Line 7743 sub modify_coursedefaults {	Line 8667 sub modify_coursedefaults {
$resulttext .= '<li>'.&mt('Course/Community users can create/upload PDF forms set to "off"').'</li>';	$resulttext .= '<li>'.&mt('Course/Community users can create/upload PDF forms set to "off"').'</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') {
	if (ref($defaultshash{'coursedefaults'}{'uploadquota'}) eq 'HASH') {
	$resulttext .= '<li>'.&mt('Default quota for content uploaded to a course/community via Course Editor set as follows:').'<ul>'.
	'<li>'.&mt('Official courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'official'}.'</b>').'</li>'.
	'<li>'.&mt('Unofficial courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'unofficial'}.'</b>').'</li>'.
	'<li>'.&mt('Textbook courses: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'textbook'}.'</b>').'</li>'.

	'<li>'.&mt('Communities: [_1] MB','<b>'.$defaultshash{'coursedefaults'}{'uploadquota'}{'community'}.'</b>').'</li>'.
	'</ul>'.
	'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Default quota for content uploaded via Course Editor remains default: [_1] MB',$staticdefaults{'uploadquota'}).'</li>';
	}
	} elsif ($item eq 'coursecredits') {
	if (ref($defaultshash{'coursedefaults'}{'coursecredits'}) eq 'HASH') {
	if (($domdefaults{'officialcredits'} eq '') &&
	($domdefaults{'unofficialcredits'} eq '') &&
	($domdefaults{'textbookcredits'} eq '')) {
	$resulttext .= '<li>'.&mt('Student credits not in use for courses in this domain').'</li>';
	} else {
	$resulttext .= '<li>'.&mt('Student credits can be set per course by a Domain Coordinator, with the following defaults applying:').'<ul>'.
	'<li>'.&mt('Official courses: [_1]',$defaultshash{'coursedefaults'}{'coursecredits'}{'official'}).'</li>'.
	'<li>'.&mt('Unofficial courses: [_1]',$defaultshash{'coursedefaults'}{'coursecredits'}{'unofficial'}).'</li>'.
	'<li>'.&mt('Textbook courses: [_1]',$defaultshash{'coursedefaults'}{'coursecredits'}{'textbook'}).'</li>'.
	'</ul>'.
	'</li>';
	}
	} else {
	$resulttext .= '<li>'.&mt('Student credits not in use for courses in this domain').'</li>';
	}
}	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
Line 7758 sub modify_coursedefaults {	Line 8712 sub modify_coursedefaults {
}	}

sub modify_usersessions {	sub modify_usersessions {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my @hostingtypes = ('version','excludedomain','includedomain');	my @hostingtypes = ('version','excludedomain','includedomain');
my @offloadtypes = ('primary','default');	my @offloadtypes = ('primary','default');
my %types = (	my %types = (
Line 7775 sub modify_usersessions {	Line 8729 sub modify_usersessions {
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
$defaultshash{'usersessions'}{$prefix} = {};	$defaultshash{'usersessions'}{$prefix} = {};
}	}
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my $resulttext;	my $resulttext;
my %iphost = &Apache::lonnet::get_iphost();	my %iphost = &Apache::lonnet::get_iphost();
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
Line 7951 sub modify_usersessions {	Line 8905 sub modify_usersessions {
}	}
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my %lt = &usersession_titles();	my %lt = &usersession_titles();
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
Line 7962 sub modify_usersessions {	Line 8919 sub modify_usersessions {
foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) {	foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) {
$resulttext .= '<li><b>'.$lonhost.'</b> ';	$resulttext .= '<li><b>'.$lonhost.'</b> ';
my $lonhostdom = &Apache::lonnet::host_domain($lonhost);	my $lonhostdom = &Apache::lonnet::host_domain($lonhost);
&Apache::lonnet::remote_devalidate_cache($lonhost,'spares',$lonhostdom);	my $cachekey = &escape('spares').':'.&escape($lonhostdom);
	&Apache::lonnet::remote_devalidate_cache($lonhost,[$cachekey]);
if (ref($changes{$prefix}{$lonhost}) eq 'HASH') {	if (ref($changes{$prefix}{$lonhost}) eq 'HASH') {
foreach my $type (@{$types{$prefix}}) {	foreach my $type (@{$types{$prefix}}) {
if ($changes{$prefix}{$lonhost}{$type}) {	if ($changes{$prefix}{$lonhost}{$type}) {
Line 8036 sub modify_loadbalancing {	Line 8994 sub modify_loadbalancing {
my @sparestypes = ('primary','default');	my @sparestypes = ('primary','default');
my %typetitles = &sparestype_titles();	my %typetitles = &sparestype_titles();
my $resulttext;	my $resulttext;
if (keys(%servers) > 1) {	my (%currbalancer,%currtargets,%currrules,%existing);
my ($currbalancer,$currtargets,$currrules);	if (ref($domconfig{'loadbalancing'}) eq 'HASH') {
if (ref($domconfig{'loadbalancing'}) eq 'HASH') {	%existing = %{$domconfig{'loadbalancing'}};
$currbalancer = $domconfig{'loadbalancing'}{'lonhost'};	}
$currtargets = $domconfig{'loadbalancing'}{'targets'};	&get_loadbalancers_config(\%servers,\%existing,\%currbalancer,
$currrules = $domconfig{'loadbalancing'}{'rules'};	\%currtargets,\%currrules);
} else {	my ($saveloadbalancing,%defaultshash,%changes);
($currbalancer,$currtargets) =	my ($alltypes,$othertypes,$titles) =
&Apache::lonnet::get_lonbalancer_config(\%servers);	&loadbalancing_titles($dom,$intdom,$usertypes,$types);
}	my %ruletitles = &offloadtype_text();
my ($saveloadbalancing,%defaultshash,%changes);	my @deletions = &Apache::loncommon::get_env_multiple('form.loadbalancing_delete');
my ($alltypes,$othertypes,$titles) =	for (my $i=0; $i<$env{'form.loadbalancing_total'}; $i++) {
&loadbalancing_titles($dom,$intdom,$usertypes,$types);	my $balancer = $env{'form.loadbalancing_lonhost_'.$i};
my %ruletitles = &offloadtype_text();	if ($balancer eq '') {
my $balancer = $env{'form.loadbalancing_lonhost'};	next;
if (!$servers{$balancer}) {	}
undef($balancer);	if (!exists($servers{$balancer})) {
}	if (exists($currbalancer{$balancer})) {
if ($currbalancer ne $balancer) {	push(@{$changes{'delete'}},$balancer);
$changes{'lonhost'} = 1;
}
$defaultshash{'loadbalancing'}{'lonhost'} = $balancer;
if ($balancer ne '') {
unless (ref($domconfig{'loadbalancing'}) eq 'HASH') {
$saveloadbalancing = 1;
}	}
foreach my $sparetype (@sparestypes) {	next;
my @targets = &Apache::loncommon::get_env_multiple('form.loadbalancing_target_'.$sparetype);	}
my @offloadto;	if ((@deletions > 0) && (grep(/^\Q$i\E$/,@deletions))) {
foreach my $target (@targets) {	push(@{$changes{'delete'}},$balancer);
if (($servers{$target}) && ($target ne $balancer)) {	next;
if ($sparetype eq 'default') {	}
if (ref($defaultshash{'loadbalancing'}{'targets'}{'primary'}) eq 'ARRAY') {	if (!exists($currbalancer{$balancer})) {
next if (grep(/^\Q$target\E$/,@{$defaultshash{'loadbalancing'}{'targets'}{'primary'}}));	push(@{$changes{'add'}},$balancer);
}	}
}	$defaultshash{'loadbalancing'}{$balancer}{'targets'}{'primary'} = [];
unless(grep(/^\Q$target\E$/,@offloadto)) {	$defaultshash{'loadbalancing'}{$balancer}{'targets'}{'default'} = [];
push(@offloadto,$target);	$defaultshash{'loadbalancing'}{$balancer}{'rules'} = {};
	unless (ref($domconfig{'loadbalancing'}) eq 'HASH') {
	$saveloadbalancing = 1;
	}
	foreach my $sparetype (@sparestypes) {
	my @targets = &Apache::loncommon::get_env_multiple('form.loadbalancing_target_'.$i.'_'.$sparetype);
	my @offloadto;
	foreach my $target (@targets) {
	if (($servers{$target}) && ($target ne $balancer)) {
	if ($sparetype eq 'default') {
	if (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{'primary'}) eq 'ARRAY') {
	next if (grep(/^\Q$target\E$/,@{$defaultshash{'loadbalancing'}{$balancer}{'targets'}{'primary'}}));
}	}
}	}
$defaultshash{'loadbalancing'}{'targets'}{$sparetype} = \@offloadto;	unless(grep(/^\Q$target\E$/,@offloadto)) {
	push(@offloadto,$target);
	}
}	}
}	$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype} = \@offloadto;
} else {
foreach my $sparetype (@sparestypes) {
$defaultshash{'loadbalancing'}{'targets'}{$sparetype} = [];
}	}
}	}
if (ref($currtargets) eq 'HASH') {	if (ref($currtargets{$balancer}) eq 'HASH') {
foreach my $sparetype (@sparestypes) {	foreach my $sparetype (@sparestypes) {
if (ref($currtargets->{$sparetype}) eq 'ARRAY') {	if (ref($currtargets{$balancer}{$sparetype}) eq 'ARRAY') {
my @targetdiffs = &Apache::loncommon::compare_arrays($currtargets->{$sparetype},$defaultshash{'loadbalancing'}{'targets'}{$sparetype});	my @targetdiffs = &Apache::loncommon::compare_arrays($currtargets{$balancer}{$sparetype},$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype});
if (@targetdiffs > 0) {	if (@targetdiffs > 0) {
$changes{'targets'} = 1;	$changes{'curr'}{$balancer}{'targets'} = 1;
}	}
} elsif (ref($defaultshash{'loadbalancing'}{'targets'}{$sparetype}) eq 'ARRAY') {	} elsif (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}) eq 'ARRAY') {
if (@{$defaultshash{'loadbalancing'}{'targets'}{$sparetype}} > 0) {	if (@{$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}} > 0) {
$changes{'targets'} = 1;	$changes{'curr'}{$balancer}{'targets'} = 1;
}	}
}	}
}	}
} else {	} else {
foreach my $sparetype (@sparestypes) {	if (ref($defaultshash{'loadbalancing'}{$balancer}) eq 'HASH') {
if (ref($defaultshash{'loadbalancing'}{'targets'}{$sparetype}) eq 'ARRAY') {	foreach my $sparetype (@sparestypes) {
if (@{$defaultshash{'loadbalancing'}{'targets'}{$sparetype}} > 0) {	if (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}) eq 'ARRAY') {
$changes{'targets'} = 1;	if (@{$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}} > 0) {
	$changes{'curr'}{$balancer}{'targets'} = 1;
	}
}	}
}	}
}	}
}	}
my $ishomedom;	my $ishomedom;
if ($balancer ne '') {	if (&Apache::lonnet::host_domain($balancer) eq $dom) {
if (&Apache::lonnet::host_domain($balancer) eq $dom) {	$ishomedom = 1;
$ishomedom = 1;
}
}	}
if (ref($alltypes) eq 'ARRAY') {	if (ref($alltypes) eq 'ARRAY') {
foreach my $type (@{$alltypes}) {	foreach my $type (@{$alltypes}) {
my $rule;	my $rule;
if ($balancer ne '') {	unless ((($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) &&
unless ((($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) &&
(!$ishomedom)) {	(!$ishomedom)) {
$rule = $env{'form.loadbalancing_rules_'.$type};	$rule = $env{'form.loadbalancing_rules_'.$i.'_'.$type};
}
if ($rule eq 'specific') {
$rule = $env{'form.loadbalancing_singleserver_'.$type};
}
}	}
$defaultshash{'loadbalancing'}{'rules'}{$type} = $rule;	if ($rule eq 'specific') {
if (ref($currrules) eq 'HASH') {	$rule = $env{'form.loadbalancing_singleserver_'.$i.'_'.$type};
if ($rule ne $currrules->{$type}) {	}
$changes{'rules'}{$type} = 1;	$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type} = $rule;
	if (ref($currrules{$balancer}) eq 'HASH') {
	if ($rule ne $currrules{$balancer}{$type}) {
	$changes{'curr'}{$balancer}{'rules'}{$type} = 1;
}	}
} elsif ($rule ne '') {	} elsif ($rule ne '') {
$changes{'rules'}{$type} = 1;	$changes{'curr'}{$balancer}{'rules'}{$type} = 1;
}	}
}	}
}	}
my $nochgmsg = &mt('No changes made to Load Balancer settings.');	}
if ((keys(%changes) > 0) \|\| ($saveloadbalancing)) {	my $nochgmsg = &mt('No changes made to Load Balancer settings.');
my $putresult = &Apache::lonnet::put_dom('configuration',	if ((keys(%changes) > 0) \|\| ($saveloadbalancing)) {
\%defaultshash,$dom);	unless (ref($defaultshash{'loadbalancing'}) eq 'HASH') {
if ($putresult eq 'ok') {	$defaultshash{'loadbalancing'} = {};
if (keys(%changes) > 0) {	}
if ($changes{'lonhost'}) {	my $putresult = &Apache::lonnet::put_dom('configuration',
if ($currbalancer ne '') {	\%defaultshash,$dom);
&Apache::lonnet::remote_devalidate_cache($currbalancer,'loadbalancing',$dom);	if ($putresult eq 'ok') {
}	if (keys(%changes) > 0) {
if ($balancer eq '') {	if (ref($changes{'delete'}) eq 'ARRAY') {
$resulttext .= '<li>'.&mt('Load Balancing with dedicated server discontinued').'</li>';	foreach my $balancer (sort(@{$changes{'delete'}})) {
} else {	$resulttext .= '<li>'.&mt('Load Balancing discontinued for: [_1]',$balancer).'</li>';
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);	my $cachekey = &escape('loadbalancing').':'.&escape($dom);
$resulttext .= '<li>'.&mt('Dedicated Load Balancer server set to [_1]',$balancer);	&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);
}	}
} else {	}
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);	if (ref($changes{'add'}) eq 'ARRAY') {
}	foreach my $balancer (sort(@{$changes{'add'}})) {
if (($changes{'targets'}) && ($balancer ne '')) {	$resulttext .= '<li>'.&mt('Load Balancing enabled for: [_1]',$balancer);
my %offloadstr;	}
foreach my $sparetype (@sparestypes) {	}
if (ref($defaultshash{'loadbalancing'}{'targets'}{$sparetype}) eq 'ARRAY') {	if (ref($changes{'curr'}) eq 'HASH') {
if (@{$defaultshash{'loadbalancing'}{'targets'}{$sparetype}} > 0) {	foreach my $balancer (sort(keys(%{$changes{'curr'}}))) {
$offloadstr{$sparetype} = join(', ',@{$defaultshash{'loadbalancing'}{'targets'}{$sparetype}});	if (ref($changes{'curr'}{$balancer}) eq 'HASH') {
	if ($changes{'curr'}{$balancer}{'targets'}) {
	my %offloadstr;
	foreach my $sparetype (@sparestypes) {
	if (ref($defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}) eq 'ARRAY') {
	if (@{$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}} > 0) {
	$offloadstr{$sparetype} = join(', ',@{$defaultshash{'loadbalancing'}{$balancer}{'targets'}{$sparetype}});
	}
	}
}	}
}	if (keys(%offloadstr) == 0) {
}	$resulttext .= '<li>'.&mt("Servers to which Load Balance server offloads set to 'None', by default").'</li>';
if (keys(%offloadstr) == 0) {
$resulttext .= '<li>'.&mt("Servers to which Load Balance server offloads set to 'None', by default").'</li>';
} else {
my $showoffload;
foreach my $sparetype (@sparestypes) {
$showoffload .= '<i>'.$typetitles{$sparetype}.'</i>: ';
if (defined($offloadstr{$sparetype})) {
$showoffload .= $offloadstr{$sparetype};
} else {	} else {
$showoffload .= &mt('None');	my $showoffload;
	foreach my $sparetype (@sparestypes) {
	$showoffload .= '<i>'.$typetitles{$sparetype}.'</i>: ';
	if (defined($offloadstr{$sparetype})) {
	$showoffload .= $offloadstr{$sparetype};
	} else {
	$showoffload .= &mt('None');
	}
	$showoffload .= (' 'x3);
	}
	$resulttext .= '<li>'.&mt('By default, Load Balancer: [_1] set to offload to - [_2]',$balancer,$showoffload).'</li>';
}	}
$showoffload .= (' 'x3);
}	}
$resulttext .= '<li>'.&mt('By default, Load Balancer server set to offload to: [_1]',$showoffload).'</li>';
}	}
}	if (ref($changes{'curr'}{$balancer}{'rules'}) eq 'HASH') {
if ((ref($changes{'rules'}) eq 'HASH') && ($balancer ne '')) {	if ((ref($alltypes) eq 'ARRAY') && (ref($titles) eq 'HASH')) {
if ((ref($alltypes) eq 'ARRAY') && (ref($titles) eq 'HASH')) {	foreach my $type (@{$alltypes}) {
foreach my $type (@{$alltypes}) {	if ($changes{'curr'}{$balancer}{'rules'}{$type}) {
if ($changes{'rules'}{$type}) {	my $rule = $defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type};
my $rule = $defaultshash{'loadbalancing'}{'rules'}{$type};	my $balancetext;
my $balancetext;	if ($rule eq '') {
if ($rule eq '') {	$balancetext = $ruletitles{'default'};
$balancetext = $ruletitles{'default'};	} elsif (($rule eq 'homeserver') \|\| ($rule eq 'externalbalancer') \|\|
} elsif (($rule eq 'homeserver') \|\| ($rule eq 'externalbalancer')) {	($rule eq 'balancer') \|\| ($rule eq 'offloadedto')) {
$balancetext = $ruletitles{$rule};	$balancetext = $ruletitles{$rule};
} else {	} else {
$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{'rules'}{$type});	$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type});
	}
	$resulttext .= '<li>'.&mt('Load Balancer: [_1] -- balancing for [_2] set to - "[_3]"',$balancer,$titles->{$type},$balancetext).'</li>';
}	}
$resulttext .= '<li>'.&mt('Load Balancing for [_1] set to: [_2]',$titles->{$type},$balancetext).'</li>';
}	}
}	}
}	}
	my $cachekey = &escape('loadbalancing').':'.&escape($dom);
	&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);
}	}
if ($resulttext ne '') {	}
$resulttext = &mt('Changes made:').'<ul>'.$resulttext.'</ul>';	if ($resulttext ne '') {
} else {	$resulttext = &mt('Changes made:').'<ul>'.$resulttext.'</ul>';
$resulttext = $nochgmsg;
}
} else {	} else {
$resulttext = $nochgmsg;	$resulttext = $nochgmsg;
if ($balancer ne '') {
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);
}
}	}
} else {	} else {
$resulttext = '<span class="LC_error">'.	$resulttext = $nochgmsg;
&mt('An error occurred: [_1]',$putresult).'</span>';
}	}
} else {	} else {
$resulttext = $nochgmsg;	$resulttext = '<span class="LC_error">'.
	&mt('An error occurred: [_1]',$putresult).'</span>';
}	}
} else {	} else {
$resulttext = &mt('Load Balancing unavailable as this domain only has one server.');	$resulttext = $nochgmsg;
}	}
return $resulttext;	return $resulttext;
}	}
Line 8254 sub recurse_cat_deletes {	Line 9220 sub recurse_cat_deletes {
delete($coursecategories->{$subitem});	delete($coursecategories->{$subitem});
$deletions->{$subitem} = 1;	$deletions->{$subitem} = 1;
&recurse_cat_deletes($subitem,$coursecategories,$deletions);	&recurse_cat_deletes($subitem,$coursecategories,$deletions);
}	}
}	}
}	}
return;	return;
Line 8262 sub recurse_cat_deletes {	Line 9228 sub recurse_cat_deletes {

sub get_active_dcs {	sub get_active_dcs {
my ($dom) = @_;	my ($dom) = @_;
my %dompersonnel = &Apache::lonnet::get_domain_roles($dom,['dc']);	my $now = time;
	my %dompersonnel = &Apache::lonnet::get_domain_roles($dom,['dc'],$now,$now);
my %domcoords;	my %domcoords;
my $numdcs = 0;	my $numdcs = 0;
my $now = time;
foreach my $server (keys(%dompersonnel)) {	foreach my $server (keys(%dompersonnel)) {
foreach my $user (sort(keys(%{$dompersonnel{$server}}))) {	foreach my $user (sort(keys(%{$dompersonnel{$server}}))) {
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user);	my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user);
my ($end,$start) = split(':',$dompersonnel{$server}{$user});	$domcoords{$uname.':'.$udom} = $dompersonnel{$server}{$user};
if (($end eq '') \|\| ($end == 0) \|\| ($end > $now)) {
if ($start <= $now) {
$domcoords{$uname.':'.$udom} = $dompersonnel{$server}{$user};
}
}
}	}
}	}
return %domcoords;	return %domcoords;
}	}

sub active_dc_picker {	sub active_dc_picker {
my ($dom,$curr_dc) = @_;	my ($dom,$numinrow,$inputtype,$name,%currhash) = @_;
my %domcoords = &get_active_dcs($dom);	my %domcoords = &get_active_dcs($dom);
my @dcs = sort(keys(%domcoords));	my @domcoord = keys(%domcoords);
my $numdcs = scalar(@dcs);	if (keys(%currhash)) {
my $datatable;	foreach my $dc (keys(%currhash)) {
my $numinrow = 2;	unless (exists($domcoords{$dc})) {
	push(@domcoord,$dc);
	}
	}
	}
	@domcoord = sort(@domcoord);
	my $numdcs = scalar(@domcoord);
	my $rows = 0;
	my $table;
if ($numdcs > 1) {	if ($numdcs > 1) {
$datatable = '<table>';	$table = '<table>';
for (my $i=0; $i<@dcs; $i++) {	for (my $i=0; $i<@domcoord; $i++) {
my $rem = $i%($numinrow);	my $rem = $i%($numinrow);
if ($rem == 0) {	if ($rem == 0) {
if ($i > 0) {	if ($i > 0) {
$datatable .= '</tr>';	$table .= '</tr>';
}	}
$datatable .= '<tr>';	$table .= '<tr>';
	$rows ++;
}	}
my $check = ' ';	my $check = '';
if ($curr_dc eq '') {	if ($inputtype eq 'radio') {
if (!$i) {	if (keys(%currhash) == 0) {
$check = ' checked="checked" ';	if (!$i) {
	$check = ' checked="checked"';
	}
	} elsif (exists($currhash{$domcoord[$i]})) {
	$check = ' checked="checked"';
	}
	} else {
	if (exists($currhash{$domcoord[$i]})) {
	$check = ' checked="checked"';
}	}
} elsif ($dcs[$i] eq $curr_dc) {
$check = ' checked="checked" ';
}	}
if ($i == @dcs - 1) {	if ($i == @domcoord - 1) {
my $colsleft = $numinrow - $rem;	my $colsleft = $numinrow - $rem;
if ($colsleft > 1) {	if ($colsleft > 1) {
$datatable .= '<td colspan="'.$colsleft.'">';	$table .= '<td class="LC_left_item" colspan="'.$colsleft.'">';
} else {	} else {
$datatable .= '<td>';	$table .= '<td class="LC_left_item">';
}	}
} else {	} else {
$datatable .= '<td>';	$table .= '<td class="LC_left_item">';
}	}
my ($dcname,$dcdom) = split(':',$dcs[$i]);	my ($dcname,$dcdom) = split(':',$domcoord[$i]);
$datatable .= '<span class="LC_nobreak"><label>'.	my $user = &Apache::loncommon::plainname($dcname,$dcdom);
'<input type="radio" name="autocreate_xmldc"'.	$table .= '<span class="LC_nobreak"><label>'.
' value="'.$dcs[$i].'"'.$check.'/>'.	'<input type="'.$inputtype.'" name="'.$name.'"'.
&Apache::loncommon::plainname($dcname,$dcdom).	' value="'.$domcoord[$i].'"'.$check.' />'.$user;
'</label></span></td>';	if ($user ne $dcname.':'.$dcdom) {
	$table .= ' ('.$dcname.':'.$dcdom.')';
	}
	$table .= '</label></span></td>';
	}
	$table .= '</tr></table>';
	} elsif ($numdcs == 1) {
	my ($dcname,$dcdom) = split(':',$domcoord[0]);
	my $user = &Apache::loncommon::plainname($dcname,$dcdom);
	if ($inputtype eq 'radio') {
	$table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />'.$user;
	if ($user ne $dcname.':'.$dcdom) {
	$table .= ' ('.$dcname.':'.$dcdom.')';
	}
	} else {
	my $check;
	if (exists($currhash{$domcoord[0]})) {
	$check = ' checked="checked"';
	}
	$table .= '<span class="LC_nobreak"><label>'.
	'<input type="checkbox" name="'.$name.'" '.
	'value="'.$domcoord[0].'"'.$check.' />'.$user;
	if ($user ne $dcname.':'.$dcdom) {
	$table .= ' ('.$dcname.':'.$dcdom.')';
	}
	$table .= '</label></span>';
	$rows ++;
}	}
$datatable .= '</tr></table>';
} elsif (@dcs) {
$datatable .= '<input type="hidden" name="autocreate_dc" value="'.
$dcs[0].'" />';
}	}
return ($numdcs,$datatable);	return ($numdcs,$table,$rows);
}	}

sub usersession_titles {	sub usersession_titles {
Line 8371 sub count_servers {	Line 9369 sub count_servers {
}	}

sub lonbalance_targets_js {	sub lonbalance_targets_js {
my ($dom,$types,$servers) = @_;	my ($dom,$types,$servers,$settings) = @_;
my $select = &mt('Select');	my $select = &mt('Select');
my ($alltargets,$allishome,$allinsttypes,@alltypes);	my ($alltargets,$allishome,$allinsttypes,@alltypes);
if (ref($servers) eq 'HASH') {	if (ref($servers) eq 'HASH') {
Line 8393 sub lonbalance_targets_js {	Line 9391 sub lonbalance_targets_js {
}	}
push(@alltypes,'default','_LC_adv','_LC_author','_LC_internetdom','_LC_external');	push(@alltypes,'default','_LC_adv','_LC_author','_LC_internetdom','_LC_external');
$allinsttypes = join("','",@alltypes);	$allinsttypes = join("','",@alltypes);
	my (%currbalancer,%currtargets,%currrules,%existing);
	if (ref($settings) eq 'HASH') {
	%existing = %{$settings};
	}
	&get_loadbalancers_config($servers,\%existing,\%currbalancer,
	\%currtargets,\%currrules);
	my $balancers = join("','",sort(keys(%currbalancer)));
return <<"END";	return <<"END";

<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[

function toggleTargets() {	currBalancers = new Array('$balancers');
var balancer = document.display.loadbalancing_lonhost.options[document.display.loadbalancing_lonhost.selectedIndex].value;
	function toggleTargets(balnum) {
	var lonhostitem = document.getElementById('loadbalancing_lonhost_'+balnum);
	var prevhostitem = document.getElementById('loadbalancing_prevlonhost_'+balnum);
	var balancer = lonhostitem.options[lonhostitem.selectedIndex].value;
	var prevbalancer = prevhostitem.value;
	var baltotal = document.getElementById('loadbalancing_total').value;
	prevhostitem.value = balancer;
	if (prevbalancer != '') {
	var prevIdx = currBalancers.indexOf(prevbalancer);
	if (prevIdx != -1) {
	currBalancers.splice(prevIdx,1);
	}
	}
if (balancer == '') {	if (balancer == '') {
hideSpares();	hideSpares(balnum);
} else {	} else {
	var currIdx = currBalancers.indexOf(balancer);
	if (currIdx == -1) {
	currBalancers.push(balancer);
	}
var homedoms = new Array('$allishome');	var homedoms = new Array('$allishome');
var ishomedom = homedoms[document.display.loadbalancing_lonhost.selectedIndex];	var ishomedom = homedoms[lonhostitem.selectedIndex];
showSpares(balancer,ishomedom);	showSpares(balancer,ishomedom,balnum);
}	}
	balancerChange(balnum,baltotal,'change',prevbalancer,balancer);
return;	return;
}	}

function showSpares(balancer,ishomedom) {	function showSpares(balancer,ishomedom,balnum) {
var alltargets = new Array('$alltargets');	var alltargets = new Array('$alltargets');
var insttypes = new Array('$allinsttypes');	var insttypes = new Array('$allinsttypes');
var offloadtypes = new Array('primary','default');	var offloadtypes = new Array('primary','default');

document.getElementById('loadbalancing_targets').style.display='block';	document.getElementById('loadbalancing_targets_'+balnum).style.display='block';
document.getElementById('loadbalancing_disabled').style.display='none';	document.getElementById('loadbalancing_disabled_'+balnum).style.display='none';

for (var i=0; i<offloadtypes.length; i++) {	for (var i=0; i<offloadtypes.length; i++) {
var count = 0;	var count = 0;
for (var j=0; j<alltargets.length; j++) {	for (var j=0; j<alltargets.length; j++) {
if (alltargets[j] != balancer) {	if (alltargets[j] != balancer) {
document.getElementById('loadbalancing_target_'+offloadtypes[i]+'_'+count).value = alltargets[j];	var item = document.getElementById('loadbalancing_target_'+balnum+'_'+offloadtypes[i]+'_'+count);
document.getElementById('loadbalancing_targettxt_'+offloadtypes[i]+'_'+count).style.textAlign='left';	item.value = alltargets[j];
document.getElementById('loadbalancing_targettxt_'+offloadtypes[i]+'_'+count).style.textFace='normal';	item.style.textAlign='left';
document.getElementById('loadbalancing_targettxt_'+offloadtypes[i]+'_'+count).innerHTML = alltargets[j];	item.style.textFace='normal';
	document.getElementById('loadbalancing_targettxt_'+balnum+'_'+offloadtypes[i]+'_'+count).innerHTML = alltargets[j];
	if (currBalancers.indexOf(alltargets[j]) == -1) {
	item.disabled = '';
	} else {
	item.disabled = 'disabled';
	item.checked = false;
	}
count ++;	count ++;
}	}
}	}
Line 8433 function showSpares(balancer,ishomedom)	Line 9463 function showSpares(balancer,ishomedom)
for (var k=0; k<insttypes.length; k++) {	for (var k=0; k<insttypes.length; k++) {
if ((insttypes[k] == '_LC_external') \|\| (insttypes[k] == '_LC_internetdom')) {	if ((insttypes[k] == '_LC_external') \|\| (insttypes[k] == '_LC_internetdom')) {
if (ishomedom == 1) {	if (ishomedom == 1) {
document.getElementById('balanceruletitle_'+insttypes[k]).style.display='block';	document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='block';
document.getElementById('balancerule_'+insttypes[k]).style.display='block';	document.getElementById('balancerule_'+balnum+'_'+insttypes[k]).style.display='block';
} else {	} else {
document.getElementById('balanceruletitle_'+insttypes[k]).style.display='none';	document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='none';
document.getElementById('balancerule_'+insttypes[k]).style.display='none';	document.getElementById('balancerule_'+balnum+'_'+insttypes[k]).style.display='none';

}	}
} else {	} else {
document.getElementById('balanceruletitle_'+insttypes[k]).style.display='block';	document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='block';
document.getElementById('balancerule_'+insttypes[k]).style.display='block';	document.getElementById('balancerule_'+balnum+'_'+insttypes[k]).style.display='block';
}	}
if ((insttypes[k] != '_LC_external') &&	if ((insttypes[k] != '_LC_external') &&
((insttypes[k] != '_LC_internetdom') \|\|	((insttypes[k] != '_LC_internetdom') \|\|
((insttypes[k] == '_LC_internetdom') && (ishomedom == 1)))) {	((insttypes[k] == '_LC_internetdom') && (ishomedom == 1)))) {
document.getElementById('loadbalancing_singleserver_'+insttypes[k]).options[0] = new Option("","",true,true);	var item = document.getElementById('loadbalancing_singleserver_'+balnum+'_'+insttypes[k]);
	item.options.length = 0;
	item.options[0] = new Option("","",true,true);
	var idx = 0;
for (var m=0; m<alltargets.length; m++) {	for (var m=0; m<alltargets.length; m++) {
var idx = m+1;	if ((currBalancers.indexOf(alltargets[m]) == -1) && (alltargets[m] != balancer)) {
if (alltargets[m] != balancer) {	idx ++;
document.getElementById('loadbalancing_singleserver_'+insttypes[k]).options[idx] = new Option(alltargets[m],alltargets[m],false,false);	item.options[idx] = new Option(alltargets[m],alltargets[m],false,false);
}	}
}	}
}	}
Line 8459 function showSpares(balancer,ishomedom)	Line 9491 function showSpares(balancer,ishomedom)
return;	return;
}	}

function hideSpares() {	function hideSpares(balnum) {
var alltargets = new Array('$alltargets');	var alltargets = new Array('$alltargets');
var insttypes = new Array('$allinsttypes');	var insttypes = new Array('$allinsttypes');
var offloadtypes = new Array('primary','default');	var offloadtypes = new Array('primary','default');

document.getElementById('loadbalancing_targets').style.display='none';	document.getElementById('loadbalancing_targets_'+balnum).style.display='none';
document.getElementById('loadbalancing_disabled').style.display='block';	document.getElementById('loadbalancing_disabled_'+balnum).style.display='block';

var total = alltargets.length - 1;	var total = alltargets.length - 1;
for (var i=0; i<offloadtypes; i++) {	for (var i=0; i<offloadtypes; i++) {
for (var j=0; j<total; j++) {	for (var j=0; j<total; j++) {
document.getElementById('loadbalancing_target_'+offloadtypes[i]+'_'+j).checked = false;	document.getElementById('loadbalancing_target_'+balnum+'_'+offloadtypes[i]+'_'+j).checked = false;
document.getElementById('loadbalancing_target_'+offloadtypes[i]+'_'+j).value = '';	document.getElementById('loadbalancing_target_'+balnum+'_'+offloadtypes[i]+'_'+j).value = '';
document.getElementById('loadbalancing_targettxt_'+offloadtypes[i]+'_'+j).innerHTML = '';	document.getElementById('loadbalancing_targettxt_'+balnum+'_'+offloadtypes[i]+'_'+j).innerHTML = '';
}	}
}	}
for (var k=0; k<insttypes.length; k++) {	for (var k=0; k<insttypes.length; k++) {
document.getElementById('balanceruletitle_'+insttypes[k]).style.display='none';	document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='none';
document.getElementById('balancerule_'+insttypes[k]).style.display='none';	document.getElementById('balancerule_'+balnum+'_'+insttypes[k]).style.display='none';
if (insttypes[k] != '_LC_external') {	if (insttypes[k] != '_LC_external') {
document.getElementById('loadbalancing_singleserver_'+insttypes[k]).length = 0;	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+insttypes[k]).length = 0;
document.getElementById('loadbalancing_singleserver_'+insttypes[k]).options[0] = new Option("","",true,true);	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+insttypes[k]).options[0] = new Option("","",true,true);
}	}
}	}
return;	return;
}	}

function checkOffloads(item,type) {	function checkOffloads(item,balnum,type) {
var alltargets = new Array('$alltargets');	var alltargets = new Array('$alltargets');
var offloadtypes = new Array('primary','default');	var offloadtypes = new Array('primary','default');
if (item.checked) {	if (item.checked) {
Line 8498 function checkOffloads(item,type) {	Line 9530 function checkOffloads(item,type) {
other = offloadtypes[0];	other = offloadtypes[0];
}	}
for (var i=0; i<total; i++) {	for (var i=0; i<total; i++) {
var server = document.getElementById('loadbalancing_target_'+other+'_'+i).value;	var server = document.getElementById('loadbalancing_target_'+balnum+'_'+other+'_'+i).value;
if (server == item.value) {	if (server == item.value) {
if (document.getElementById('loadbalancing_target_'+other+'_'+i).checked) {	if (document.getElementById('loadbalancing_target_'+balnum+'_'+other+'_'+i).checked) {
document.getElementById('loadbalancing_target_'+other+'_'+i).checked = false;	document.getElementById('loadbalancing_target_'+balnum+'_'+other+'_'+i).checked = false;
}	}
}	}
}	}
Line 8509 function checkOffloads(item,type) {	Line 9541 function checkOffloads(item,type) {
return;	return;
}	}

function singleServerToggle(type) {	function singleServerToggle(balnum,type) {
var offloadtoSelIdx = document.getElementById('loadbalancing_singleserver_'+type).selectedIndex;	var offloadtoSelIdx = document.getElementById('loadbalancing_singleserver_'+balnum+'_'+type).selectedIndex;
if (offloadtoSelIdx == 0) {	if (offloadtoSelIdx == 0) {
document.getElementById('loadbalancing_rules_'+type+'_0').checked = true;	document.getElementById('loadbalancing_rules_'+balnum+'_'+type+'_0').checked = true;
document.getElementById('loadbalancing_singleserver_'+type).options[0].text = '';	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+type).options[0].text = '';

} else {	} else {
document.getElementById('loadbalancing_rules_'+type+'_2').checked = true;	document.getElementById('loadbalancing_rules_'+balnum+'_'+type+'_2').checked = true;
document.getElementById('loadbalancing_singleserver_'+type).options[0].text = '$select';	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+type).options[0].text = '$select';
}	}
return;	return;
}	}

function balanceruleChange(formname,type) {	function balanceruleChange(formname,balnum,type) {
if (type == '_LC_external') {	if (type == '_LC_external') {
return;	return;
}	}
var typesRules = getIndicesByName(formname,'loadbalancing_rules_'+type);	var typesRules = getIndicesByName(formname,'loadbalancing_rules_'+balnum+'_'+type);
for (var i=0; i<typesRules.length; i++) {	for (var i=0; i<typesRules.length; i++) {
if (formname.elements[typesRules[i]].checked) {	if (formname.elements[typesRules[i]].checked) {
if (formname.elements[typesRules[i]].value != 'specific') {	if (formname.elements[typesRules[i]].value != 'specific') {
document.getElementById('loadbalancing_singleserver_'+type).selectedIndex = 0;	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+type).selectedIndex = 0;
document.getElementById('loadbalancing_singleserver_'+type).options[0].text = '';	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+type).options[0].text = '';
} else {	} else {
document.getElementById('loadbalancing_singleserver_'+type).options[0].text = '$select';	document.getElementById('loadbalancing_singleserver_'+balnum+'_'+type).options[0].text = '$select';
	}
	}
	}
	return;
	}

	function balancerDeleteChange(balnum) {
	var hostitem = document.getElementById('loadbalancing_lonhost_'+balnum);
	var baltotal = document.getElementById('loadbalancing_total').value;
	var addtarget;
	var removetarget;
	var action = 'delete';
	if (document.getElementById('loadbalancing_delete_'+balnum)) {
	var lonhost = hostitem.value;
	var currIdx = currBalancers.indexOf(lonhost);
	if (document.getElementById('loadbalancing_delete_'+balnum).checked) {
	if (currIdx != -1) {
	currBalancers.splice(currIdx,1);
	}
	addtarget = lonhost;
	} else {
	if (currIdx == -1) {
	currBalancers.push(lonhost);
	}
	removetarget = lonhost;
	action = 'undelete';
	}
	balancerChange(balnum,baltotal,action,addtarget,removetarget);
	}
	return;
	}

	function balancerChange(balnum,baltotal,action,addtarget,removetarget) {
	if (baltotal > 1) {
	var offloadtypes = new Array('primary','default');
	var alltargets = new Array('$alltargets');
	var insttypes = new Array('$allinsttypes');
	for (var i=0; i<baltotal; i++) {
	if (i != balnum) {
	for (var j=0; j<offloadtypes.length; j++) {
	var total = alltargets.length - 1;
	for (var k=0; k<total; k++) {
	var serveritem = document.getElementById('loadbalancing_target_'+i+'_'+offloadtypes[j]+'_'+k);
	var server = serveritem.value;
	if ((action == 'delete') \|\| (action == 'change' && addtarget != '')) {
	if (server == addtarget) {
	serveritem.disabled = '';
	}
	}
	if ((action == 'undelete') \|\| (action == 'change' && removetarget != '')) {
	if (server == removetarget) {
	serveritem.disabled = 'disabled';
	serveritem.checked = false;
	}
	}
	}
	}
	for (var j=0; j<insttypes.length; j++) {
	if (insttypes[j] != '_LC_external') {
	if (document.getElementById('loadbalancing_singleserver_'+i+'_'+insttypes[j])) {
	var singleserver = document.getElementById('loadbalancing_singleserver_'+i+'_'+insttypes[j]);
	var currSel = singleserver.selectedIndex;
	var currVal = singleserver.options[currSel].value;
	if ((action == 'delete') \|\| (action == 'change' && addtarget != '')) {
	var numoptions = singleserver.options.length;
	var needsnew = 1;
	for (var k=0; k<numoptions; k++) {
	if (singleserver.options[k] == addtarget) {
	needsnew = 0;
	break;
	}
	}
	if (needsnew == 1) {
	singleserver.options[numoptions] = new Option(addtarget,addtarget,false,false);
	}
	}
	if ((action == 'undelete') \|\| (action == 'change' && removetarget != '')) {
	singleserver.options.length = 0;
	if ((currVal) && (currVal != removetarget)) {
	singleserver.options[0] = new Option("","",false,false);
	} else {
	singleserver.options[0] = new Option("","",true,true);
	}
	var idx = 0;
	for (var m=0; m<alltargets.length; m++) {
	if (currBalancers.indexOf(alltargets[m]) == -1) {
	idx ++;
	if (currVal == alltargets[m]) {
	singleserver.options[idx] = new Option(alltargets[m],alltargets[m],true,true);
	} else {
	singleserver.options[idx] = new Option(alltargets[m],alltargets[m],false,false);
	}
	}
	}
	}
	}
	}
	}
}	}
}	}
}	}
Line 8722 END	Line 9852 END

}	}

	sub credits_js {
	return <<"END";

	<script type="text/javascript">
	// <![CDATA[

	function toggleCredits(domForm) {
	if (document.getElementById('credits')) {
	creditsitem = document.getElementById('credits');
	var creditsLength = domForm.coursecredits.length;
	if (creditsLength) {
	var currval;
	for (var i=0; i<creditsLength; i++) {
	if (domForm.coursecredits[i].checked) {
	currval = domForm.coursecredits[i].value;
	}
	}
	if (currval == 1) {
	creditsitem.style.display = 'block';
	} else {
	creditsitem.style.display = 'none';
	}
	}
	}
	return;
	}

	// ]]>
	</script>

	END

	}

sub captcha_phrases {	sub captcha_phrases {
return &Apache::lonlocal::texthash (	return &Apache::lonlocal::texthash (
priv => 'Private key',	priv => 'Private key',
Line 8732 sub captcha_phrases {	Line 9896 sub captcha_phrases {
);	);
}	}

	sub devalidate_remote_domconfs {
	my ($dom,$cachekeys) = @_;
	return unless (ref($cachekeys) eq 'HASH');
	my %servers = &Apache::lonnet::internet_dom_servers($dom);
	my %thismachine;
	map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
	my @posscached = ('domainconfig','domdefaults');
	if (keys(%servers) > 1) {
	foreach my $server (keys(%servers)) {
	next if ($thismachine{$server});
	my @cached;
	foreach my $name (@posscached) {
	if ($cachekeys->{$name}) {
	push(@cached,&escape($name).':'.&escape($dom));
	}
	}
	if (@cached) {
	&Apache::lonnet::remote_devalidate_cache($server,\@cached);
	}
	}
	}
	return;
	}

1;	1;

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

Removed from v.1.160.6.5
changed lines
	Added in v.1.220