Commit 8c038886 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent 79a08e13
......@@ -7,7 +7,7 @@ derive gUpd []
npersons = 5
Start world = doHtmlServer (multiUserTask npersons (repeatTask (deadline mytask) <<@ Persistent)) world
Start world = doHtmlServer (multiUserTask npersons (repeatTask (deadline mytask) )) world
mytask = STask "Press" 0
......
......@@ -8,8 +8,19 @@ derive gParse QForm, ReviewState
derive gPrint QForm, ReviewState
derive gerda QForm, ReviewState
//Start world = doHtmlServer (multiUserTask 2 Quotation) world
Start world = doHtmlServer (multiUserTask 2 (Quotation <<@ Database)) world
:: Persoonsgegevens
= { naam :: String
, e_mail :: String
}
:: Verzendgegevens
= { adres :: String
, postcode :: String
, plaats :: String
}
Start world = doHtmlServer (multiUserTask 2 Quotation) world
//Start world = doHtmlServer (multiUserTask 2 (Quotation )) world
:: QForm = { toComp :: String
, startDate :: HtmlDate
......
......@@ -11,7 +11,7 @@ class iData a // The collection of generic functions needed to make iData:
class iDataSerialize a
| gPrint{|*|} // To serialize a value to a String
, gerda {|*|} // OPTION: To store and retrieve a value in a database
// , gerda {|*|} // OPTION: To store and retrieve a value in a database
, TC a // To be able to store values in a dynamic
// TC is a special class cannot be included here
class iDataSerAndDeSerialize a
......@@ -19,7 +19,7 @@ class iDataSerAndDeSerialize a
, iDataSerialize a
TraceInput :== False // show what kind of information is received from Client
TraceOutput :== True // show what kind of information is stored
TraceOutput :== False // show what kind of information is stored
DEBUGSERVER :== True // show what kind of information is transmitted by the Clean HtmlServer
......@@ -30,5 +30,5 @@ radioButtonSeparator :== '.' // used as extension for family of radiobuttons
// OPTIONS WHICH CAN BE SET OFF AND ON
IF_GERDA gerda no_gerda :== gerda // If database option is used
//IF_GERDA gerda no_gerda :== no_gerda // otherwise, BUT manually flag of ", gerda{|*|}" in the class definition above
//IF_GERDA gerda no_gerda :== gerda // If database option is used
IF_GERDA gerda no_gerda :== no_gerda // otherwise, BUT manually flag of ", gerda{|*|}" in the class definition above
This diff is collapsed.
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