36 lines
721 B
Plaintext
36 lines
721 B
Plaintext
note
|
|
description: "Database error handler"
|
|
date: "$Date: 2013-08-08 16:39:49 -0300 (ju. 08 de ago. de 2013) $"
|
|
revision: "$Revision: 195 $"
|
|
|
|
class
|
|
DATABASE_ERROR_HANDLER
|
|
|
|
inherit
|
|
ERROR_HANDLER
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Error operation
|
|
|
|
add_database_error (a_message: READABLE_STRING_32; a_code: INTEGER)
|
|
-- Add a database error
|
|
local
|
|
-- l_error: DATABASE_ERROR
|
|
do
|
|
-- create l_error.make_from_message (a_message, a_code)
|
|
-- add_error (l_error)
|
|
end
|
|
|
|
add_database_no_change_error (a_message: READABLE_STRING_32; a_code: INTEGER)
|
|
-- Add a database error
|
|
local
|
|
-- l_error: DATABASE_NO_CHANGE_ERROR
|
|
do
|
|
-- create l_error.make_from_message (a_message, a_code)
|
|
-- add_error (l_error)
|
|
end
|
|
|
|
end
|