Commit 891e24cfc2eca3152e2cf33c5963979d963b7bae
1 parent
673a549d
get_Bool from web_arg_utils return true or false according of the value.
Showing
2 changed files
with
5 additions
and
5 deletions
Show diff stats
web/CXM_making_a_web_site.anubis
| @@ -412,10 +412,10 @@ define Previous_Session | @@ -412,10 +412,10 @@ define Previous_Session | ||
| 412 | with session_name = value(cookie), | 412 | with session_name = value(cookie), |
| 413 | with file_path = session_directory+"/"+session_name, | 413 | with file_path = session_directory+"/"+session_name, |
| 414 | //unserialize the stored session and his timeout value | 414 | //unserialize the stored session and his timeout value |
| 415 | - println("retrieve session ["+session_name+"]"); | 415 | + //println("retrieve session ["+session_name+"]"); |
| 416 | if (RetrieveResult((Int, WEB_Session_No_Var)))retrieve(file_path) is ok(d) then | 416 | if (RetrieveResult((Int, WEB_Session_No_Var)))retrieve(file_path) is ok(d) then |
| 417 | ( | 417 | ( |
| 418 | - println("retrieve session OK ["+session_name+"]"); | 418 | + //println("retrieve session OK ["+session_name+"]"); |
| 419 | since d is (time_stamp, s_no_var), | 419 | since d is (time_stamp, s_no_var), |
| 420 | with s = to_WEB_Session(s_no_var), | 420 | with s = to_WEB_Session(s_no_var), |
| 421 | if time_stamp < now then | 421 | if time_stamp < now then |
| @@ -3222,8 +3222,8 @@ public define Web_Site | @@ -3222,8 +3222,8 @@ public define Web_Site | ||
| 3222 | List(Web_arg) _lwa, | 3222 | List(Web_arg) _lwa, |
| 3223 | Bool is_https) |-> | 3223 | Bool is_https) |-> |
| 3224 | //(Printable_tree) | 3224 | //(Printable_tree) |
| 3225 | - println("host_name "+host_name); | ||
| 3226 | - println(dump_http_info(http_info)); | 3225 | + //println("host_name "+host_name); |
| 3226 | + //println(dump_http_info(http_info)); | ||
| 3227 | println(dump_web_arg_values(_lwa)); | 3227 | println(dump_web_arg_values(_lwa)); |
| 3228 | 3228 | ||
| 3229 | 3229 |
web/CXM_web_arg_utils.anubis
| @@ -150,7 +150,7 @@ public define Bool | @@ -150,7 +150,7 @@ public define Bool | ||
| 150 | if web_arg_value(lwa, arg_name) is | 150 | if web_arg_value(lwa, arg_name) is |
| 151 | { | 151 | { |
| 152 | not_found then false, | 152 | not_found then false, |
| 153 | - found(value) then true | 153 | + found(value) then to_Bool(value) |
| 154 | }. | 154 | }. |
| 155 | 155 | ||
| 156 | public define Bool | 156 | public define Bool |