@imports OCMS
@imports json = Newtonsoft.Json.JsonConvert
@ModelType Global.OCMS.intranet.intranet_model
@code
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())
Dim isIE As Boolean = Global.OCMS.intranet.OCMS_intranet.isUNSupportedBrowser(Ctrl)
Dim UserDic As New Global.OCMS.GenericObjectDictionary(If(IsNothing(userident) = False, userident.toDictionary, New Dictionary(Of String, Object)))
Dim authinfo As New Dictionary(Of String, Object)
If isAuth = True Then
UserDic.CopyTo(authinfo)
End If
authinfo.set("requestedaccount", Ctrl.RequestedAccount)
authinfo.set("accountrequired", Ctrl.isAccountRequired)
Dim textsdic As New LanguageTextDic("de")
With textsdic
.Add("lgo", "abmelden", "log out")
.Add("rsp", "Passwort ändern", "Change Password")
.Add("po", "Übersicht", "Overview")
End With
End Code
@(If(If(Me.ViewData("Title"), "") <> "", Me.ViewData("Title"), "Intranet"))
@Me.Context.MvcLink("/web/tools.min.css", appendDateSuffix:=True)
@Me.Context.MvcLink("/web/tools.js", appendDateSuffix:=True)
@If isAuth = True AndAlso isIE = False Then
@Me.Context.MvcLink("/Scripts/tinymce/tinymce.js")
@Me.Context.MvcLink("/web/fis.css", appendDateSuffix:=True)
@Me.Context.MvcLink("/web/fis.js", appendDateSuffix:=True)
Else
@Me.Context.MvcLink("/web/fisb.css", appendDateSuffix:=True)
@Me.Context.MvcLink("/web/fisb.js", appendDateSuffix:=True)
End If
@RenderSection("CustomHeader", False)
@**@
@If isAuth = True AndAlso isIE = False Then
@
@
Else
Try
@Html.Partial(partialViewName:="~/Areas/intranet/Views/Partials/vpart__ocms_login.vbhtml", model:=Me.Model, viewData:=ViewData)
Catch ex As Exception
System.Diagnostics.Debug.WriteLine("partial: vpart__ocms_login" & Microsoft.VisualBasic.vbNewLine & ex.Message)
End Try
@RenderBody()
End If