indexing
	description	: "System's root class: dispatches HTTP requests to different classes that take care of them"
	date: "$Date$"
	revision: "$0.3.1$"

class
	REQUEST_DISPATCHER

	inherit
	CGI_INTERFACE

	redefine make
	end

	APPLICATION_CONSTANTS

create
	make

feature

	-- Basic Operations
 	execute
 		--executes the main application flow depending on the request received
 		local
 			a_conference:CONFERENCE
 			a_conference_list_to_sort: CONFERENCE_LIST
 			a_user:USER
		do
	--*** control flow coming from informatics europe main page ***
			if  Request_method.is_equal ("GET") AND query_string.is_empty then
				--builds event list page, loading data about conferences if available
				return_page:=html_builder_delegate.build_conference_list_page(conference_dao.accepted_conference_list)

	--*** control flow coming from event list page, one of the "accepted conference" hyperlinks pressed ***
			elseif  Request_method.is_equal ("GET") AND query_string.substring (1,6).is_equal ("aindex") then
				a_conference:=conference_dao.get_accepted_conference_by_id(query_string.substring (8,query_string.count).to_natural_64)
				return_page:=html_builder_delegate.build_event_details_page (a_conference)

	--*** control flow coming from event list page, hyperlink  "submission page"  pressed ***
			elseif  Request_method.is_equal ("GET") AND query_string.substring (1,10).is_equal ("submission") then
				--builds login page
				return_page:=html_builder_delegate.build_login_page (form_validation_errors)

	--*** control flow coming from event list page, hyperlink  "Conference name" on the column header pressed ***
			elseif  Request_method.is_equal ("GET") AND query_string.substring (6,9).is_equal ("name") then
				--sorts a copy of the accepted conference list by name
				conference_dao.accepted_conference_list.start
				a_conference_list_to_sort:=conference_dao.accepted_conference_list.duplicate (conference_dao.accepted_conference_list.count)
				sorter.sort_conference_list_by_name (a_conference_list_to_sort)
				--returns the same page
				return_page:=html_builder_delegate.build_conference_list_page (a_conference_list_to_sort)

	--*** control flow coming from event list page, hyperlink  "Date" on the column header pressed ***
			elseif  Request_method.is_equal ("GET") AND query_string.substring(6,14).is_equal ("startdate") then
				--sorts a copy of the accepted conference list by starting date
				conference_dao.accepted_conference_list.start
				a_conference_list_to_sort:=conference_dao.accepted_conference_list.duplicate (conference_dao.accepted_conference_list.count)
				sorter.sort_conference_list_by_starting_date(a_conference_list_to_sort)
				--returns the same page
				return_page:=html_builder_delegate.build_conference_list_page(a_conference_list_to_sort)

	--*** control flow coming from event list page, hyperlink  "Country" on the column header pressed ***
			elseif  Request_method.is_equal ("GET") AND query_string.substring (6,12).is_equal ("country") then
				--sorts a copy of the accepted conference list by country
				conference_dao.accepted_conference_list.start
				a_conference_list_to_sort:=conference_dao.accepted_conference_list.duplicate (conference_dao.accepted_conference_list.count)
				sorter.sort_conference_list_by_country (a_conference_list_to_sort)
				--returns the same page
				return_page:=html_builder_delegate.build_conference_list_page (a_conference_list_to_sort)

	--*** control flow coming from event list page, hyperlink  "Papers deadline" on the column header pressed ***
			elseif  Request_method.is_equal ("GET") AND query_string.substring (6,19).is_equal ("papersdeadline") then
				--sorts a copy of the accepted conference list by papers submission deadline
				conference_dao.accepted_conference_list.start
				a_conference_list_to_sort:=conference_dao.accepted_conference_list.duplicate (conference_dao.accepted_conference_list.count)
				sorter.sort_conference_list_by_papers_submission_deadline (a_conference_list_to_sort)
				--returns the same page
				return_page:=html_builder_delegate.build_conference_list_page (a_conference_list_to_sort)

	--*** control flow coming from submit page, button 'Register' pressed ***
			elseif Request_method.is_equal ("POST") AND button_value("generic_button","Register") then
				create a_user.make
				--builds registration page
				return_page:=html_builder_delegate.build_registration_page (a_user, form_validation_errors)

	--*** control flow coming from registration page, button 'Register now' pressed ***
			elseif Request_method.is_equal ("POST") AND button_value ("generic_button","Register now") then
				create a_user.make
				perform_form_registration_validation (a_user)
				if form_validation_errors.is_empty then
				--  add the user to the user list and sends him an email
					user_dao.add_user (a_user)
					return_page:=html_builder_delegate.build_login_page (form_validation_errors)
				--	persists registration data
					user_dao.persist_data
				else --send the form back with error messages displayed
					return_page:=html_builder_delegate.build_registration_page (a_user, form_validation_errors)
				end

	--*** control flow coming from the final page, button 'Back to event list' pressed ***
			elseif Request_method.is_equal ("POST") AND button_value ("generic_button","Back to event list") then
				--builds conferences list page, loading data about conferences if available
				return_page:=html_builder_delegate.build_conference_list_page (conference_dao.accepted_conference_list)

	--*** control flow coming from the submission page, button 'Submit event' pressed ***
			elseif Request_method.is_equal ("POST") AND THEN button_value ("generic_button","Submit event") then
				if validator.is_user_validated (text_field_value ("userid"), text_field_value ("password")) then
					create a_conference.make
					return_page:=html_builder_delegate.build_event_submission_page(a_conference, form_validation_errors)
				else
					form_validation_errors.extend ("Username or Password not valid", "login_error")
					--sends back the submission page, with an error message
					return_page:=html_builder_delegate.build_login_page (form_validation_errors)
				end

	--*** control flow coming from event details page, button 'Confirm Submission' pushed ***
			elseif Request_method.is_equal ("POST") AND button_value ("generic_button", "Confirm submission") then
					perform_form_details_validation
					create a_conference.make
					if form_validation_errors.is_empty then
					-- 	generate conference id and set it
						conference_dao.conference_id_generator.generate_next_id
						a_conference.set_id (conference_dao.conference_id_generator.id)
					--  initialize the conference
						initialize_conference (a_conference, Proposed)
					--  add the conference to the appropriate conference list
						conference_dao.add_conference (a_conference)
					--	persists data the application needs (HTTP protocol is stateless)
						conference_dao.persist_data
					--	send an email to administrator to tell him that an event has been proposed
						an_email_handler.send_email (Admin_email, Admin_email, Event_proposed_email_subject, Event_proposed_email_message)
						return_page:=html_builder_delegate.build_exit_page (" Thank you.%NYour conference proposal has been submitted.%NYou will be notified via email in case of positive outcome of your request.")
					else --send the form back with error messages displayed
						initialize_conference (a_conference, Undefined)
						return_page:=html_builder_delegate.build_event_submission_page (a_conference, form_validation_errors)
					end

	--*** if something went wrong the exit page with an error message is shown***
			else
				--error page
				return_page:=html_builder_delegate.build_exit_page(" The application produced an unexpected outcome. Please contact the site administrator and provide him with as much details as you can. Thank you.")
		end
--io.put_string (return_page.out)
		--generates response header and sends web page to the browser
		response_header.generate_text_header
		response_header.send_to_browser
		response_header.Output.put_string (return_page.out)
		rescue
		io.error.putstring ("crash in `compute' from DOWNLOAD_INTERACTION%N")
		end
---------------------------------------------------------------------------------------------------------------------------
feature --access

	Debug_mode: BOOLEAN is True -- Should exception trace be displayed in case a crash occurs?	

	return_page: VIEW -- Page which is sent back to the browser.

	html_builder_delegate: USER_HTML_DELEGATE 	-- helper class for building the HTML pages for this application

	conference_dao: CONFERENCE_DAO --reference to the specific data access object used for implementation (see make)

	user_dao: USER_DAO --reference to the specific data access object used for implementation (see make)

	validator:VALIDATOR --used to validate user input

	form_validation_errors: HASH_TABLE[STRING,STRING] -- input errors information

	sorter:SORT_HELPER --helper class used to sort list elements

	an_email_handler: EMAIL_HANDLER --helper class used to send emails
---------------------------------------------------------------------------------------------------------------------------
feature
	--initialization
	make
		do
			create html_builder_delegate.make
			--you can substitute an implementation DAO class name here if you need different storage behaviours		
			create {CONFERENCE_DAO_FILE_IMPL} conference_dao.make
			create {USER_DAO_FILE_IMPL} user_dao.make
			create validator.make (user_dao)
			create form_validation_errors.make (10)
			create an_email_handler
			Precursor --starts default template method
		end
---------------------------------------------------------------------------------------------------------------------------
	initialize_conference(a_conference:CONFERENCE; target_state_of_approval:INTEGER)
		--initializes a conference with data from input form, in case of validation errors too
		require
			a_conference_exists: a_conference/=Void
			conference_status_is_consistent:a_conference.status_of_approval=Undefined OR a_conference.status_of_approval=Proposed OR a_conference.status_of_approval=Rejected OR a_conference.status_of_approval=Accepted OR a_conference.status_of_approval=Delayed
			target_state_is_consistent: target_state_of_approval=Proposed OR target_state_of_approval=Accepted OR target_state_of_approval=Rejected OR target_state_of_approval=Undefined OR target_state_of_approval=Delayed
		local
			temp_date:DATE
			temp_keywords,temp_additional_sponsors:ARRAYED_LIST[STRING]
		do
			if validator.is_field_value_valid (text_field_value ("conference_name")) then
				a_conference.set_name (text_field_value ("conference_name"))
			end
			if validator.is_field_value_valid (text_field_value ("start_date_day")) AND validator.is_field_value_valid (text_field_value ("start_date_month")) AND validator.is_field_value_valid (text_field_value ("start_date_year"))
			AND validator.is_date_valid (text_field_value ("start_date_day"), text_field_value ("start_date_month"), text_field_value ("start_date_year")) then
				create temp_date.make_day_month_year (text_field_value ("start_date_day").to_integer,text_field_value ("start_date_month").to_integer,text_field_value ("start_date_year").to_integer)
				a_conference.set_starting_date (temp_date)
			end
			if validator.is_field_value_valid (text_field_value ("end_date_day")) AND validator.is_field_value_valid (text_field_value ("end_date_month")) AND validator.is_field_value_valid (text_field_value ("end_date_year"))
			AND validator.is_date_valid (text_field_value ("end_date_day"), text_field_value ("end_date_month"), text_field_value ("end_date_year")) then
				create temp_date.make_day_month_year (text_field_value ("end_date_day").to_integer,text_field_value ("end_date_month").to_integer,text_field_value ("end_date_year").to_integer)
				a_conference.set_ending_date (temp_date)
			end
			if validator.is_field_value_valid (text_field_value ("conference_city")) then
				a_conference.set_city (text_field_value ("conference_city"))
			end

			if validator.is_country_valid(text_field_value ("conference_country")) then
				a_conference.set_country (text_field_value ("conference_country"))
			end
			if validator.is_date_valid (text_field_value ("paper_sub_deadline_day"), text_field_value ("paper_sub_deadline_month"), text_field_value ("paper_sub_deadline_year")) then
				create temp_date.make_day_month_year (text_field_value ("paper_sub_deadline_day").to_integer,text_field_value ("paper_sub_deadline_month").to_integer,text_field_value ("paper_sub_deadline_year").to_integer)
			elseif	text_field_value ("paper_sub_deadline_day").is_equal("n/a") OR text_field_value ("paper_sub_deadline_month").is_equal("n/a") OR text_field_value ("paper_sub_deadline_year").is_equal("n/a") then
				create temp_date.make_day_month_year (1, 1, 1111)
			end
			a_conference.set_papers_submission_deadline (temp_date)
			if validator.is_field_value_valid (text_field_value ("main_sponsor")) then
				a_conference.set_main_sponsor (text_field_value ("main_sponsor"))
			end
			if validator.is_field_value_valid (text_field_value ("conference_url")) then
				a_conference.set_url (text_field_value ("conference_url"))
			end
			if validator.is_field_value_valid (text_field_value ("contact_name")) then
				a_conference.set_contact_name (text_field_value ("contact_name"))
			end
			if validator.is_email_valid (text_field_value ("contact_email")) then
				a_conference.set_contact_email (text_field_value ("contact_email"))
			end
			if validator.is_field_value_valid (text_field_value ("contact_role")) then
				a_conference.set_contact_role (text_field_value ("contact_role"))
			end
			--optional fields checks
			create temp_keywords.make_filled (5)
			if validator.is_field_value_valid (text_field_value ("keyword1")) then
				temp_keywords[1]:=text_field_value ("keyword1")
			else
				temp_keywords[1]:=""
			end
			if validator.is_field_value_valid (text_field_value ("keyword2")) then
				temp_keywords[2]:=text_field_value ("keyword2")
			else
				temp_keywords[2]:=""
			end
			if validator.is_field_value_valid (text_field_value ("keyword3")) then
				temp_keywords[3]:=text_field_value ("keyword3")
			else
				temp_keywords[3]:=""
			end
			if validator.is_field_value_valid (text_field_value ("keyword4")) then
				temp_keywords[4]:=text_field_value ("keyword4")
			else
				temp_keywords[4]:=""
			end
			if validator.is_field_value_valid (text_field_value ("keyword5")) then
				temp_keywords[5]:=text_field_value ("keyword5")
			else
				temp_keywords[5]:=""
			end
			a_conference.set_keywords (temp_keywords)
			create temp_additional_sponsors.make_filled (5)
			if validator.is_field_value_valid (text_field_value ("additional_sponsor_1")) then
				temp_additional_sponsors[1]:=text_field_value ("additional_sponsor_1")
			else
				temp_additional_sponsors[1]:=""
			end
			if validator.is_field_value_valid (text_field_value ("additional_sponsor_2")) then
				temp_additional_sponsors[2]:=text_field_value ("additional_sponsor_2")
			else
				temp_additional_sponsors[2]:=""
			end
			if validator.is_field_value_valid (text_field_value ("additional_sponsor_3")) then
				temp_additional_sponsors[3]:=text_field_value ("additional_sponsor_3")
			else
				temp_additional_sponsors[3]:=""
			end
			if validator.is_field_value_valid (text_field_value ("additional_sponsor_4")) then
				temp_additional_sponsors[4]:=text_field_value ("additional_sponsor_4")
			else
				temp_additional_sponsors[4]:=""
			end
			if validator.is_field_value_valid (text_field_value ("additional_sponsor_5")) then
				temp_additional_sponsors[5]:=text_field_value ("additional_sponsor_5")
			else
				temp_additional_sponsors[5]:=""
			end
			a_conference.set_additional_sponsors (temp_additional_sponsors)
			if  validator.is_field_value_valid (text_field_value ("short_description")) then
				a_conference.set_short_description (text_field_value ("short_description"))
			end
			if  validator.is_field_value_valid (text_field_value ("conference_chair_1")) then
				a_conference.set_conference_chair_1 (text_field_value ("conference_chair_1"))
			end
			if validator.is_field_value_valid (text_field_value ("conference_chair_2")) then
				a_conference.set_conference_chair_2 (text_field_value ("conference_chair_2"))
			end
			if validator.is_field_value_valid (text_field_value ("pc_chair_1")) then
				a_conference.set_program_committee_chair_1 (text_field_value ("pc_chair_1"))
			end
			if validator.is_field_value_valid (text_field_value ("pc_chair_2")) then
				a_conference.set_program_committee_chair_2 (text_field_value ("pc_chair_2"))
			end
			if validator.is_field_value_valid (text_field_value ("organizing_chair")) then
				a_conference.set_organizing_chair (text_field_value ("organizing_chair"))
			end

			if button_value("conference_proceedings","at_conference") then
				a_conference.set_proceedings_at_conference(True)
			end

			if validator.is_field_value_valid (text_field_value ("proceedings_publisher")) then
				a_conference.set_proceedings_publisher (text_field_value ("proceedings_publisher"))
			end

			if validator.is_date_valid (text_field_value ("additional_deadline_1_day"), text_field_value ("additional_deadline_1_month"), text_field_value ("additional_deadline_1_year")) then
				create temp_date.make_day_month_year (text_field_value ("additional_deadline_1_day").to_integer,text_field_value ("additional_deadline_1_month").to_integer,text_field_value ("additional_deadline_1_year").to_integer)
			elseif text_field_value ("additional_deadline_1_day").is_equal("n/a") OR text_field_value ("additional_deadline_1_month").is_equal ("n/a") OR text_field_value ("additional_deadline_1_year").is_equal ("n/a") then
				create temp_date.make_day_month_year (1, 1, 1111)
			else
				create temp_date.make_now
			end
			a_conference.set_additional_deadline_1 (temp_date)

			if validator.is_date_valid (text_field_value ("additional_deadline_2_day"), text_field_value ("additional_deadline_2_month"), text_field_value ("additional_deadline_2_year")) then
				create temp_date.make_day_month_year (text_field_value ("additional_deadline_2_day").to_integer,text_field_value ("additional_deadline_2_month").to_integer,text_field_value ("additional_deadline_2_year").to_integer)
			elseif text_field_value ("additional_deadline_2_day").is_equal("n/a") OR text_field_value ("additional_deadline_2_month").is_equal ("n/a") OR text_field_value ("additional_deadline_2_year").is_equal ("n/a") then
				create temp_date.make_day_month_year (1, 1, 1111)
			else
				create temp_date.make_now
			end
			a_conference.set_additional_deadline_2 (temp_date)

			if validator.is_date_valid (text_field_value ("additional_deadline_3_day"), text_field_value ("additional_deadline_3_month"), text_field_value ("additional_deadline_3_year")) then
				create temp_date.make_day_month_year (text_field_value ("additional_deadline_3_day").to_integer,text_field_value ("additional_deadline_3_month").to_integer,text_field_value ("additional_deadline_3_year").to_integer)
			elseif text_field_value ("additional_deadline_3_day").is_equal("n/a") OR text_field_value ("additional_deadline_3_month").is_equal ("n/a") OR text_field_value ("additional_deadline_3_year").is_equal ("n/a") then
				create temp_date.make_day_month_year (1, 1, 1111)
			else
				create temp_date.make_now
			end
			a_conference.set_additional_deadline_3 (temp_date)

			if validator.is_field_value_valid (text_field_value ("additional_deadline_specification_1")) then
				a_conference.set_additional_deadline_specification_1 (text_field_value ("additional_deadline_specification_1"))
			end

			if validator.is_field_value_valid (text_field_value ("additional_deadline_specification_2")) then
				a_conference.set_additional_deadline_specification_2 (text_field_value ("additional_deadline_specification_2"))
			end

			if validator.is_field_value_valid (text_field_value ("additional_deadline_specification_3")) then
				a_conference.set_additional_deadline_specification_3 (text_field_value ("additional_deadline_specification_3"))
			end

			if  validator.is_field_value_valid (text_field_value ("additional_notes")) then
				a_conference.set_additional_notes (text_field_value ("additional_notes"))
			end

			a_conference.set_state_of_approval (target_state_of_approval)
	end

feature {NONE}
---------------------------------------------------------------------------------------------------------------------------
	perform_form_details_validation
	--basic form validation for the details page: checks all required fields adding their names to the empty_fields list if applicable
		local
			start_date:DATE
			end_date:DATE
			papers_submission_date:DATE
		do
			if NOT field_defined ("conference_name") OR ELSE NOT validator.is_field_value_valid (text_field_value ("conference_name")) then
				form_validation_errors.extend ("Conference Name", "conference_name")
			end

			if (NOT field_defined ("start_date_day") OR NOT field_defined ("start_date_month") OR NOT field_defined ("start_date_year")) OR ELSE NOT validator.is_date_valid(text_field_value ("start_date_day"),text_field_value ("start_date_month"),text_field_value ("start_date_year")) then
				form_validation_errors.extend ("Wrong Starting Date: "+text_field_value ("start_date_day")+"/"+text_field_value ("start_date_month")+"/"+text_field_value ("start_date_year"), "start_date_day")
			else
				create start_date.make_day_month_year (text_field_value ("start_date_day").to_integer, text_field_value ("start_date_month").to_integer, text_field_value ("start_date_year").to_integer)
			end

			if NOT field_defined ("end_date_day") OR ELSE NOT field_defined ("end_date_month") OR ELSE NOT field_defined ("end_date_year") OR ELSE NOT validator.is_date_valid(text_field_value ("end_date_day"),text_field_value ("end_date_month"),text_field_value ("end_date_year")) then
				form_validation_errors.extend ("Wrong Ending Date: "+text_field_value ("end_date_day")+"/"+text_field_value ("end_date_month")+"/"+text_field_value ("end_date_year"), "end_date_day")
			else
				create end_date.make_day_month_year (text_field_value ("end_date_day").to_integer, text_field_value ("end_date_month").to_integer, text_field_value ("end_date_year").to_integer)
			end

			if NOT field_defined ("conference_city") OR ELSE NOT validator.is_field_value_valid (text_field_value ("conference_city")) then
				form_validation_errors.extend ("City", "conference_city")
			end

			if NOT validator.is_country_valid (text_field_value ("conference_country")) then
				form_validation_errors.extend ("Country", "conference_country")
			end

			if NOT field_defined ("paper_sub_deadline_day") OR ELSE NOT field_defined ("paper_sub_deadline_month") OR ELSE NOT field_defined ("paper_sub_deadline_year") OR ELSE NOT validator.is_non_required_date_valid(text_field_value ("paper_sub_deadline_day"),text_field_value ("paper_sub_deadline_month"),text_field_value ("paper_sub_deadline_year")) then
				form_validation_errors.extend ("Wrong Papers Submission Deadline: "+text_field_value ("paper_sub_deadline_day")+"/"+text_field_value ("paper_sub_deadline_month")+"/"+text_field_value ("paper_sub_deadline_year"),"paper_sub_deadline_day")
			elseif	text_field_value ("paper_sub_deadline_day").is_equal("n/a") OR text_field_value ("paper_sub_deadline_month").is_equal("n/a") OR text_field_value ("paper_sub_deadline_year").is_equal("n/a") then
				create papers_submission_date.make_day_month_year (1, 1, 1111)
			else
				create papers_submission_date.make_day_month_year (text_field_value ("paper_sub_deadline_day").to_integer, text_field_value ("paper_sub_deadline_month").to_integer, text_field_value ("paper_sub_deadline_year").to_integer)
			end
		--	cross checks among dates
			if start_date /= Void AND end_date /= Void AND papers_submission_date/= Void then
				if end_date < start_date then
					form_validation_errors.extend("Starting Date greater than Ending Date", "start_end_date_comparison")
				end
				if  start_date < papers_submission_date then
					form_validation_errors.extend ("Papers Submission Date greater than Starting Date", "papers_submissions_start_date_comparison")
				end
			end

			if NOT field_defined ("main_sponsor") OR ELSE NOT validator.is_field_value_valid (text_field_value ("main_sponsor")) then
				form_validation_errors.extend ("Main Sponsor", "main_sponsor")
			end

			if NOT field_defined ("conference_url") OR ELSE NOT validator.is_field_value_valid (text_field_value ("conference_url")) then
				form_validation_errors.extend ("Conference URL", "conference_url")
			end

			if NOT field_defined ("contact_name") OR ELSE NOT validator.is_field_value_valid(text_field_value ("contact_name")) then
				form_validation_errors.extend ("Contact Name", "contact_name")
			end

			if NOT field_defined ("contact_email") OR ELSE NOT validator.is_email_valid (text_field_value ("contact_email")) then
				form_validation_errors.extend ("Wrong Contact Email: "+text_field_value ("contact_email"), "contact_email")
			end

			if NOT field_defined ("id") OR ELSE NOT validator.is_field_value_valid (text_field_value ("id")) then
				form_validation_errors.extend ("Conference internal id not valid: please contact administrator", "id")
			end
		end
---------------------------------------------------------------------------------------------------------------------------
	perform_form_registration_validation(a_user:USER)
			--basic form validation for the registration page: checks all required fields and eventually initializes the user
		require
			a_user_exists: a_user/=Void
		do
			if NOT field_defined ("first_name") OR ELSE NOT validator.is_field_value_valid (text_field_value ("first_name")) then
				form_validation_errors.extend ("First Name", "first_name")
			else
				a_user.set_first_name (text_field_value ("first_name"))
			end

			if NOT field_defined ("last_name") OR ELSE NOT validator.is_field_value_valid (text_field_value ("last_name")) then
				form_validation_errors.extend ("Last Name", "last_name")
			else
				a_user.set_last_name (text_field_value ("last_name"))
			end

			if NOT field_defined ("organization") OR ELSE NOT validator.is_field_value_valid (text_field_value ("organization")) then
				form_validation_errors.extend ("Organization", "organization")
			else
				a_user.set_organization (text_field_value ("organization"))
			end

			if NOT field_defined ("email") OR ELSE NOT validator.is_email_valid (text_field_value ("email")) then
				form_validation_errors.extend ("Email", "email")
			elseif validator.is_existing_username(text_field_value ("email")) then
				form_validation_errors.extend ("Email (user) already present: please choose another", "existing_email")
				else
					a_user.set_email (text_field_value ("email"))
					a_user.set_username (text_field_value ("email"))
			end

			if NOT field_defined ("password1") OR ELSE NOT validator.is_field_value_valid(text_field_value ("password1")) then
				form_validation_errors.extend ("Password (1st field)", "password1")
			elseif NOT field_defined ("password2") OR ELSE NOT validator.is_field_value_valid(text_field_value ("password2")) then
				form_validation_errors.extend ("Password (2nd field)", "password2")
			elseif NOT text_field_value ("password1").is_equal(text_field_value ("password2")) then
				form_validation_errors.extend ("The two passwords do not match each other", "password_mismatch")
			else
				a_user.set_password (text_field_value ("password1"))
			end
		end
end -- class REQUEST_DISPATCHER