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/Global/View.fs
+++ b/Global/View.fs
@@ -1,9 +1,11 @@
 module DredgePos.Global.View

 open DredgeFramework
+open DredgePos.Types
 open Giraffe.ViewEngine

 let Value = attr "data-value"
+let _table (value: floorplan_table) = value |> jsonEncode |> (attr "data-table")

 let VisibleInMode (value: string list) = value |> jsonEncode |> (attr "data-visible-in-mode")
 let InvisibleInMode (value: string list) = value |> jsonEncode |> (attr "data-invisible-in-mode")