function delete($aSource) { global $g_oSec; if (!$g_oSec->HasPerm(DCL_ENTITY_ROLE, DCL_PERM_DELETE)) { return PrintPermissionDenied(); } $oDB =& CreateObject('dcl.dbRolePerm'); $oDB->DeleteRole($aSource['role_id']); return parent::Delete($aSource); }