added legacy code for reference

2026-06-04 14:56:43 +02:00
parent dbe6cd8653
commit c8a4d18f1a
93 changed files with 18065 additions and 0 deletions
@@ -0,0 +1,19 @@
+@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
@@ -0,0 +1,109 @@
+@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>
@@ -0,0 +1,17 @@
+@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
+End Section
+
+@If isAuth = True Then
+
+End If