20 lines
865 B
Plaintext
20 lines
865 B
Plaintext
@imports OCMS
|
|
@ModelType Global.OCMS.intranet.intranet_model
|
|
@Code
|
|
ViewData("Title") = "Fuchs Intranet"
|
|
|
|
Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing)
|
|
Dim userident As Global.OCMS.ocms_UserIdentity = If(IsNothing(Ctrl) = False, Ctrl.UserIdent_base, Nothing)
|
|
Dim isAuth As Boolean = If(IsNothing(userident), False, userident.isAuthenticated())
|
|
|
|
End Code
|
|
|
|
@Section CustomHeader
|
|
@Me.Context.MvcLink("web/fuchs.css", MinIfNotDebug:=True, appendDateSuffix:=True)
|
|
@Me.Context.MvcLink("web/fuchs.js", MinIfNotDebug:=True, appendDateSuffix:=True)
|
|
End Section
|
|
|
|
@If isAuth = True Then
|
|
|
|
End If
|