Anubis / Xlib

Commit 9446f71c49f31cb8fafebca16a249dee0a8fdddf

Authored by David RENÉ
1 parent 3b29cef2

add bool_attr boolean attribute in HTML CoreAttribute. This allow to attribute w… 

…ithout value like 'checked'
add helper for HTTP_Answer. no_content construct an answer with http_no_content (204)

fix some typo
Showing 5 changed files with 13 additions and 5 deletions   Show diff stats
Inline Side-by-side
mail/send_mail.anubis
  Show/Hide comments   View file @9446f71
... ... @@ -132,8 +132,8 @@ define Result(SmtpClientResult, One)
132 132 if length(tail) > 0 then
133 133 if send_rset(conn, sm_session, _sendmail_time_out, logger) is
134 134 {
135   - error(result) then error(result),
136   - ok(_) then send_to_recipients_list(conn, param, tail, sm_session, progress_report, logger, handle_result, unique_recipient)
  135 + error(_result) then error(_result),
  136 + ok(_) then send_to_recipients_list(conn, param, tail, sm_session, progress_report, logger, handle_result, unique_recipient)
137 137 }
138 138 else
139 139 if unique_recipient then
... ...
web/CXM_common.anubis
  Show/Hide comments   View file @9446f71
... ... @@ -4,7 +4,7 @@
4 4  
5 5 *Copyright*
6 6 Copyright © Alain Prouté 2003~2007.
7   - © David RENÉ2007~2019
  7 + © David RENÉ 2007~2019
8 8  
9 9  
10 10 *Authors:*
... ...
web/CXM_making_a_web_site.anubis
  Show/Hide comments   View file @9446f71
... ... @@ -3704,7 +3704,8 @@ define String
3704 3704 " tabindex=\"" + index + "\"",
3705 3705 attr(name, value) then
3706 3706 " " + name + "=\"" + value + "\"",
3707   -
  3707 + bool_attr(bool, value)then
  3708 + if bool then " "+value+" " else "",
3708 3709 event(e, value) then
3709 3710 " " + event_name(e) + "=\"" + value + "\"",
3710 3711 tooltip(_) then "", //do nothing here, because we extract attributes at first in new_attrs
... ...
web/CXM_web_action.anubis
  Show/Hide comments   View file @9446f71
... ... @@ -68,7 +68,7 @@ public define String
68 68 format_web_action_name
69 69 (
70 70 WEB_Action_Name action,
71   - List((String,String)) extra_ops,
  71 + List((String,String)) extra_ops
72 72 )=
73 73 format_web_action_name(action)
74 74 +
... ...
web/types/making_a_web_site.anubis
  Show/Hide comments   View file @9446f71
... ... @@ -559,6 +559,7 @@ public type CoreAttrs:
559 559 //elements in the document.
560 560 //Anubis specific
561 561 attr (String, String), //intended to provide unknown attritute
  562 + bool_attr (Bool, String), //like checked in checkbox the attribute 'checked' is here if true else nothing
562 563 event (HtmlEvents, String),
563 564 tooltip (HTML_tooltip),
564 565  
... ... @@ -614,4 +615,10 @@ public type HTTP_Answer:
614 615 HTML_Partial_Content)
615 616 .
616 617  
  618 +public define HTTP_Answer
  619 + no_content
  620 + =
  621 + plain_text(http_no_content, "")
  622 +.
  623 +
617 624  
... ...