Jocelyn Fiat
59c03c5f4d
For now with basic implementation. It will be improved later Added SEO related attribute in CMS_RESPONSE. Added improved Contact module. Added basic SEO module.
50 lines
1.0 KiB
Plaintext
50 lines
1.0 KiB
Plaintext
note
|
|
description: "[
|
|
Contact message storage based on SQL statements.
|
|
]"
|
|
date: "$Date: 2015-02-13 13:08:13 +0100 (ven., 13 févr. 2015) $"
|
|
revision: "$Revision: 96616 $"
|
|
|
|
class
|
|
CONTACT_STORAGE_SQL
|
|
|
|
inherit
|
|
CMS_PROXY_STORAGE_SQL
|
|
|
|
CONTACT_STORAGE_I
|
|
|
|
CMS_STORAGE_SQL_I
|
|
|
|
REFACTORING_HELPER
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Access
|
|
|
|
feature -- Change
|
|
|
|
save_contact_message (m: CONTACT_MESSAGE)
|
|
local
|
|
l_parameters: STRING_TABLE [detachable ANY]
|
|
now: DATE_TIME
|
|
do
|
|
create now.make_now_utc
|
|
error_handler.reset
|
|
|
|
write_information_log (generator + ".save_contact_message")
|
|
create l_parameters.make (9)
|
|
l_parameters.put (m, "message")
|
|
l_parameters.put (now, "changed")
|
|
sql_begin_transaction
|
|
sql_modify (sql_insert_contact_message, l_parameters)
|
|
sql_commit_transaction
|
|
end
|
|
|
|
feature {NONE} -- Queries
|
|
|
|
sql_insert_contact_message: STRING = "INSERT INTO contact_messages (name, email, date, message) VALUES (:name, :email, :date, :message);"
|
|
-- SQL Insert to add a new contact message.
|
|
|
|
end
|