Join With Line function

This commit is contained in:
2022-02-13 13:09:53 +10:00
parent 445cbbabe5
commit 430ad87880
3 changed files with 7 additions and 5 deletions

View File

@@ -22,7 +22,7 @@ let loadFloorplan (ctx: HttpContext) : HttpHandler =
let roomMenu =
Entity.GetAllInVenue<floorplan_room>
|> Array.map makeRoomButton
|> String.concat "\n"
|> joinWithNewLine
let variables = map [
"title", "Floorplan"
@@ -64,12 +64,12 @@ let loadOrderScreen (ctx: HttpContext) (tableNumber: int) : HttpHandler =
let categoryArray = map ["page", categoryMap]
Theme.loadTemplateWithArrays "orderScreen/page_group_button" categoryArray
)
|> String.concat "\n"
|> joinWithNewLine
let grids =
OrderScreen.getAllPageGrids ()
|> Array.map OrderScreen.getPagesHTML
|> String.concat "\n"
|> joinWithNewLine
let coverSelectorButtons =
Array.init (covers+1) id