dredgy/DredgePos
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lost source code, switching back to main branch

Browse Source
This commit is contained in:
Josh
2022-06-29 22:03:45 +10:00
parent 100a772297
commit 420c6530e0
3 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
OrderScreen/Controller.fs
View File

@@ -37,6 +37,13 @@ let loadOrderScreenView (ctx: HttpContext) (tableNumber: int) =
|> Array.filter (fun page_group -> page_group.id <> 0) |> Array.filter (fun page_group -> page_group.id <> 0)
|> Array.sortBy (fun {order=order} -> order) |> Array.sortBy (fun {order=order} -> order)
(* let grids =
Model.getAllPageGridsInVenue ()
|> Array.map(fun (grid, page_group) ->
)
|>*)
View.index tableNumber styles scripts metaTags currentClerk orderScreenPageGroups View.index tableNumber styles scripts metaTags currentClerk orderScreenPageGroups
let loadOrderScreen (ctx: HttpContext) (tableNumber: int) : HttpHandler = let loadOrderScreen (ctx: HttpContext) (tableNumber: int) : HttpHandler =
@@ -71,7 +78,7 @@ let loadOrderScreen (ctx: HttpContext) (tableNumber: int) : HttpHandler =
|> joinWithNewLine |> joinWithNewLine
let grids = let grids =
Model.getAllPageGrids () Model.getAllPageGridsInVenue ()
|> Array.map Model.getPagesHTML |> Array.map Model.getPagesHTML
|> joinWithNewLine |> joinWithNewLine

7
OrderScreen/Model.fs
View File

@@ -8,9 +8,10 @@ open Thoth.Json.Net
open Theme open Theme
let getAllPageGrids () = Entity.GetAllInVenue<order_screen_page_group> let getAllPageGridsInVenue () =
|> Array.filter(fun pageGroup -> pageGroup.grid_id <> 0) Entity.GetAllInVenue<order_screen_page_group>
|> Array.map(fun pageGroup -> (Entity.GetById<grid> pageGroup.grid_id), pageGroup) |> Array.filter(fun pageGroup -> pageGroup.grid_id <> 0)
|> Array.map(fun pageGroup -> (Entity.GetById<grid> pageGroup.grid_id), pageGroup)
let getImageButtonData (button: button) = let getImageButtonData (button: button) =
let itemCode = let itemCode =

7
OrderScreen/View.fs
View File

@@ -66,7 +66,7 @@ let pageContainer floorplanTable (clerk: clerk) orderScreenPageGroups =
yield! orderScreenPageGroups yield! orderScreenPageGroups
] ]
div [_id "pageGroupContainer"] [ div [_id "pageGroupContainer"] [
(* Page Groups *)
] ]
div [_class "pagNavigation"] [ div [_class "pagNavigation"] [
posButton "prevButton" [] ["prev_page" |> get |> str] 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 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 index orderNumber styles scripts tags clerk (orderScreenPageGroups: order_screen_page_group[]) =
let orderScreenPageGroupButtons = let orderScreenPageGroupButtons =