Lost source code, switching back to main branch

2022-06-29 22:03:45 +10:00
parent 100a772297
commit 420c6530e0
3 changed files with 18 additions and 5 deletions
--- a/OrderScreen/View.fs
+++ b/OrderScreen/View.fs
@@ -66,7 +66,7 @@ let pageContainer floorplanTable (clerk: clerk) orderScreenPageGroups =
                    yield! orderScreenPageGroups
                ]
                div [_id "pageGroupContainer"] [
-                    (* Page Groups *)
+
                ]
                div [_class "pagNavigation"] [
                    posButton "prevButton" [] ["prev_page" |> get |> str]
@@ -99,6 +99,11 @@ let gridContainer =

 let pageGroupButton (pageGroup: order_screen_page_group) = posButton "loadPageGroup" [] [str pageGroup.label]

+let pageGroup grids =
+    div [_class "pageGroup"] [
+        yield! grids
+    ]
+
 let index orderNumber styles scripts tags clerk (orderScreenPageGroups: order_screen_page_group[])  =

    let orderScreenPageGroupButtons =