Moved to Giraffe View Engine
This commit is contained in:
@@ -1,16 +1,15 @@
|
||||
module DredgePos.Authenticate.Controller
|
||||
|
||||
open Giraffe
|
||||
open DredgeFramework
|
||||
open Microsoft.AspNetCore.Http
|
||||
open DredgePos.Global.Controller
|
||||
|
||||
let loadAuthenticatePage (): HttpHandler =
|
||||
let variables = map ["title", "Log In"]
|
||||
let scripts = ["dredgepos.authenticate.js"]
|
||||
let styles = ["dredgepos.authenticate.css"]
|
||||
let loadAuthenticatePage =
|
||||
let scripts = [|"dredgepos.authenticate.js"|] |> addDefaultScripts
|
||||
let styles = [|"dredgepos.authenticate.css"|] |> addDefaultStyles
|
||||
let metaTags = [|"viewport", "user-scalable = no, initial-scale=0.8,maximum-scale=0.8 ,shrink-to-fit=yes"|] |> addDefaultMetaTags
|
||||
|
||||
Theme.loadTemplateWithVarsScriptsAndStyles "authenticate" variables scripts styles
|
||||
|> htmlString
|
||||
View.index scripts styles metaTags
|
||||
|
||||
let loginWithLoginCode (context: HttpContext) (login_code: int) =
|
||||
if Model.clerkLogin login_code context then ajaxSuccess "success"
|
||||
|
||||
Reference in New Issue
Block a user