loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.102.2.3, 2009/08/23 17:36:53	version 1.102.4.4, 2009/12/07 01:43:27
Line 1370 sub print_quotas {	Line 1370 sub print_quotas {
}	}
}	}
}	}
if (!$curroption) {
$curroption = 'norequest';
}
$datatable .= '<th>'.$titles{$item}.'</th>';	$datatable .= '<th>'.$titles{$item}.'</th>';
my $checked = '';	my $checked = '';
if ($curroption eq '') {	if ($curroption eq '') {
Line 2636 sub print_serverstatuses {	Line 2633 sub print_serverstatuses {
sub serverstatus_pages {	sub serverstatus_pages {
return ('userstatus','lonstatus','loncron','server-status','codeversions',	return ('userstatus','lonstatus','loncron','server-status','codeversions',
'clusterstatus','metadata_keywords','metadata_harvest',	'clusterstatus','metadata_keywords','metadata_harvest',
'takeoffline','takeonline','showenv');	'takeoffline','takeonline','showenv','toggledebug');
}	}

sub coursecategories_javascript {	sub coursecategories_javascript {
Line 5015 sub modify_defaults {	Line 5012 sub modify_defaults {
if ($newvalues{$item} ne '') {	if ($newvalues{$item} ne '') {
if ($newvalues{$item} =~ /^(\w+)/) {	if ($newvalues{$item} =~ /^(\w+)/) {
my $langcode = $1;	my $langcode = $1;
if ($langcode ne 'x_chef') {	if (($langcode ne 'gci') && ($langcode ne 'gct') &&
	($langcode ne 'x_chef')) {
if (code2language($langcode) eq '') {	if (code2language($langcode) eq '') {
push(@errors,$item);	push(@errors,$item);
}	}