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

Updates to order screen

Browse Source
This commit is contained in:
Josh
2022-01-04 15:04:55 +10:00
parent 4de8f20d00
commit 85722fa692
21 changed files with 720 additions and 242 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
OrderScreen.module.fs
View File

@@ -11,7 +11,7 @@ open Theme
let htmlAttributes (attributes: Map<string, string>) =
" " + (attributes
|> Map.toArray
|> Array.map (fun (attribute, value) -> attribute+"=\""+HttpUtility.HtmlEncode value + "\"")
|> Array.map (fun (attribute, value) -> attribute+"='"+HttpUtility.HtmlEncode value + "'")
|> String.concat " ")
let getAllPageGrids () = Entity.getAllInVenue<order_screen_page_group>
@@ -46,9 +46,7 @@ let renderButton (buttonId: int) =
then "invisible"
else ""
let image = if button.image.Length > 0
then loadTemplateWithVars "orderScreen/button_image" (map ["image", button.image])
else ""
let image = if button.image.Length > 0 then loadTemplateWithVars "orderScreen/button_image" (map ["image", button.image]) else ""
let extraClasses = [|imageClass; spacerClass|] |> String.concat " "
@@ -63,7 +61,7 @@ let renderButton (buttonId: int) =
"extra_styles", extra_styles
"primary_action", button.primary_action
"secondary_action", button.secondary_action
"text", if button.text.Length >0 then button.text else action_data.text
"text", if button.text.Length > 0 then button.text else action_data.text
"image", image
"extra_data", action_data.extra_data
]