isaccess - comprueba si el usuario tiene permisos de staff.

alias isaccess {
  if (!$1) { return No se ha pasado ningún parametro. }
  if ($1 isnum) { return Debe pasar el nombre de un usuario, no puede empezar por número o ser únicamente numerico }
  var %ACL.tabla = usuarios
  var %ACL.sql =  SELECT U.id_usuario, U.usuario, P.id_privilegio, P.privilegio, UP.id_usuario, UP.id_privilegio FROM user_prvs AS UP INNER JOIN usuarios AS U ON UP.id_usuario = U.id_usuario INNER JOIN privilegios AS P ON UP.id_privilegio = P.id_privilegio WHERE U.usuario = $+($chr(39),$1,$chr(39))
  if ($dbGet(%ACL.tabla,%ACL.sql)) {
    if ($dbResults) {
      var %ACL.privilegio = $hget(db_results,privilegio)
      if (%ACL.privilegio == ROOT) { return ROOT }
      elseif (%ACL.privilegio == ADMIN) { return ADMIN }
      elseif (%ACL.privilegio == COORD) { return COORD }
      elseif (%ACL.privilegio == CODER) { return CODER }
      elseif (%ACL.privilegio == LOCUTOR) { return LOCUTOR }
    }
    elseif (!$dbResults) {
      return No se han encontrado resultados para $1
    }
  }
}