100 lines
1.5 KiB
Plaintext
100 lines
1.5 KiB
Plaintext
note
|
|
description: "[
|
|
Taxonomy vocabulary term.
|
|
]"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
CMS_TERM
|
|
|
|
inherit
|
|
COMPARABLE
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (a_id: INTEGER; a_text: READABLE_STRING_GENERAL)
|
|
do
|
|
id := a_id
|
|
set_text (a_text)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
id: INTEGER
|
|
-- Associated term id.
|
|
|
|
text: IMMUTABLE_STRING_32
|
|
-- Text for the term.
|
|
|
|
description: detachable IMMUTABLE_STRING_32
|
|
-- Optional description.
|
|
|
|
parent_id: INTEGER
|
|
-- Optional parent term id.
|
|
|
|
weight: INTEGER
|
|
-- Associated weight for ordering.
|
|
|
|
feature -- Status report
|
|
|
|
has_id: BOOLEAN
|
|
-- Has valid id?
|
|
do
|
|
Result := id > 0
|
|
end
|
|
|
|
feature -- Comparison
|
|
|
|
is_less alias "<" (other: like Current): BOOLEAN
|
|
-- Is current object less than `other'?
|
|
do
|
|
if weight = other.weight then
|
|
if text.same_string (other.text) then
|
|
Result := id < other.id
|
|
else
|
|
Result := text < other.text
|
|
end
|
|
else
|
|
Result := weight < other.weight
|
|
end
|
|
end
|
|
|
|
feature -- Element change
|
|
|
|
set_id (a_id: INTEGER)
|
|
do
|
|
id := a_id
|
|
end
|
|
|
|
set_text (a_text: READABLE_STRING_GENERAL)
|
|
do
|
|
create text.make_from_string_general (a_text)
|
|
end
|
|
|
|
set_weight (w: like weight)
|
|
do
|
|
weight := w
|
|
end
|
|
|
|
set_description (a_description: READABLE_STRING_GENERAL)
|
|
do
|
|
create description.make_from_string_general (a_description)
|
|
end
|
|
|
|
set_parent (a_parent: CMS_TERM)
|
|
do
|
|
parent_id := a_parent.id
|
|
end
|
|
|
|
set_parent_id (a_parent_id: INTEGER)
|
|
do
|
|
parent_id := a_parent_id
|
|
end
|
|
|
|
end
|
|
|