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.6 and 1.160.6.22

version 1.160.6.6, 2012/09/25 20:38:47	version 1.160.6.22, 2013/08/08 00:54:47
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 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 210 sub handler {	Line 212 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','coursedefaults',
'loadbalancing','requestauthor'],$dom);	'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','coursedefaults','usersessions');
if (keys(%servers) > 1) {	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 254 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 349 sub handler {	Line 355 sub handler {
col3 => 'Specific IPs',	col3 => 'Specific IPs',
}],	}],
},	},
	'coursedefaults' =>
	{text => 'Course/Community defaults',
	help => 'Domain_Configuration_Course_Defaults',
	header => [{col1 => 'Defaults which can be overridden for each course by a DC',
	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 372 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 392 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);	&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles);
} 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,
	$domconfig{'loadbalancing'}).
&new_spares_js().	&new_spares_js().
&common_domprefs_js().	&common_domprefs_js().
&Apache::loncommon::javascript_array_indexof();	&Apache::loncommon::javascript_array_indexof();
}	}
&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 478 sub process_changes {	Line 522 sub process_changes {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($dom,$action,%domconfig);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($dom,$action,%domconfig);
	} elsif ($action eq 'coursedefaults') {
	$output = &modify_coursedefaults($dom,%domconfig);
} elsif ($action eq 'usersessions') {	} elsif ($action eq 'usersessions') {
$output = &modify_usersessions($dom,%domconfig);	$output = &modify_usersessions($dom,%domconfig);
} elsif ($action eq 'loadbalancing') {	} elsif ($action eq 'loadbalancing') {
Line 636 sub print_config_box {	Line 682 sub print_config_box {
<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_usersessions('bottom',$dom,$settings,\$rowtotal);	&print_usersessions('bottom',$dom,$settings,\$rowtotal);
$rowtotal ++;	$rowtotal ++;
} elsif ($action eq 'coursedefaults') {
$output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal);
} elsif ($action eq 'rolecolors') {	} elsif ($action eq 'rolecolors') {
$output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'	$output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).'
</table>	</table>
Line 734 sub print_config_box {	Line 778 sub print_config_box {
$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);	$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal);
} elsif ($action eq 'loadbalancing') {	} elsif ($action eq 'loadbalancing') {
$output .= &print_loadbalancing($dom,$settings,\$rowtotal);	$output .= &print_loadbalancing($dom,$settings,\$rowtotal);
	} elsif ($action eq 'coursedefaults') {
	$output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal);
}	}
}	}
$output .= '	$output .= '
Line 776 sub print_login {	Line 822 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 865 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 1085 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 1123 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 1184 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 1234 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 1248 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 1269 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 1348 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 1381 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 1410 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 1469 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 1507 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 1521 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);
Line 1477 sub print_quotas {	Line 1540 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 1665 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 1681 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 1756 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 1801 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 1905 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 1940 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,$rows);
$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) {
foreach my $dc (@currapproval) {
unless (grep(/^\Q$dc\E$/,@domcoord)) {
push(@domcoord,$dc);
}	}
}	}
}	}
@domcoord = sort(@domcoord);	my $numinrow = 2;
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 1960 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) {
if ($i > 0) {
$datatable .= '</tr>';
}
$datatable .= '<tr>';
$rows ++;
}
my $check = ' ';
if (grep(/^\Q$domcoord[$i]\E$/,@currapproval)) {
$check = ' checked="checked" ';
}
my ($uname,$udom) = split(':',$domcoord[$i]);
my $fullname = &Apache::loncommon::plainname($uname,$udom);
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 {
$datatable .= '<td class="LC_left_item">';
}
$datatable .= '<span class="LC_nobreak"><label>'.
'<input type="checkbox" name="reqapprovalnotify" '.
'value="'.$domcoord[$i].'"'.$check.'/>'.
$fullname.'</label></span></td>';
}
$datatable .= '</tr></table>';
} else {	} else {
$datatable .= &mt('There are no active Domain Coordinators');	$datatable .= &mt('There are no active Domain Coordinators');
$rows ++;
}	}
$datatable .='</td></tr>';	$datatable .='</td></tr>';
$$rowtotal += $rows;	$$rowtotal += $rows;
Line 2092 sub print_autoupdate {	Line 2120 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 2133 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 2143 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 2158 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 2290 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');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$otheremails{$type} = '';	$otheremails{$type} = '';
}	}
Line 2295 sub print_contacts {	Line 2326 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" ';
}	}
my ($titles,$short_titles) = &contact_titles();	my ($titles,$short_titles) = &contact_titles();
my $rownum = 0;	my $rownum = 0;
Line 2354 sub print_helpsettings {	Line 2386 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 2413 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 2437 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,%curruploadquota);
&Apache::lonlocal::texthash (	my $currusecredits = 0;
anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',	my @types = ('official','unofficial','community');
);
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'};
	if (($def_official_credits ne '') \|\| ($def_unofficial_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></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 2821 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 2948 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;
}	}
Line 2868 sub print_loadbalancing {	Line 2964 sub print_loadbalancing {
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')) {
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 3002 sub loadbalancing_titles {	Line 3184 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 = ('default','homeserver');
my %ruletitles = &offloadtype_text();	my %ruletitles = &offloadtype_text();
if ($type eq '_LC_external') {	if ($type eq '_LC_external') {
Line 3016 sub loadbalance_rule_row {	Line 3198 sub loadbalance_rule_row {
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {
$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 3222 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 3243 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 3090 sub contact_titles {	Line 3281 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',
);	);
my %short_titles = &Apache::lonlocal::texthash (	my %short_titles = &Apache::lonlocal::texthash (
adminemail => 'Admin E-mail address',	adminemail => 'Admin E-mail address',
Line 3137 sub authorrequest_titles {	Line 3329 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 3724 sub print_scantronformat {	Line 3916 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 3942 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 4052 sub print_serverstatuses {	Line 4245 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 4507 sub modify_login {	Line 4700 sub modify_login {
%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 4713 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 4901 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 4858 sub color_font_choices {	Line 5053 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 4910 sub modify_colors {	Line 5105 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');
	}
	my %defaults = &role_defaults($role,\@bgs,\@links,\@images,\@logintext);
	unless ($env{'form.'.$role.'_font'} eq $defaults{'font'}) {
	$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};
}	}
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};	if ($role eq 'login') {
foreach my $item (@bgs,@links,@logintext) {	foreach my $item (@logintext) {
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};	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 5300 sub publishlogo {	Line 5516 sub publishlogo {
!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 5670 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 5754 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;
}	}
Line 5586 sub modify_quotas {	Line 5802 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 5613 sub modify_quotas {	Line 5830 sub modify_quotas {
}	}
} 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 5918 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 5947 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') {
Line 5754 sub modify_quotas {	Line 5998 sub modify_quotas {
}	}
$resulttext .= '</ul></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>';
	}
}	}
my %newenv;	my %newenv;
foreach my $item (@usertools) {	foreach my $item (@usertools) {
Line 5808 sub modify_quotas {	Line 6065 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 6181 sub modify_autocreate {	Line 6442 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 6597 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 6629 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 6385 sub modify_contacts {	Line 6653 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');
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 6441 sub modify_contacts {	Line 6709 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;
Line 6947 sub process_captcha {	Line 7216 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 7681 sub modify_coursedefaults {	Line 7952 sub modify_coursedefaults {
my ($dom,%domconfig) = @_;	my ($dom,%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');
	my @types = ('official','unofficial','community');
	my %staticdefaults = (
	anonsurvey_threshold => 10,
	uploadquota => 500,
	);

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

Line 7698 sub modify_coursedefaults {	Line 7975 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 7988 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;	my $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;
	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)) {
	$changes{'coursecredits'} = 1;
	}
	}
	$defaultshash{'coursedefaults'}{'coursecredits'} = {
	official => $officialcreds,
	unofficial => $unofficialcreds,
	}
}	}
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') {
	my %domdefaults;
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
if ($changes{'canuse_pdfforms'}) {	if (($changes{'canuse_pdfforms'}) \|\| ($changes{'coursecredits'}) \|\| ($changes{'uploadquota'})) {
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	%domdefaults = &Apache::lonnet::get_domain_defaults($dom);
$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'};
	}
	}
	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);
}	}
Line 7744 sub modify_coursedefaults {	Line 8075 sub modify_coursedefaults {
}	}
} 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('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 '')) {
	$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>'.
	'</ul>'.
	'</li>';
	}
	} else {
	$resulttext .= '<li>'.&mt('Student credits not in use for courses in this domain').'</li>';
	}
}	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
Line 8036 sub modify_loadbalancing {	Line 8393 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 ($balancer eq '') {	if (keys(%changes) > 0) {
$resulttext .= '<li>'.&mt('Load Balancing with dedicated server discontinued').'</li>';	if (ref($changes{'delete'}) eq 'ARRAY') {
} else {	foreach my $balancer (sort(@{$changes{'delete'}})) {
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);	$resulttext .= '<li>'.&mt('Load Balancing discontinued for: [_1]',$balancer).'</li>';
$resulttext .= '<li>'.&mt('Dedicated Load Balancer server set to [_1]',$balancer);
}
} else {
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);	&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);
}	}
if (($changes{'targets'}) && ($balancer ne '')) {	}
my %offloadstr;	if (ref($changes{'add'}) eq 'ARRAY') {
foreach my $sparetype (@sparestypes) {	foreach my $balancer (sort(@{$changes{'add'}})) {
if (ref($defaultshash{'loadbalancing'}{'targets'}{$sparetype}) eq 'ARRAY') {	$resulttext .= '<li>'.&mt('Load Balancing enabled for: [_1]',$balancer);
if (@{$defaultshash{'loadbalancing'}{'targets'}{$sparetype}} > 0) {	}
$offloadstr{$sparetype} = join(', ',@{$defaultshash{'loadbalancing'}{'targets'}{$sparetype}});	}
	if (ref($changes{'curr'}) eq 'HASH') {
	foreach my $balancer (sort(keys(%{$changes{'curr'}}))) {
	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')) {	$balancetext = $ruletitles{$rule};
$balancetext = $ruletitles{$rule};	} else {
} else {	$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type});
$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{'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>';
}	}
}	}
}	}
	&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);
}	}
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 8262 sub recurse_cat_deletes {	Line 8625 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(':',$domcoord[$i]);
	my $user = &Apache::loncommon::plainname($dcname,$dcdom);
	$table .= '<span class="LC_nobreak"><label>'.
	'<input type="'.$inputtype.'" name="'.$name.'"'.
	' value="'.$domcoord[$i].'"'.$check.' />'.$user;
	if ($user ne $dcname.':'.$dcdom) {
	$table .= ' ('.$dcname.':'.$dcdom.')'.
	'</label></span></td>';
}	}
my ($dcname,$dcdom) = split(':',$dcs[$i]);
$datatable .= '<span class="LC_nobreak"><label>'.
'<input type="radio" name="autocreate_xmldc"'.
' value="'.$dcs[$i].'"'.$check.'/>'.
&Apache::loncommon::plainname($dcname,$dcdom).
'</label></span></td>';
}	}
$datatable .= '</tr></table>';	$table .= '</tr></table>';
} elsif (@dcs) {	} elsif ($numdcs == 1) {
$datatable .= '<input type="hidden" name="autocreate_dc" value="'.	if ($inputtype eq 'radio') {
$dcs[0].'" />';	$table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />';
	} else {
	my $check;
	if (exists($currhash{$domcoord[0]})) {
	$check = ' checked="checked"';
	}
	$table .= '<input type="checkbox" name="'.$name.'" '.
	'value="'.$domcoord[0].'"'.$check.' />';
	$rows ++;
	}
}	}
return ($numdcs,$datatable);	return ($numdcs,$table,$rows);
}	}

sub usersession_titles {	sub usersession_titles {
Line 8371 sub count_servers {	Line 8756 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 8778 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 8850 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 8880 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 8919 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 8930 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 8713 function updateCaptcha(caller,context) {	Line 9232 function updateCaptcha(caller,context) {
}	}
}	}
return;	return;
	}

	// ]]>
	</script>

	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;
}	}

// ]]>	// ]]>

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

Removed from v.1.160.6.6
changed lines
	Added in v.1.160.6.22