Updates to Order Screen

OrderScreen/Controller.fs

@@ -3,6 +3,7 @@
 open DredgePos
 open DredgeFramework
 open DredgePos.Types
+open DredgePos.Global.Controller
 open Giraffe
 open Microsoft.AspNetCore.Http
 
@@ -24,6 +25,20 @@ let loadGrid (gridId: int) =
     else ajaxSuccess {|grid=grid;gridHtml=gridHtml|}
     |> json
 
+let loadOrderScreenView (ctx: HttpContext)  (tableNumber: int) =
+    Authenticate.Model.RequireClerkAuthentication ctx
+    let currentClerk = Authenticate.Model.getCurrentClerk ctx
+    let styles = [|"dredgepos.orderScreen.css"|] |> addDefaultStyles
+    let scripts = [|"dredgepos.tables.js";"./external/currency.min.js";"dredgepos.orderScreen.js"; |] |> addDefaultScripts
+    let metaTags = [|"viewport", "user-scalable = no, initial-scale=0.8,maximum-scale=0.8 ,shrink-to-fit=yes"|] |> addDefaultMetaTags
+
+    let orderScreenPageGroups =
+       Entity.GetAllInVenue<order_screen_page_group>
+        |> Array.filter (fun page_group -> page_group.id <> 0)
+        |> Array.sortBy (fun {order=order} -> order)
+
+    View.index tableNumber styles scripts metaTags currentClerk orderScreenPageGroups
+
 let loadOrderScreen (ctx: HttpContext)  (tableNumber: int) : HttpHandler =
    Authenticate.Model.RequireClerkAuthentication ctx