note
	description: "Provide input validation"
	date: "$Date$"
	revision: "$Revision$"

deferred class
	ESA_INPUT_VALIDATOR

feature -- Basic Operations

	input_from (a_request: ITERABLE [WSF_VALUE])
			-- Update current object using parameters extracted from QUERY_STRING.
			-- If there are errors they are set to the errors parameter.
		do
			if attached {STRING_TABLE [WSF_VALUE]} a_request as l_table_request then
				validate (l_table_request)
			end
		end

feature -- Validation

	validate (a_request: STRING_TABLE [WSF_VALUE])
			-- Validate input for control `a_request'.
		deferred
		end


feature -- Access

	acceptable_query_parameters: ARRAY [STRING]
			-- The parameters are optionals, more parameters is a bad request, the order is not important.
		deferred
		end

feature -- Errors

	errors: STRING_TABLE [READABLE_STRING_32]
			-- Hash table with errors and descriptions.	

	has_error: BOOLEAN
			-- Has errors the last request?
		do
			Result := not errors.is_empty
		end

	error_message: STRING
			-- String representation.
		do
			create Result.make_empty
			across errors as c loop
				Result.append (c.item.to_string_8)
				Result.append ("%N")
			end
		end



end -- class EFA_INPUT_VALIDATOR