Cambiar la pagina por defecto de Doors

A partir de la version 7.4.10 se puede cambiar la pagina por defecto a la que se accede luego de loguearse

Para esto hay que setear una Property de Usuario en la biblioteca de codigo /System folders/Foms/Codelib/Session_OnStart

Por ejemplo, mediante este codigo detectamos si el usuario esta accediendo con un dispositivo movil y cambiamos la pagina por defecto:

If IsObject(CodelibParams) Then
    ' Levanta la lista de parametros que recibe el evento
    ' En caso de tratarse de un inicio de sesion en navegador 
    ' vienen todos los headers del Request
    vKeys = CodelibParams.Keys
    vItems = CodelibParams.Items
    For i = 0 To UBound(vKeys)
        If(LCase(vKeys(i)) = "user-agent") Then
            ' Vamos a evaluar mediante una expresion regular 
            ' si estamos accediendo con un celular
            Set myRegExp = New RegExp
            myRegExp.IgnoreCase = True
            myRegExp.Global = True
            myRegExp.Pattern = "\iphone|ipad|ipod|android|blackberry|mini|windows\sce|palm/i"                        
            Set res = myRegExp.Execute(vItems(i))
            If res.Count > 0 Then
                dSession.DebugPrint "Iniciando desde mobile/tablet"
                dSession.LoggedUser.Settings("HOMEPAGE") = "/homemobile"              
            End If
        End If
    Next  
End If