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);
 }