loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.122, 2009/12/04 14:17:38	version 1.123.2.1, 2009/12/07 01:47:49
Line 5436 sub modify_defaults {	Line 5436 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);
}	}
Line 6033 sub modify_helpsettings {	Line 6034 sub modify_helpsettings {
}	}
}	}

my $putresult = &Apache::lonnet::put_dom('configuration',\%helphash,$dom);
	my $putresult;

	if (keys(%changes) > 0) {
	$putresult = &Apache::lonnet::put_dom('configuration',\%helphash,$dom);
	} else {
	$putresult = 'ok';
	}

if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if (keys(%changes) > 0) {	if (keys(%changes) > 0) {