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