version 1.122, 2009/12/04 14:17:38
|
version 1.124, 2010/01/02 20:26:10
|
Line 5624 sub modify_coursecategories {
|
Line 5624 sub modify_coursecategories {
|
} else { |
} else { |
$changes{'togglecats'} = 1; |
$changes{'togglecats'} = 1; |
$changes{'categorize'} = 1; |
$changes{'categorize'} = 1; |
$domconfig{'coursecategories'} = { |
|
togglecats => $env{'form.togglecats'}, |
|
categorize => $env{'form.categorize'}, |
|
}; |
|
$changes{'togglecatscomm'} = 1; |
$changes{'togglecatscomm'} = 1; |
$changes{'categorizecomm'} = 1; |
$changes{'categorizecomm'} = 1; |
$domconfig{'coursecategories'} = { |
$domconfig{'coursecategories'} = { |
togglecats => $env{'form.togglecatscomm'}, |
togglecats => $env{'form.togglecats'}, |
categorize => $env{'form.categorizecomm'}, |
categorize => $env{'form.categorize'}, |
|
togglecatscomm => $env{'form.togglecatscomm'}, |
|
categorizecomm => $env{'form.categorizecomm'}, |
}; |
}; |
} |
} |
if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
Line 6033 sub modify_helpsettings {
|
Line 6031 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) { |