Updates to Order Screen

2022-05-12 20:03:39 +10:00
parent a587423d3e
commit 100a772297
7 changed files with 44 additions and 13 deletions
--- a/OrderScreen/Router.fs
+++ b/OrderScreen/Router.fs
@@ -11,5 +11,5 @@ let router = router {
    getf "/getGridHtml/%i" Controller.loadGrid
    post "/updateCovers" (bindJson<floorplan_table> (fun table -> Entity.Update table |> Array.head |> DredgeFramework.ajaxSuccess |> json))
    get "/" (warbler (fun ctx -> Controller.loadOrderScreen (snd ctx) 0))
-    getf "/%i" (fun number -> (warbler (fun ctx -> Controller.loadOrderScreen (snd ctx) number)))
+    getf "/%i" (fun number -> (warbler (fun ctx -> htmlView <| Controller.loadOrderScreenView (snd ctx) number)))
 }