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