Commit ce130e67 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

field names in records ending with "_" are not displayed


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@124 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 2ed7c9bb
......@@ -508,6 +508,11 @@ where
width = "width:" <+++ defpixel <+++ "px"
gForm{|FIELD of d |} gHx (init,formid) hst
# (nx,hst) = gHx (init,reuseFormId formid x) hst
| d.gfd_name.[(size d.gfd_name) - 1] == '_' // don't display field names which end with an underscore
= ({ changed = False
, value = formid.ival
, form = []
},hst)
= ({ changed = nx.changed
, value = FIELD nx.value
, form = [STable [Tbl_CellPadding (Pixels 1), Tbl_CellSpacing (Pixels 1)] [[fieldname,BodyTag nx.form]]]
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment