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 412 with session_name = value(cookie),
413 413 with file_path = session_directory+"/"+session_name,
414 414 //unserialize the stored session and his timeout value
415   - println("retrieve session ["+session_name+"]");
  415 + //println("retrieve session ["+session_name+"]");
416 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 419 since d is (time_stamp, s_no_var),
420 420 with s = to_WEB_Session(s_no_var),
421 421 if time_stamp < now then
... ... @@ -3222,8 +3222,8 @@ public define Web_Site
3222 3222 List(Web_arg) _lwa,
3223 3223 Bool is_https) |->
3224 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 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 150 if web_arg_value(lwa, arg_name) is
151 151 {
152 152 not_found then false,
153   - found(value) then true
  153 + found(value) then to_Bool(value)
154 154 }.
155 155  
156 156 public define Bool
... ...