Fix render function

This commit is contained in:
YNH Webdev
2013-09-05 16:51:37 +02:00
parent f52f6512a0
commit ad15ab13c5
3 changed files with 21 additions and 12 deletions

View File

@@ -92,7 +92,7 @@ feature
css_classes_string := " class=%"" + css_classes_string + "%""
end
Result := "<" + tag_name + " data-name=%"" + control_name + "%" data-type=%"" + generator + "%" " + attributes + css_classes_string
if not body.is_empty then
if body.is_empty then
Result := Result + " />"
else
Result := Result + " >" + body + "</" + tag_name + ">"

View File

@@ -12,18 +12,27 @@ inherit
WSF_CONTROL
create
make_form_element
make_form_element,
make_form_element_with_validators
feature {NONE}
make_form_element (n: STRING; c: WSF_VALUE_CONTROL [G]; v: LINKED_LIST [WSF_VALIDATOR [G]])
make_form_element (a_label:STRING; c: WSF_VALUE_CONTROL [G])
local
a_validators: LINKED_LIST [WSF_VALIDATOR [G]]
do
make (n, "div")
create a_validators.make
make_form_element_with_validators(a_label,c,a_validators)
end
make_form_element_with_validators (a_label: STRING; c: WSF_VALUE_CONTROL [G]; v: LINKED_LIST [WSF_VALIDATOR [G]])
do
make (c.control_name+"_container", "div")
add_class ("form-group")
c.add_class ("form-control")
value_control := c
validators := v
label := ""
label := a_label
error := ""
end