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.17 and 1.216

version 1.160.6.17, 2013/03/18 01:31:55	version 1.216, 2013/12/24 19:15:10
Line 86 $dom,$settings,$rowtotal,$action.	Line 86 $dom,$settings,$rowtotal,$action.

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

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

Outputs: 1	Outputs: 1

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

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

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

if ($phase eq 'process') {	if ($phase eq 'process') {
&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles);	my $result = &Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,
	\%prefs,\%domconfig,$confname,\@roles);
	if (ref($result) eq 'HASH') {
	$r->rflush();
	&devalidate_remote_domconfs($dom,$result);
	}
} elsif ($phase eq 'display') {	} elsif ($phase eq 'display') {
my $js = &recaptcha_js().	my $js = &recaptcha_js().
&credits_js();	&credits_js();
if ((keys(%servers) > 1) \|\| (keys(%existing) > 0)) {	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);
Line 412 sub handler {	Line 436 sub handler {
&common_domprefs_js().	&common_domprefs_js().
&Apache::loncommon::javascript_array_indexof();	&Apache::loncommon::javascript_array_indexof();
}	}
	if (grep(/^requestcourses$/,@actions)) {
	my $javascript_validations;
	my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'});
	$js .= <<END;
	<script type="text/javascript">
	$javascript_validations
	</script>
	$coursebrowserjs
	END
	}
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);	&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);
} else {	} else {
# check if domconfig user exists for the domain.	# check if domconfig user exists for the domain.
my $servadm = $r->dir_config('lonAdmEMail');	my $servadm = $r->dir_config('lonAdmEMail');
my ($configuserok,$author_ok,$switchserver) =	my ($configuserok,$author_ok,$switchserver) =
&config_check($dom,$confname,$servadm);	&config_check($dom,$confname,$servadm);
unless ($configuserok eq 'ok') {	unless ($configuserok eq 'ok') {
&Apache::lonconfigsettings::print_header($r,$phase,$context);	&Apache::lonconfigsettings::print_header($r,$phase,$context);
Line 481 sub handler {	Line 515 sub handler {
}	}

sub process_changes {	sub process_changes {
my ($r,$dom,$confname,$action,$roles,$values) = @_;	my ($r,$dom,$confname,$action,$roles,$values,$lastactref) = @_;
my %domconfig;	my %domconfig;
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
%domconfig = %{$values};	%domconfig = %{$values};
}	}
my $output;	my $output;
if ($action eq 'login') {	if ($action eq 'login') {
$output = &modify_login($r,$dom,$confname,%domconfig);	$output = &modify_login($r,$dom,$confname,$lastactref,%domconfig);
} elsif ($action eq 'rolecolors') {	} elsif ($action eq 'rolecolors') {
$output = &modify_rolecolors($r,$dom,$confname,$roles,	$output = &modify_rolecolors($r,$dom,$confname,$roles,
%domconfig);	$lastactref,%domconfig);
} elsif ($action eq 'quotas') {	} elsif ($action eq 'quotas') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
} elsif ($action eq 'autoenroll') {	} elsif ($action eq 'autoenroll') {
$output = &modify_autoenroll($dom,%domconfig);	$output = &modify_autoenroll($dom,$lastactref,%domconfig);
} elsif ($action eq 'autoupdate') {	} elsif ($action eq 'autoupdate') {
$output = &modify_autoupdate($dom,%domconfig);	$output = &modify_autoupdate($dom,%domconfig);
} elsif ($action eq 'autocreate') {	} elsif ($action eq 'autocreate') {
Line 507 sub process_changes {	Line 541 sub process_changes {
} elsif ($action eq 'usermodification') {	} elsif ($action eq 'usermodification') {
$output = &modify_usermodification($dom,%domconfig);	$output = &modify_usermodification($dom,%domconfig);
} elsif ($action eq 'contacts') {	} elsif ($action eq 'contacts') {
$output = &modify_contacts($dom,%domconfig);	$output = &modify_contacts($dom,$lastactref,%domconfig);
} elsif ($action eq 'defaults') {	} elsif ($action eq 'defaults') {
$output = &modify_defaults($dom,$r);	$output = &modify_defaults($dom,$lastactref,%domconfig);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
$output = &modify_scantron($r,$dom,$confname,%domconfig);	$output = &modify_scantron($r,$dom,$confname,$lastactref,%domconfig);
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
$output = &modify_coursecategories($dom,%domconfig);	$output = &modify_coursecategories($dom,%domconfig);
} elsif ($action eq 'serverstatuses') {	} elsif ($action eq 'serverstatuses') {
$output = &modify_serverstatuses($dom,%domconfig);	$output = &modify_serverstatuses($dom,%domconfig);
} elsif ($action eq 'requestcourses') {	} elsif ($action eq 'requestcourses') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
$output = &modify_quotas($dom,$action,%domconfig);	$output = &modify_quotas($r,$dom,$action,$lastactref,%domconfig);
	} elsif ($action eq 'helpsettings') {
	$output = &modify_helpsettings($r,$dom,$confname,%domconfig);
} elsif ($action eq 'coursedefaults') {	} elsif ($action eq 'coursedefaults') {
$output = &modify_coursedefaults($dom,%domconfig);	$output = &modify_coursedefaults($dom,$lastactref,%domconfig);
} elsif ($action eq 'usersessions') {	} elsif ($action eq 'usersessions') {
$output = &modify_usersessions($dom,%domconfig);	$output = &modify_usersessions($dom,$lastactref,%domconfig);
} elsif ($action eq 'loadbalancing') {	} elsif ($action eq 'loadbalancing') {
$output = &modify_loadbalancing($dom,%domconfig);	$output = &modify_loadbalancing($dom,%domconfig);
}	}
Line 591 sub print_config_box {	Line 627 sub print_config_box {
$output .= &print_usersessions('top',$dom,$settings,\$rowtotal);	$output .= &print_usersessions('top',$dom,$settings,\$rowtotal);
} elsif ($action eq 'rolecolors') {	} elsif ($action eq 'rolecolors') {
$output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);	$output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal);
	} elsif ($action eq 'coursedefaults') {
	$output .= &print_coursedefaults('top',$dom,$settings,\$rowtotal);
}	}
$output .= '	$output .= '
</table>	</table>
Line 641 sub print_config_box {	Line 679 sub print_config_box {
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">	<tr class="LC_info_row">
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.	<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
&print_usermodification('bottom',$dom,$settings,\$rowtotal);	&print_usermodification('bottom',$dom,$settings,\$rowtotal);
$rowtotal ++;	$rowtotal ++;
} elsif ($action eq 'coursecategories') {	} elsif ($action eq 'coursecategories') {
Line 657 sub print_config_box {	Line 695 sub print_config_box {
<table class="LC_nested">	<table class="LC_nested">
<tr class="LC_info_row">	<tr class="LC_info_row">
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.	<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col2'}).'</td></tr>'.
&print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);	&print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
$rowtotal ++;	$rowtotal ++;
} else {	} else {
$output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);	$output .= &print_login('help',$dom,$confname,$phase,$settings,\$rowtotal);
}	}
} elsif ($action eq 'requestcourses') {	} elsif ($action eq 'requestcourses') {
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);	$output .= &print_requestmail($dom,$action,$settings,\$rowtotal).
	&print_studentcode($settings,\$rowtotal).'
	</table>
	</td>
	</tr>
	<tr>
	<td>
	<table class="LC_nested">
	<tr class="LC_info_row">
	<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
	<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'.
	&print_textbookcourses($dom,$settings,\$rowtotal);
} elsif ($action eq 'requestauthor') {	} elsif ($action eq 'requestauthor') {
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);	$output .= &print_requestmail($dom,$action,$settings,\$rowtotal);
} elsif ($action eq 'usersessions') {	} elsif ($action eq 'usersessions') {
Line 680 sub print_config_box {	Line 729 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 767 sub print_config_box {	Line 818 sub print_config_box {
} elsif ($action eq 'contacts') {	} elsif ($action eq 'contacts') {
$output .= &print_contacts($dom,$settings,\$rowtotal);	$output .= &print_contacts($dom,$settings,\$rowtotal);
} elsif ($action eq 'defaults') {	} elsif ($action eq 'defaults') {
$output .= &print_defaults($dom,\$rowtotal);	$output .= &print_defaults($dom,$settings,\$rowtotal);
} elsif ($action eq 'scantron') {	} elsif ($action eq 'scantron') {
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);	$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal);
} elsif ($action eq 'serverstatuses') {	} elsif ($action eq 'serverstatuses') {
Line 776 sub print_config_box {	Line 827 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 1121 sub print_rolecolors {	Line 1170 sub print_rolecolors {
my %designhash = &Apache::loncommon::get_domainconf($dom);	my %designhash = &Apache::loncommon::get_domainconf($dom);
my %defaultdesign = %Apache::loncommon::defaultdesign;	my %defaultdesign = %Apache::loncommon::defaultdesign;
my (%is_custom,%designs);	my (%is_custom,%designs);
my %defaults = (	my %defaults = &role_defaults($role,\@bgs,\@links,\@images);
img => $defaultdesign{$role.'.img'},
font => $defaultdesign{$role.'.font'},
fontmenu => $defaultdesign{$role.'.fontmenu'},
);
foreach my $item (@bgs) {
$defaults{'bgs'}{$item} = $defaultdesign{$role.'.'.$item};
}
foreach my $item (@links) {
$defaults{'links'}{$item} = $defaultdesign{$role.'.'.$item};
}
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{$role}) eq 'HASH') {	if (ref($settings->{$role}) eq 'HASH') {
if ($settings->{$role}->{'img'} ne '') {	if ($settings->{$role}->{'img'} ne '') {
Line 1192 sub print_rolecolors {	Line 1231 sub print_rolecolors {
return $datatable;	return $datatable;
}	}

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

sub display_color_options {	sub display_color_options {
my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,	my ($dom,$confname,$phase,$role,$itemcount,$choices,$is_custom,$defaults,$designs,
$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_;	$images,$bgs,$links,$alt_text,$rowtotal,$logintext) = @_;
Line 1218 sub display_color_options {	Line 1295 sub display_color_options {
} else {	} else {
$datatable .= '<td> </td>';	$datatable .= '<td> </td>';
}	}
$current_color = $designs->{'fontmenu'} ?	$current_color = $designs->{'fontmenu'} ?
$designs->{'fontmenu'} : $defaults->{'fontmenu'};	$designs->{'fontmenu'} : $defaults->{'fontmenu'};
$datatable .= '<td><span class="LC_nobreak">'.	$datatable .= '<td><span class="LC_nobreak">'.
'<input class="colorchooser" type="text" size="10" name="'	'<input class="colorchooser" type="text" size="10" name="'
.$role.'_fontmenu"'.	.$role.'_fontmenu"'.
' value="'.$current_color.'" /> '.	' value="'.$current_color.'" /> '.
' </td></tr>';	' </td></tr>';
}	}
Line 1239 sub display_color_options {	Line 1316 sub display_color_options {
&login_header_options($img,$role,$defaults,$is_custom,$choices);	&login_header_options($img,$role,$defaults,$is_custom,$choices);
$logincolors =	$logincolors =
&login_text_colors($img,$role,$logintext,$phase,$choices,	&login_text_colors($img,$role,$logintext,$phase,$choices,
$designs);	$designs,$defaults);
} elsif ($img ne 'domlogo') {	} elsif ($img ne 'domlogo') {
$datatable.= &logo_display_options($img,$defaults,$designs);	$datatable.= &logo_display_options($img,$defaults,$designs);
}	}
Line 1318 sub display_color_options {	Line 1395 sub display_color_options {
$datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import,	$datatable .= &image_changes($is_custom->{$img},$alt_text->{$img},$img_import,
$showfile,$fullsize,$role,$img,$imgfile,$logincolors);	$showfile,$fullsize,$role,$img,$imgfile,$logincolors);
} else {	} else {
$datatable .= '<td colspan="2" class="LC_right_item"><br />'.	$datatable .= '<td> </td><td class="LC_left_item">'.
&mt('Upload:');	&mt('Upload:').'<br />';
}	}
} else {	} else {
$datatable .= '<td colspan="2" class="LC_right_item"><br />'.	$datatable .= '<td> </td><td class="LC_left_item">'.
&mt('Upload:');	&mt('Upload:').'<br />';
}	}
if ($switchserver) {	if ($switchserver) {
$datatable .= &mt('Upload to library server: [_1]',$switchserver);	$datatable .= &mt('Upload to library server: [_1]',$switchserver);
Line 1353 sub display_color_options {	Line 1430 sub display_color_options {
'<table border="0"><tr>';	'<table border="0"><tr>';

foreach my $item (@{$bgs}) {	foreach my $item (@{$bgs}) {
$datatable .= '<td align="center">';	$datatable .= '<td align="center">'.$choices->{$item};
my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item};	my $color = $designs->{'bgs'}{$item} ? $designs->{'bgs'}{$item} : $defaults->{'bgs'}{$item};
if ($designs->{'bgs'}{$item}) {	if ($designs->{'bgs'}{$item}) {
$datatable .= ' ';	$datatable .= ' ';
}	}
Line 1380 sub display_color_options {	Line 1457 sub display_color_options {
$datatable .= '<td class="LC_right_item">'.	$datatable .= '<td class="LC_right_item">'.
'<table border="0"><tr>';	'<table border="0"><tr>';
foreach my $item (@{$links}) {	foreach my $item (@{$links}) {
my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item};	my $color = $designs->{'link'}{$item} ? $designs->{'link'}{$item} : $defaults->{'links'}{$item};
$datatable .= '<td align="center">'."\n";	$datatable .= '<td align="center">'.$choices->{$item}."\n";

if ($designs->{'links'}{$item}) {	if ($designs->{'links'}{$item}) {
$datatable.=' ';	$datatable.=' ';
}	}
Line 1440 sub login_header_options {	Line 1516 sub login_header_options {
}	}

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

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

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

sub print_requestmail {	sub print_requestmail {
my ($dom,$action,$settings,$rowtotal) = @_;	my ($dom,$action,$settings,$rowtotal) = @_;
my ($now,$datatable,%currapp,$rows);	my ($now,$datatable,%currapp);
$now = time;	$now = time;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if (ref($settings->{'notify'}) eq 'HASH') {	if (ref($settings->{'notify'}) eq 'HASH') {
Line 1939 sub print_requestmail {	Line 2019 sub print_requestmail {
return $datatable;	return $datatable;
}	}

	sub print_studentcode {
	my ($settings,$rowtotal) = @_;
	my $rownum = 0;
	my %choices;
	$choices{'uniquecode'} = &mt('Generate unique six character code as course identifier?');
	my @toggles = ('uniquecode');
	my %defaultchecked = ('uniquecode' => 'off');
	(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
	\%choices,$rownum);
	$$rowtotal += $rownum;
	return $reports;
	}

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

sub print_autoenroll {	sub print_autoenroll {
my ($dom,$settings,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my $autorun = &Apache::lonnet::auto_run(undef,$dom),	my $autorun = &Apache::lonnet::auto_run(undef,$dom),
Line 2257 sub print_contacts {	Line 2472 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','updatesmail');	'requestsmail','updatesmail','idconflictsmail');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$otheremails{$type} = '';	$otheremails{$type} = '';
}	}
Line 2293 sub print_contacts {	Line 2508 sub print_contacts {
$checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';	$checked{'helpdeskmail'}{'supportemail'} = ' checked="checked" ';
$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';	$checked{'lonstatusmail'}{'adminemail'} = ' checked="checked" ';
$checked{'requestsmail'}{'adminemail'} = ' checked="checked" ';	$checked{'requestsmail'}{'adminemail'} = ' checked="checked" ';
$checked{'updatesmail'}{'adminemail'} = ' checked="checked" ';	$checked{'updatesmail'}{'adminemail'} = ' checked="checked" ';
	$checked{'idconflictsmail'}{'adminemail'} = ' checked="checked" ';
}	}
my ($titles,$short_titles) = &contact_titles();	my ($titles,$short_titles) = &contact_titles();
my $rownum = 0;	my $rownum = 0;
my $css_class;	my $css_class;
foreach my $item (@contacts) {	foreach my $item (@contacts) {
$rownum ++;
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.$titles->{$item}.	'<td><span class="LC_nobreak">'.$titles->{$item}.
'</span></td><td class="LC_right_item">'.	'</span></td><td class="LC_right_item">'.
'<input type="text" name="'.$item.'" value="'.	'<input type="text" name="'.$item.'" value="'.
$to{$item}.'" /></td></tr>';	$to{$item}.'" /></td></tr>';
	$rownum ++;
}	}
foreach my $type (@mailings) {	foreach my $type (@mailings) {
$rownum ++;
$css_class = $rownum%2?' class="LC_odd_row"':'';	$css_class = $rownum%2?' class="LC_odd_row"':'';
$datatable .= '<tr'.$css_class.'>'.	$datatable .= '<tr'.$css_class.'>'.
'<td><span class="LC_nobreak">'.	'<td><span class="LC_nobreak">'.
Line 2331 sub print_contacts {	Line 2546 sub print_contacts {
'value="'.$bccemails{$type}.'" />';	'value="'.$bccemails{$type}.'" />';
}	}
$datatable .= '</td></tr>'."\n";	$datatable .= '</td></tr>'."\n";
	$rownum ++;
}	}
	my %choices;
	$choices{'reporterrors'} = &mt('E-mail error reports to [_1]',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500));
	$choices{'reportupdates'} = &mt('E-mail record of completed LON-CAPA updates to [_1]',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500));
	my @toggles = ('reporterrors','reportupdates');
	my %defaultchecked = ('reporterrors' => 'on',
	'reportupdates' => 'on');
	(my $reports,$rownum) = &radiobutton_prefs($settings,\@toggles,\%defaultchecked,
	\%choices,$rownum);
	$datatable .= $reports;
$$rowtotal += $rownum;	$$rowtotal += $rownum;
return $datatable;	return $datatable;
}	}
Line 2408 sub print_coursedefaults {	Line 2637 sub print_coursedefaults {
my $itemcount = 1;	my $itemcount = 1;
my %choices = &Apache::lonlocal::texthash (	my %choices = &Apache::lonlocal::texthash (
canuse_pdfforms => 'Course/Community users can create/upload PDF forms',	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',	anonsurvey_threshold => 'Responder count needed before showing submissions for anonymous surveys',
coursecredits => 'Credits can be specified for courses',	coursecredits => 'Credits can be specified for courses',
);	);
	my %staticdefaults = (
	anonsurvey_threshold => 10,
	uploadquota => 500,
	);
if ($position eq 'top') {	if ($position eq 'top') {
%defaultchecked = ('canuse_pdfforms' => 'off');	%defaultchecked = ('canuse_pdfforms' => 'off');
@toggles = ('canuse_pdfforms');	@toggles = ('canuse_pdfforms');
Line 2418 sub print_coursedefaults {	Line 2652 sub print_coursedefaults {
\%choices,$itemcount);	\%choices,$itemcount);
} else {	} else {
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';	$css_class = $itemcount%2 ? ' class="LC_odd_row"' : '';
my ($currdefresponder,$def_official_credits,$def_unofficial_credits);	my ($currdefresponder,$def_official_credits,$def_unofficial_credits,$def_textbook_credits,
	%curruploadquota);
my $currusecredits = 0;	my $currusecredits = 0;
	my @types = ('official','unofficial','community','textbook');
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') {	if (ref($settings->{'coursecredits'}) eq 'HASH') {
$def_official_credits = $settings->{'coursecredits'}->{'official'};	$def_official_credits = $settings->{'coursecredits'}->{'official'};
$def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'};	$def_unofficial_credits = $settings->{'coursecredits'}->{'unofficial'};
if (($def_official_credits ne '') \|\| ($def_unofficial_credits ne '')) {	$def_textbook_credits = $settings->{'coursecredits'}->{'textbook'};
	if (($def_official_credits ne '') \|\| ($def_unofficial_credits ne '') \|\|
	($def_textbook_credits ne '')) {
$currusecredits = 1;	$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">'.	'<tr'.$css_class.'><td><span class="LC_nobreak">'.
$choices{'anonsurvey_threshold'}.	$choices{'anonsurvey_threshold'}.
Line 2442 sub print_coursedefaults {	Line 2690 sub print_coursedefaults {
'<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>'."\n";	'</td></tr>'."\n".
$itemcount ++;	'<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 $onclick = 'toggleCredits(this.form);';
my $display = 'none';	my $display = 'none';
if ($currusecredits) {	if ($currusecredits) {
Line 2459 sub print_coursedefaults {	Line 2718 sub print_coursedefaults {
&mt('Default credits for unofficial courses [_1]',	&mt('Default credits for unofficial courses [_1]',
'<input type="text" name="unofficial_credits" value="'.	'<input type="text" name="unofficial_credits" value="'.
$def_unofficial_credits.'" size="3" />').	$def_unofficial_credits.'" size="3" />').
	'</span><br />'.
	'<span class="LC_nobreak">'.
	&mt('Default credits for textbook courses [_1]',
	'<input type="text" name="textbook_credits" value="'.
	$def_textbook_credits.'" size="3" />').
'</span></div>'."\n";	'</span></div>'."\n";
%defaultchecked = ('coursecredits' => 'off');	%defaultchecked = ('coursecredits' => 'off');
@toggles = ('coursecredits');	@toggles = ('coursecredits');
Line 2900 sub print_loadbalancing {	Line 3164 sub print_loadbalancing {
}	}
my ($othertitle,$usertypes,$types) =	my ($othertitle,$usertypes,$types) =
&Apache::loncommon::sorted_inst_types($dom);	&Apache::loncommon::sorted_inst_types($dom);
my $rownum = 6;	my $rownum = 8;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
$rownum += scalar(@{$types});	$rownum += scalar(@{$types});
}	}
Line 3079 sub loadbalancing_rules {	Line 3343 sub loadbalancing_rules {
if (ref($currrules) eq 'HASH') {	if (ref($currrules) eq 'HASH') {
$current = $currrules->{$type};	$current = $currrules->{$type};
}	}
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom') \|\| ($type eq '_LC_ipchange')) {
if ($dom ne &Apache::lonnet::host_domain($lonhost)) {	if ($dom ne &Apache::lonnet::host_domain($lonhost)) {
$current = '';	$current = '';
}	}
Line 3100 sub loadbalancing_titles {	Line 3364 sub loadbalancing_titles {
'_LC_author' => &mt('Users from [_1] with author role',$dom),	'_LC_author' => &mt('Users from [_1] with author role',$dom),
'_LC_internetdom' => &mt('Users not from [_1], but from [_2]',$dom,$intdom),	'_LC_internetdom' => &mt('Users not from [_1], but from [_2]',$dom,$intdom),
'_LC_external' => &mt('Users not from [_1]',$intdom),	'_LC_external' => &mt('Users not from [_1]',$intdom),
	'_LC_ipchangesso' => &mt('SSO users from [_1], with IP mismatch',$dom),
	'_LC_ipchange' => &mt('Non-SSO users with IP mismatch'),
);	);
my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external');	my @alltypes = ('_LC_adv','_LC_author','_LC_internetdom','_LC_external','_LC_ipchangesso','_LC_ipchange');
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
unshift(@alltypes,@{$types},'default');	unshift(@alltypes,@{$types},'default');
}	}
Line 3126 sub loadbalancing_titles {	Line 3392 sub loadbalancing_titles {
sub loadbalance_rule_row {	sub loadbalance_rule_row {
my ($type,$title,$current,$servers,$currbalancer,$lonhost,$dom,	my ($type,$title,$current,$servers,$currbalancer,$lonhost,$dom,
$targets_div_style,$homedom_div_style,$css_class,$balnum,$num,$islast) = @_;	$targets_div_style,$homedom_div_style,$css_class,$balnum,$num,$islast) = @_;
my @rulenames = ('default','homeserver');	my @rulenames;
my %ruletitles = &offloadtype_text();	my %ruletitles = &offloadtype_text();
if ($type eq '_LC_external') {	if (($type eq '_LC_ipchangesso') \|\| ($type eq '_LC_ipchange')) {
push(@rulenames,'externalbalancer');	@rulenames = ('balancer','offloadedto');
} else {	} else {
push(@rulenames,'specific');	@rulenames = ('default','homeserver');
	if ($type eq '_LC_external') {
	push(@rulenames,'externalbalancer');
	} else {
	push(@rulenames,'specific');
	}
	push(@rulenames,'none');
}	}
push(@rulenames,'none');
my $style = $targets_div_style;	my $style = $targets_div_style;
if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom')) {	if (($type eq '_LC_external') \|\| ($type eq '_LC_internetdom') \|\| ($type eq '_LC_ipchange')) {
$style = $homedom_div_style;	$style = $homedom_div_style;
}	}
my $space;	my $space;
Line 3200 sub offloadtype_text {	Line 3471 sub offloadtype_text {
'externalbalancer' => "Offloads to Load Balancer in user's domain",	'externalbalancer' => "Offloads to Load Balancer in user's domain",
'specific' => 'Offloads to specific server',	'specific' => 'Offloads to specific server',
'none' => 'No offload',	'none' => 'No offload',
	'balancer' => 'Session hosted on Load Balancer, after re-authentication',
	'offloadedto' => 'Session hosted on offload server, after re-authentication',
);	);
return %ruletitles;	return %ruletitles;
}	}
Line 3222 sub contact_titles {	Line 3495 sub contact_titles {
'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',	'updatesmail' => 'E-mail from nightly check of LON-CAPA module integrity/updates',
	'idconflictsmail' => 'E-mail from bi-nightly check for multiple users sharing same student/employee ID',
);	);
my %short_titles = &Apache::lonlocal::texthash (	my %short_titles = &Apache::lonlocal::texthash (
adminemail => 'Admin E-mail address',	adminemail => 'Admin E-mail address',
Line 3239 sub tool_titles {	Line 3513 sub tool_titles {
official => 'Official courses (with institutional codes)',	official => 'Official courses (with institutional codes)',
unofficial => 'Unofficial courses',	unofficial => 'Unofficial courses',
community => 'Communities',	community => 'Communities',
	textbook => 'Textbook courses',
);	);
return %titles;	return %titles;
}	}
Line 3248 sub courserequest_titles {	Line 3523 sub courserequest_titles {
official => 'Official',	official => 'Official',
unofficial => 'Unofficial',	unofficial => 'Unofficial',
community => 'Communities',	community => 'Communities',
	textbook => 'Textbook',
norequest => 'Not allowed',	norequest => 'Not allowed',
approval => 'Approval by Dom. Coord.',	approval => 'Approval by Dom. Coord.',
validate => 'With validation',	validate => 'With validation',
Line 3652 sub print_usermodification {	Line 3928 sub print_usermodification {
}	}

sub print_defaults {	sub print_defaults {
my ($dom,$rowtotal) = @_;	my ($dom,$settings,$rowtotal) = @_;
my @items = ('auth_def','auth_arg_def','lang_def','timezone_def',	my @items = ('auth_def','auth_arg_def','lang_def','timezone_def',
'datelocale_def','portal_def');	'datelocale_def','portal_def');
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %defaults;
	if (ref($settings) eq 'HASH') {
	%defaults = %{$settings};
	} else {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
	foreach my $item (@items) {
	$defaults{$item} = $domdefaults{$item};
	}
	}
my $titles = &defaults_titles($dom);	my $titles = &defaults_titles($dom);
my $rownum = 0;	my $rownum = 0;
my ($datatable,$css_class);	my ($datatable,$css_class);
Line 3679 sub print_defaults {	Line 3963 sub print_defaults {
my %authnames = &authtype_names();	my %authnames = &authtype_names();
foreach my $auth (@authtypes) {	foreach my $auth (@authtypes) {
my $checked = ' ';	my $checked = ' ';
if ($domdefaults{$item} eq $auth) {	if ($defaults{$item} eq $auth) {
$checked = ' checked="checked" ';	$checked = ' checked="checked" ';
}	}
$datatable .= '<label><input type="radio" name="'.$item.	$datatable .= '<label><input type="radio" name="'.$item.
Line 3688 sub print_defaults {	Line 3972 sub print_defaults {
}	}
} elsif ($item eq 'timezone_def') {	} elsif ($item eq 'timezone_def') {
my $includeempty = 1;	my $includeempty = 1;
$datatable .= &Apache::loncommon::select_timezone($item,$domdefaults{$item},undef,$includeempty);	$datatable .= &Apache::loncommon::select_timezone($item,$defaults{$item},undef,$includeempty);
} elsif ($item eq 'datelocale_def') {	} elsif ($item eq 'datelocale_def') {
my $includeempty = 1;	my $includeempty = 1;
$datatable .= &Apache::loncommon::select_datelocale($item,$domdefaults{$item},undef,$includeempty);	$datatable .= &Apache::loncommon::select_datelocale($item,$defaults{$item},undef,$includeempty);
} elsif ($item eq 'lang_def') {	} elsif ($item eq 'lang_def') {
my %langchoices = &get_languages_hash();	my %langchoices = &get_languages_hash();
$langchoices{''} = 'No language preference';	$langchoices{''} = 'No language preference';
%langchoices = &Apache::lonlocal::texthash(%langchoices);	%langchoices = &Apache::lonlocal::texthash(%langchoices);
$datatable .= &Apache::loncommon::select_form($domdefaults{$item},$item,	$datatable .= &Apache::loncommon::select_form($defaults{$item},$item,
\%langchoices);	\%langchoices);
} else {	} else {
my $size;	my $size;
Line 3704 sub print_defaults {	Line 3988 sub print_defaults {
$size = ' size="25"';	$size = ' size="25"';
}	}
$datatable .= '<input type="text" name="'.$item.'" value="'.	$datatable .= '<input type="text" name="'.$item.'" value="'.
$domdefaults{$item}.'"'.$size.' />';	$defaults{$item}.'"'.$size.' />';
}	}
$datatable .= '</td></tr>';	$datatable .= '</td></tr>';
$rownum ++;	$rownum ++;
Line 3856 sub print_scantronformat {	Line 4140 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 3882 sub print_scantronformat {	Line 4166 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 4040 sub print_coursecategories {	Line 4325 sub print_coursecategories {
}	}
$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';	$datatable .= '<option value="'.$k.'"'.$selstr.'>'.$vpos.'</option>';
}	}
$datatable .= '</select></td><td>';	$datatable .= '</select></span></td><td>';
if ($parent eq 'instcode' \|\| $parent eq 'communities') {	if ($parent eq 'instcode' \|\| $parent eq 'communities') {
$datatable .= '<span class="LC_nobreak">'	$datatable .= '<span class="LC_nobreak">'
.$default_names{$parent}.'</span>';	.$default_names{$parent}.'</span>';
Line 4070 sub print_coursecategories {	Line 4355 sub print_coursecategories {
$datatable .= '</td>';	$datatable .= '</td>';
} else {	} else {
$datatable .= $parent	$datatable .= $parent
.' <label><input type="checkbox" name="deletecategory" '	.' <span class="LC_nobreak"><label>'
	.'<input type="checkbox" name="deletecategory" '
.'value="'.$item.'" />'.&mt('Delete').'</label></span></td>';	.'value="'.$item.'" />'.&mt('Delete').'</label></span></td>';
}	}
my $depth = 1;	my $depth = 1;
Line 4342 sub build_category_rows {	Line 4628 sub build_category_rows {
if (ref($cats->[$depth]{$parent}) eq 'ARRAY') {	if (ref($cats->[$depth]{$parent}) eq 'ARRAY') {
my $numchildren = @{$cats->[$depth]{$parent}};	my $numchildren = @{$cats->[$depth]{$parent}};
my $css_class = $itemcount%2?' class="LC_odd_row"':'';	my $css_class = $itemcount%2?' class="LC_odd_row"':'';
$text .= '<td><table class="LC_datatable">';	$text .= '<td><table class="LC_data_table">';
my ($idxnum,$parent_name,$parent_item);	my ($idxnum,$parent_name,$parent_item);
my $higher = $depth - 1;	my $higher = $depth - 1;
if ($higher == 0) {	if ($higher == 0) {
Line 4634 sub usertype_update_row {	Line 4920 sub usertype_update_row {
}	}

sub modify_login {	sub modify_login {
my ($r,$dom,$confname,%domconfig) = @_;	my ($r,$dom,$confname,$lastactref,%domconfig) = @_;
my ($resulttext,$errors,$colchgtext,%changes,%colchanges,%newfile,%newurl,	my ($resulttext,$errors,$colchgtext,%changes,%colchanges,%newfile,%newurl,
%curr_loginvia,%loginhash,@currlangs,@newlangs,$addedfile,%title,@offon);	%curr_loginvia,%loginhash,@currlangs,@newlangs,$addedfile,%title,@offon);
%title = ( coursecatalog => 'Display course catalog',	%title = ( coursecatalog => 'Display course catalog',
Line 4872 sub modify_login {	Line 5158 sub modify_login {
}	}
if (keys(%changes) > 0 \|\| $colchgtext) {	if (keys(%changes) > 0 \|\| $colchgtext) {
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (sort(keys(%changes))) {	foreach my $item (sort(keys(%changes))) {
if ($item eq 'loginvia') {	if ($item eq 'loginvia') {
Line 4992 sub color_font_choices {	Line 5281 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 5004 sub color_font_choices {	Line 5293 sub color_font_choices {
}	}

sub modify_rolecolors {	sub modify_rolecolors {
my ($r,$dom,$confname,$roles,%domconfig) = @_;	my ($r,$dom,$confname,$roles,$lastactref,%domconfig) = @_;
my ($resulttext,%rolehash);	my ($resulttext,%rolehash);
$rolehash{'rolecolors'} = {};	$rolehash{'rolecolors'} = {};
if (ref($domconfig{'rolecolors'}) ne 'HASH') {	if (ref($domconfig{'rolecolors'}) ne 'HASH') {
Line 5019 sub modify_rolecolors {	Line 5308 sub modify_rolecolors {
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
$resulttext = &display_colorchgs($dom,\%changes,$roles,	$resulttext = &display_colorchgs($dom,\%changes,$roles,
$rolehash{'rolecolors'});	$rolehash{'rolecolors'});
} else {	} else {
Line 5044 sub modify_colors {	Line 5336 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'};
	}
	if ($role eq 'login') {
	foreach my $item (@logintext) {
	unless ($env{'form.'.$role.'_'.$item} eq $defaults{'logintext'}{$item}) {
	$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
	}
	}
	} else {
	unless($env{'form.'.$role.'_fontmenu'} eq $defaults{'fontmenu'}) {
	$confhash->{$role}{'fontmenu'} = $env{'form.'.$role.'_fontmenu'};
	}
	}
	foreach my $item (@bgs) {
	unless ($env{'form.'.$role.'_'.$item} eq $defaults{'bgs'}{$item} ) {
	$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$item};
	}
}	}
$confhash->{$role}{'font'} = $env{'form.'.$role.'_font'};	foreach my $item (@links) {
foreach my $item (@bgs,@links,@logintext) {	unless ($env{'form.'.$role.'_'.$item} eq $defaults{'links'}{$item}) {
$confhash->{$role}{$item} = $env{'form.'.$role.'_'.$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 5417 sub publishlogo {	Line 5730 sub publishlogo {
if ($fname=~m\|/\|) {	if ($fname=~m\|/\|) {
($fnamepath,$file) = ($fname =~ m\|^(.*)/([^/]+)$\|);	($fnamepath,$file) = ($fname =~ m\|^(.*)/([^/]+)$\|);
}	}
my @parts=split(/\//,"$filepath/$relpath/$fnamepath");	my @parts=split(/\//,"$filepath/$relpath/$fnamepath");
my $count;	my $count;
for ($count=5;$count<=$#parts;$count++) {	for ($count=5;$count<=$#parts;$count++) {
$filepath.="/$parts[$count]";	$filepath.="/$parts[$count]";
Line 5429 sub publishlogo {	Line 5742 sub publishlogo {
if ($file=~/\.(\w+)$/ &&	if ($file=~/\.(\w+)$/ &&
(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {	(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
$output =	$output =
&mt('Invalid file extension ([_1]) - reserved for LONCAPA use.',$1);	&mt('Invalid file extension ([_1]) - reserved for internal use.',$1);
} elsif ($file=~/\.(\w+)$/ &&	} elsif ($file=~/\.(\w+)$/ &&
!defined(&Apache::loncommon::fileembstyle($1))) {	!defined(&Apache::loncommon::fileembstyle($1))) {
$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);	$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);
} elsif ($file=~/\.(\d+)\.(\w+)$/) {	} elsif ($file=~/\.(\d+)\.(\w+)$/) {
$output = &mt('File name not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);	$output = &mt('Filename not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);
} elsif (-d "$filepath/$file") {	} elsif (-d "$filepath/$file") {
$output = &mt('File name is a directory name - rename the file and re-upload');	$output = &mt('Filename is a directory name - rename the file and re-upload');
} else {	} else {
my $source = $filepath.'/'.$file;	my $source = $filepath.'/'.$file;
my $logfile;	my $logfile;
if (!open($logfile,">>$source".'.log')) {	if (!open($logfile,">>$source".'.log')) {
return (&mt('No write permission to Construction Space'));	return (&mt('No write permission to Authoring Space'));
}	}
print $logfile	print $logfile
"\n================= Publish ".localtime()." ================\n".	"\n================= Publish ".localtime()." ================\n".
Line 5678 sub check_switchserver {	Line 5991 sub check_switchserver {
}	}

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

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

Line 5871 sub modify_quotas {	Line 6356 sub modify_quotas {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
unless (($context eq 'requestcourses') \|\|	unless (($context eq 'requestcourses') \|\|
($context eq 'requestauthor')) {	($context eq 'requestauthor')) {
Line 5883 sub modify_quotas {	Line 6370 sub modify_quotas {
if ($type eq 'default') {	if ($type eq 'default') {
$typetitle = $othertitle;	$typetitle = $othertitle;
}	}
$resulttext .= '<li>'.&mt('[_1] set to [_2] Mb',$typetitle,$confhash{'defaultquota'}{$type}).'</li>';	$resulttext .= '<li>'.&mt('[_1] set to [_2] MB',$typetitle,$confhash{'defaultquota'}{$type}).'</li>';
	}
	}
	$resulttext .= '</ul></li>';
	}
	if (ref($changes{'authorquota'}) eq 'HASH') {
	$resulttext .= '<li>'.&mt('Authoring space default quotas').'<ul>';
	foreach my $type (@{$types},'default') {
	if (defined($changes{'authorquota'}{$type})) {
	my $typetitle = $usertypes->{$type};
	if ($type eq 'default') {
	$typetitle = $othertitle;
	}
	$resulttext .= '<li>'.&mt('[_1] set to [_2] MB',$typetitle,$confhash{'authorquota'}{$type}).'</li>';
}	}
}	}
$resulttext .= '</ul></li>';	$resulttext .= '</ul></li>';
Line 5980 sub modify_quotas {	Line 6480 sub modify_quotas {
}	}
}	}
}	}
	if ($action eq 'requestcourses') {
	my @offon = ('off','on');
	if ($changes{'uniquecode'}) {
	$resulttext .= '<li>'.
	&mt('Generation of six character code as course identifier for distribution to students set to '.
	$offon[$env{'form.uniquecode'}]).
	'</li>';
	}
	if (ref($changes{'textbooks'}) eq 'HASH') {
	$resulttext .= '<li>'.&mt('Available textbooks updated').'<ul>';
	foreach my $key (sort(keys(%{$changes{'textbooks'}}))) {
	my %coursehash = &Apache::lonnet::coursedescription($key);
	my $coursetitle = $coursehash{'description'};
	my $position = $confhash{'textbooks'}{$key}{'order'} + 1;
	$resulttext .= '<li>';
	foreach my $item ('subject','title','author') {
	my $name = $item.':';
	$name =~ s/^(\w)/\U$1/;
	$resulttext .= &mt($name).' '.$confhash{'textbooks'}{$key}{$item}.'<br />';
	}
	$resulttext .= ' '.&mt('Order: [_1]',$position).'<br />';
	if ($confhash{'textbooks'}{$key}{'image'}) {
	$resulttext .= ' '.&mt('Image: [_1]',
	'<img src="'.$confhash{'textbooks'}{$key}{'image'}.'"'.
	' alt="Textbook cover" />').'<br />';
	}
	$resulttext .= ' '.&mt('LON-CAPA Course: [_1]',$coursetitle).'</li>';
	}
	$resulttext .= '</ul></li>';
	}
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
if (keys(%newenv)) {	if (keys(%newenv)) {
&Apache::lonnet::appenv(\%newenv);	&Apache::lonnet::appenv(\%newenv);
Line 5997 sub modify_quotas {	Line 6528 sub modify_quotas {
$resulttext = '<span class="LC_error">'.	$resulttext = '<span class="LC_error">'.
&mt('An error occurred: [_1]',$putresult).'</span>';	&mt('An error occurred: [_1]',$putresult).'</span>';
}	}
	if ($errors) {
	$resulttext .= '<p>'.&mt('The following errors occurred when modifying Textbook settings.').
	'<ul>'.$errors.'</ul></p>';
	}
return $resulttext;	return $resulttext;
}	}

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

sub modify_autoenroll {	sub modify_autoenroll {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,%changes);	my ($resulttext,%changes);
my %currautoenroll;	my %currautoenroll;
if (ref($domconfig{'autoenroll'}) eq 'HASH') {	if (ref($domconfig{'autoenroll'}) eq 'HASH') {
Line 6069 sub modify_autoenroll {	Line 6631 sub modify_autoenroll {
if ($changes{'coowners'}) {	if ($changes{'coowners'}) {
$resulttext .= '<li>'.&mt("$title{'coowners'} set to $offon[$env{'form.autoassign_coowners'}]").'</li>';	$resulttext .= '<li>'.&mt("$title{'coowners'} set to $offon[$env{'form.autoassign_coowners'}]").'</li>';
&Apache::loncommon::devalidate_domconfig_cache($dom);	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
}	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
Line 6520 sub modify_directorysrch {	Line 7085 sub modify_directorysrch {
}	}

sub modify_contacts {	sub modify_contacts {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my ($resulttext,%currsetting,%newsetting,%changes,%contacts_hash);	my ($resulttext,%currsetting,%newsetting,%changes,%contacts_hash);
if (ref($domconfig{'contacts'}) eq 'HASH') {	if (ref($domconfig{'contacts'}) eq 'HASH') {
foreach my $key (keys(%{$domconfig{'contacts'}})) {	foreach my $key (keys(%{$domconfig{'contacts'}})) {
Line 6530 sub modify_contacts {	Line 7095 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','updatesmail');	'requestsmail','updatesmail','idconflictsmail');
	my @toggles = ('reporterrors','reportupdates');
foreach my $type (@mailings) {	foreach my $type (@mailings) {
@{$newsetting{$type}} =	@{$newsetting{$type}} =
&Apache::loncommon::get_env_multiple('form.'.$type);	&Apache::loncommon::get_env_multiple('form.'.$type);
Line 6552 sub modify_contacts {	Line 7118 sub modify_contacts {
$to{$item} = $env{'form.'.$item};	$to{$item} = $env{'form.'.$item};
$contacts_hash{'contacts'}{$item} = $to{$item};	$contacts_hash{'contacts'}{$item} = $to{$item};
}	}
	foreach my $item (@toggles) {
	if ($env{'form.'.$item} =~ /^(0\|1)$/) {
	$contacts_hash{'contacts'}{$item} = $env{'form.'.$item};
	}
	}
if (keys(%currsetting) > 0) {	if (keys(%currsetting) > 0) {
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($to{$item} ne $currsetting{$item}) {	if ($to{$item} ne $currsetting{$item}) {
Line 6590 sub modify_contacts {	Line 7161 sub modify_contacts {
foreach my $item (@contacts) {	foreach my $item (@contacts) {
if ($to{$item} ne $default{$item}) {	if ($to{$item} ne $default{$item}) {
$changes{$item} = 1;	$changes{$item} = 1;
}	}
}	}
foreach my $type (@mailings) {	foreach my $type (@mailings) {
if ((@{$newsetting{$type}} != 1) \|\| ($newsetting{$type}[0] ne $default{$type})) {	if ((@{$newsetting{$type}} != 1) \|\| ($newsetting{$type}[0] ne $default{$type})) {
Line 6607 sub modify_contacts {	Line 7178 sub modify_contacts {
}	}
}	}
}	}
	foreach my $item (@toggles) {
	if (($env{'form.'.$item} == 1) && ($currsetting{$item} == 0)) {
	$changes{$item} = 1;
	} elsif ((!$env{'form.'.$item}) &&
	(($currsetting{$item} eq '') \|\| ($currsetting{$item} == 1))) {
	$changes{$item} = 1;
	}
	}
my $putresult = &Apache::lonnet::put_dom('configuration',\%contacts_hash,	my $putresult = &Apache::lonnet::put_dom('configuration',\%contacts_hash,
$dom);	$dom);
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
	&Apache::loncommon::devalidate_domconfig_cache($dom);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domainconfig'} = 1;
	}
my ($titles,$short_titles) = &contact_titles();	my ($titles,$short_titles) = &contact_titles();
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
foreach my $item (@contacts) {	foreach my $item (@contacts) {
Line 6641 sub modify_contacts {	Line 7224 sub modify_contacts {
$resulttext .= '</li>';	$resulttext .= '</li>';
}	}
}	}
	my @offon = ('off','on');
	if ($changes{'reporterrors'}) {
	$resulttext .= '<li>'.
	&mt('E-mail error reports to [_1] set to "'.
	$offon[$env{'form.reporterrors'}].'".',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500)).
	'</li>';
	}
	if ($changes{'reportupdates'}) {
	$resulttext .= '<li>'.
	&mt('E-mail record of completed LON-CAPA updates to [_1] set to "'.
	$offon[$env{'form.reportupdates'}].'".',
	&Apache::loncommon::modal_link('http://loncapa.org/core.html',
	&mt('LON-CAPA core group - MSU'),600,500)).
	'</li>';
	}
$resulttext .= '</ul>';	$resulttext .= '</ul>';
} else {	} else {
$resulttext = &mt('No changes made to contact information');	$resulttext = &mt('No changes made to contact information');
Line 6668 sub modify_usercreation {	Line 7268 sub modify_usercreation {
foreach my $item(@contexts) {	foreach my $item(@contexts) {
if ($item eq 'selfcreate') {	if ($item eq 'selfcreate') {
@{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item);	@{$cancreate{$item}} = &Apache::loncommon::get_env_multiple('form.can_createuser_'.$item);
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) \|\| ($domdefaults{'auth_def'} eq 'localauth'))) {	if (!((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) \|\| ($domdefaults{'auth_def'} eq 'localauth'))) {
if (ref($cancreate{$item}) eq 'ARRAY') {	if (ref($cancreate{$item}) eq 'ARRAY') {
if (grep(/^login$/,@{$cancreate{$item}})) {	if (grep(/^login$/,@{$cancreate{$item}})) {
Line 7235 sub modify_usermodification {	Line 7835 sub modify_usermodification {
}	}

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

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

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

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

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

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

sub modify_usersessions {	sub modify_usersessions {
my ($dom,%domconfig) = @_;	my ($dom,$lastactref,%domconfig) = @_;
my @hostingtypes = ('version','excludedomain','includedomain');	my @hostingtypes = ('version','excludedomain','includedomain');
my @offloadtypes = ('primary','default');	my @offloadtypes = ('primary','default');
my %types = (	my %types = (
Line 7965 sub modify_usersessions {	Line 8636 sub modify_usersessions {
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
$defaultshash{'usersessions'}{$prefix} = {};	$defaultshash{'usersessions'}{$prefix} = {};
}	}
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);	my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1);
my $resulttext;	my $resulttext;
my %iphost = &Apache::lonnet::get_iphost();	my %iphost = &Apache::lonnet::get_iphost();
foreach my $prefix (@prefixes) {	foreach my $prefix (@prefixes) {
Line 8141 sub modify_usersessions {	Line 8812 sub modify_usersessions {
}	}
my $cachetime = 246060;	my $cachetime = 246060;
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);	&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime);
	if (ref($lastactref) eq 'HASH') {
	$lastactref->{'domdefaults'} = 1;
	}
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
my %lt = &usersession_titles();	my %lt = &usersession_titles();
$resulttext = &mt('Changes made:').'<ul>';	$resulttext = &mt('Changes made:').'<ul>';
Line 8152 sub modify_usersessions {	Line 8826 sub modify_usersessions {
foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) {	foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) {
$resulttext .= '<li><b>'.$lonhost.'</b> ';	$resulttext .= '<li><b>'.$lonhost.'</b> ';
my $lonhostdom = &Apache::lonnet::host_domain($lonhost);	my $lonhostdom = &Apache::lonnet::host_domain($lonhost);
&Apache::lonnet::remote_devalidate_cache($lonhost,'spares',$lonhostdom);	my $cachekey = &escape('spares').':'.&escape($lonhostdom);
	&Apache::lonnet::remote_devalidate_cache($lonhost,[$cachekey]);
if (ref($changes{$prefix}{$lonhost}) eq 'HASH') {	if (ref($changes{$prefix}{$lonhost}) eq 'HASH') {
foreach my $type (@{$types{$prefix}}) {	foreach my $type (@{$types{$prefix}}) {
if ($changes{$prefix}{$lonhost}{$type}) {	if ($changes{$prefix}{$lonhost}{$type}) {
Line 8334 sub modify_loadbalancing {	Line 9009 sub modify_loadbalancing {
}	}
my $putresult = &Apache::lonnet::put_dom('configuration',	my $putresult = &Apache::lonnet::put_dom('configuration',
\%defaultshash,$dom);	\%defaultshash,$dom);

if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {
if (ref($changes{'delete'}) eq 'ARRAY') {	if (ref($changes{'delete'}) eq 'ARRAY') {
foreach my $balancer (sort(@{$changes{'delete'}})) {	foreach my $balancer (sort(@{$changes{'delete'}})) {
$resulttext .= '<li>'.&mt('Load Balancing discontinued for: [_1]',$balancer).'</li>';	$resulttext .= '<li>'.&mt('Load Balancing discontinued for: [_1]',$balancer).'</li>';
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);	my $cachekey = &escape('loadbalancing').':'.&escape($dom);
	&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);
}	}
}	}
if (ref($changes{'add'}) eq 'ARRAY') {	if (ref($changes{'add'}) eq 'ARRAY') {
Line 8385 sub modify_loadbalancing {	Line 9060 sub modify_loadbalancing {
my $balancetext;	my $balancetext;
if ($rule eq '') {	if ($rule eq '') {
$balancetext = $ruletitles{'default'};	$balancetext = $ruletitles{'default'};
} elsif (($rule eq 'homeserver') \|\| ($rule eq 'externalbalancer')) {	} elsif (($rule eq 'homeserver') \|\| ($rule eq 'externalbalancer') \|\|
	($rule eq 'balancer') \|\| ($rule eq 'offloadedto')) {
$balancetext = $ruletitles{$rule};	$balancetext = $ruletitles{$rule};
} else {	} else {
$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type});	$balancetext = &mt('offload to [_1]',$defaultshash{'loadbalancing'}{$balancer}{'rules'}{$type});
}	}
$resulttext .= '<li>'.&mt('Load Balancer: [_1] -- balancing for [_2] set to - "[_3]"',$balancer,$titles->{$type},$balancetext).'</li>';	$resulttext .= '<li>'.&mt('Load Balancer: [_1] -- balancing for [_2] set to - "[_3]"',$balancer,$titles->{$type},$balancetext).'</li>';
}	}
}	}
}	}
}	}
&Apache::lonnet::remote_devalidate_cache($balancer,'loadbalancing',$dom);	my $cachekey = &escape('loadbalancing').':'.&escape($dom);
	&Apache::lonnet::remote_devalidate_cache($balancer,[$cachekey]);
}	}
}	}
if ($resulttext ne '') {	if ($resulttext ne '') {
Line 8450 sub recurse_cat_deletes {	Line 9127 sub recurse_cat_deletes {
delete($coursecategories->{$subitem});	delete($coursecategories->{$subitem});
$deletions->{$subitem} = 1;	$deletions->{$subitem} = 1;
&recurse_cat_deletes($subitem,$coursecategories,$deletions);	&recurse_cat_deletes($subitem,$coursecategories,$deletions);
}	}
}	}
}	}
return;	return;
Line 8688 function showSpares(balancer,ishomedom,b	Line 9365 function showSpares(balancer,ishomedom,b
} else {	} else {
document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='none';	document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='none';
document.getElementById('balancerule_'+balnum+'_'+insttypes[k]).style.display='none';	document.getElementById('balancerule_'+balnum+'_'+insttypes[k]).style.display='none';

}	}
} else {	} else {
document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='block';	document.getElementById('balanceruletitle_'+balnum+'_'+insttypes[k]).style.display='block';
Line 8705 function showSpares(balancer,ishomedom,b	Line 9381 function showSpares(balancer,ishomedom,b
if ((currBalancers.indexOf(alltargets[m]) == -1) && (alltargets[m] != balancer)) {	if ((currBalancers.indexOf(alltargets[m]) == -1) && (alltargets[m] != balancer)) {
idx ++;	idx ++;
item.options[idx] = new Option(alltargets[m],alltargets[m],false,false);	item.options[idx] = new Option(alltargets[m],alltargets[m],false,false);

}	}
}	}
}	}
Line 8778 function singleServerToggle(balnum,type)	Line 9453 function singleServerToggle(balnum,type)

function balanceruleChange(formname,balnum,type) {	function balanceruleChange(formname,balnum,type) {
if (type == '_LC_external') {	if (type == '_LC_external') {
return;	return;
}	}
var typesRules = getIndicesByName(formname,'loadbalancing_rules_'+balnum+'_'+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++) {
Line 9118 sub captcha_phrases {	Line 9793 sub captcha_phrases {
);	);
}	}

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

1;	1;

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

Removed from v.1.160.6.17
changed lines
	Added in v.1.216