/**
* For a given permission object, set the given group of
* users/groups/roles that have a given permission, removing any
* previous assignment.
*/
function setPermissionForID($sPermission, $iObjectID, $aAllowed)
{
$oPermissionAssignment =& KTPermissionUtil::getOrCreateAssignment($sPermission, $iObjectID);
$oDescriptor =& KTPermissionUtil::getOrCreateDescriptor($aAllowed);
$oPermissionAssignment->setPermissionDescriptorID($oDescriptor->getID());
$res = $oPermissionAssignment->update();
return $res;
}
