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) { |