Commit 891e24cfc2eca3152e2cf33c5963979d963b7bae

Authored by totoro
1 parent 673a549d

get_Bool from web_arg_utils return true or false according of the value.

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