davidsuarez.es

En ocasiones queremos que determinado texto solo sea visible para algunos usuarios en WordPress. Para ello hay que identificar el nivel otorgado al usuario y hacer una simple sentencia "if".

En el caso de wordpress existen los siguientes niveles posibles:

• Administrator: Level 10
• Editor: Level 7
• Author: Level 4
• Contributor: Level 2
• Subscriber: Level 0

Para entenderlo un poco mejor vamos a poner un ejemplo. Imagínate que tengo una función que me muestra el número de visitas que ha recibido un post pero solo quiero que esté visible para el Administrador del blog que tiene el nivel 10 según la tabla anterior.

La sentencia sería:

De esta forma la función "the_views" solo se mostrará si el usuario que está leyendo el blog está logado y tiene el rol de administrador.

Esta sentencia puede ser introducida en cualquiera de los archivos de WordPress como pueden ser index.php, single.php, etc...

En algunas ocasiones nos es útil capturar el usuario del equipo que maneja nuestra aplicación para dejar constancia de quien ha sido el usuario que ha creado o modificado un registro. El siguiente codigo nos ayuda a ello. Nos permite capturar el usuario con el que se ha iniciado la sesión en un pc con Windows, si se trabaja en un entorno con dominio nos devolverá el usuario que ha iniciado la sesión en el dominio.

Primero debemos declarar la función en "General-Declaraciones" de la siguiente forma

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Luego podemos capturar el usuario en el Form_Load del formulario principal, en el caso siguiente pongo el nombre del usuario en la caja de texto txtUserName.

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long

sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub