Commit 69e1e2bb4e261d994e47270f2e91a9c107ce2b57
1 parent
8c73cb62
Added: Web arguments are passed to the 'compute_page' function, allowing to fill…
… forms with previously entered values.
Showing
1 changed file
with
3 additions
and
3 deletions
Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
| @@ -438,7 +438,7 @@ public define Web_Site | @@ -438,7 +438,7 @@ public define Web_Site | ||
| 438 | List(Web_arg), | 438 | List(Web_arg), |
| 439 | Bool is_https) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header)) ticket_lost_state, | 439 | Bool is_https) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header)) ticket_lost_state, |
| 440 | List(Web_Action($SessionTicket, $State)) actions, | 440 | List(Web_Action($SessionTicket, $State)) actions, |
| 441 | - (Maybe($SessionTicket), Maybe($State)) -> HTML_Page compute_page, | 441 | + (Maybe($SessionTicket), Maybe($State), List(Web_arg) lwa) -> HTML_Page compute_page, |
| 442 | Int32 timeout, // seconds (todo: minutes) | 442 | Int32 timeout, // seconds (todo: minutes) |
| 443 | List(Redirection) redirections, | 443 | List(Redirection) redirections, |
| 444 | String charset, | 444 | String charset, |
| @@ -2204,7 +2204,7 @@ public define Web_Site | @@ -2204,7 +2204,7 @@ public define Web_Site | ||
| 2204 | List(Web_arg), | 2204 | List(Web_arg), |
| 2205 | Bool is_https) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header)) ticket_lost_state, | 2205 | Bool is_https) -> (Maybe($SessionTicket), Maybe($State), List(HTTP_header)) ticket_lost_state, |
| 2206 | List(Web_Action($SessionTicket, $State)) actions, | 2206 | List(Web_Action($SessionTicket, $State)) actions, |
| 2207 | - (Maybe($SessionTicket), Maybe($State)) -> HTML_Page compute_page, | 2207 | + (Maybe($SessionTicket), Maybe($State), List(Web_arg) lwa) -> HTML_Page compute_page, |
| 2208 | Int32 timeout, | 2208 | Int32 timeout, |
| 2209 | Redirections redirections, | 2209 | Redirections redirections, |
| 2210 | String charset, | 2210 | String charset, |
| @@ -2280,7 +2280,7 @@ public define Web_Site | @@ -2280,7 +2280,7 @@ public define Web_Site | ||
| 2280 | (headers, | 2280 | (headers, |
| 2281 | format(info(host_name, http_port, https_port, site_directory, secret), | 2281 | format(info(host_name, http_port, https_port, site_directory, secret), |
| 2282 | state_name, | 2282 | state_name, |
| 2283 | - compute_page(session_ticket, mb_new_state), | 2283 | + compute_page(session_ticket, mb_new_state, operands), |
| 2284 | is_https, | 2284 | is_https, |
| 2285 | charset)) | 2285 | charset)) |
| 2286 | }), | 2286 | }), |