Files
Stefan c8a4d18f1a
Playwright Tests / test (push) Has been cancelled
added legacy code for reference
2026-06-04 14:56:43 +02:00

110 lines
5.1 KiB
Plaintext

@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
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>@(If(If(Me.ViewData("Title"), "") <> "", Me.ViewData("Title"), "Intranet"))</title>
@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 IE]>
<link rel="stylesheet" type="text/css" href="/web/ie_compatibility.min.css" />
<![endif]-->*@
<script type="text/javascript">
//$(document).ready(function () { $('body').removeClass('ldng'); if ($.isFunction(w13.init)) { w13.init.call(this); } });
$ocms.auth = @(json.SerializeObject(authinfo).raw());
</script>
</head>
<body Class="ldng">
<div id = "bgimg" ></div>
@If isAuth = True AndAlso isIE = False Then
@<div class="pgb inactive">
@*style="transform: translate3d(100%, 0px, 0px);" data-progress-text="100%" data-progress="99"*@
<div class="pgb-progress">
<div class="inner"></div>
</div>
</div>
@<header>
<nav id="mainmenu">
<div class="nav-header">
<div id="logo">&nbsp;</div>
<button id="mmmb" class="nav-btn" data-toggle="vis" data-target="#mainmenu"><span class="glyphicon glyphicon-menu-hamburger"></span></button>
<div id="brand" class="brand" title="Account: rcgd">@(Ctrl.AppName)</div>
<div id="activemodule" class="activemodule">@textsdic("po")</div>
</div>
<ul class="nav-right">
<li class="dropdown">
<a class="dds dropdown-toggle" role="button" aria-expanded="false"><span class="glyphicon glyphicon-cog" aria-hidden="true"></span><span class="caret dd"></span></a>
<ul id="vm_menu_auth" class="dropdown-menu right" role="menu">
<li class="dropdown submenu">
<a class="dds dropdown-toggle" role="button" aria-expanded="false">@UserDic("fullname_rev")<span class="caret dd"></span></a>
<ul class="dropdown-menu" role="menu">
<li><a onclick="$ocms.logout.call(this);">@textsdic("lgo")</a></li>
<li><a onclick="$fis.resetPass.call(this);">@textsdic("rsp")</a></li>
</ul>
</li>
</ul>
</li>
</ul>
</nav>
@RenderSection("BodyHeader", False)
</header>
@<main>
@*<div id="sidebar"></div>*@
<div id="topbar"></div>
<div id="listframe"></div>
<div id="contentframe">
@RenderBody()
</div>
</main>
@<footer>
@RenderSection("BodyFooter", False)
</footer>
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
<div class="timer"></div>
</body>
</html>