Validate all fields and make regexp stricter

This commit is contained in:
YNH Webdev
2013-11-10 16:53:21 +01:00
parent 72e7493842
commit 40bb88a55f
2 changed files with 2 additions and 3 deletions

View File

@@ -35,7 +35,8 @@ feature -- Implementation
if not regexp.is_compiled then
regexp.compile (regexp_string)
end
Result := regexp.matches (input)
Result := (not input.is_empty) and regexp.matches (input)
end
feature -- State

View File

@@ -36,8 +36,6 @@ feature -- Validation
is_valid := True
across
controls as c
until
is_valid = False
loop
if attached {WSF_VALIDATABLE} c.item as elem then
elem.validate