Commit ab9f1ba1 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent a10d5ad4
......@@ -166,7 +166,7 @@ where
_ -> "Page"
showf storage = case storage of PlainString -> "String"; _ -> "Dynamic"
shows PlainString s = s
shows _ d = d//"cannot show dynamic value"
shows _ d = d //"cannot show dynamic value"
// global names setting depending on kind of server used
......
implementation module htmlFormData
import htmlDataDef
import htmlDataDef, htmlSettings
import StdMaybe, StdBool, StdString, StdInt
// utility for creating FormId's
......@@ -95,7 +95,7 @@ dbdDFormId s d = {id = s, lifespan = Database, mode = Display, storage = StaticD
// create id's
(++/) infixr 5
(++/) s1 s2 = s1 +++ "/" +++ s2
(++/) s1 s2 = s1 +++ iDataIdSeparator +++ s2
extidFormId :: !(FormId d) !String -> (FormId d)
extidFormId formid s = {formid & id = formid.id ++/ s}
......
......@@ -511,9 +511,9 @@ where
| stripname b.changedId == formid.id = RBNotChecked formid.id
| otherwise = v
nformid = {formid & id = formid.id +++ "/" +++ toString j, ival = (\_ a -> a,-1)}
nformid = {formid & id = formid.id +++ iDataIdSeparator +++ toString j, ival = (\_ a -> a,-1)}
stripname name = mkString (takeWhile ((<>) '/') (mkList name))
stripname name = mkString (takeWhile ((<>) radioButtonSeparator) (mkList name))
FuncMenu :: !(InIDataId (Int,[(String, a -> a)])) !*HSt
-> (Form (a -> a,Int),!*HSt)
......
......@@ -17,3 +17,5 @@ TraceInput :== False // set it to True if you want to see what kind of informa
MyDataBase :== "iDataDatabase" // name of database being used by iData applications
iDataIdSeparator :== "." // used as separator when combining iData form id's
radioButtonSeparator :== '.' // used as extension for family of radiobuttons
\ No newline at end of file
Supports Markdown
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