indexing description: "Issue list changed message." author: "Dennis Rietmann" date: "$Date$" revision: "$Revision$" class O_ISSUE_LIST_CHANGED_MESSAGE inherit O_SESSION_MESSAGE rename make as make_session redefine make_from_generic, arguments end O_ISSUE_CONSTANTS undefine out end create make create {O_MESSAGE_FACTORY} make_from_generic feature {NONE} -- Initialization make (a_session: like session; a_project: like project; a_date: like date) is -- Create. require a_session_ok: a_session /= Void and then not a_session.is_empty a_project_ok: a_project > 0 a_date_ok: a_date > -1 do make_session (a_session) project := a_project date := a_date ensure project_set: project = a_project date_set: date = a_date end make_from_generic (a_msg: O_GENERIC_MESSAGE) is -- Create from a generic message. local l_args: HASH_TABLE [STRING, STRING] do Precursor (a_msg) l_args := a_msg.arguments project := l_args.item (project_argument).to_integer date := l_args.item (date_argument).to_integer end feature -- Access namespace: STRING is -- Namespace of the message type. once Result := issue_namespace end type: STRING is -- Type of the message. once Result := issue_list_changed_type end project: INTEGER -- The Project id of the project we request issues for date: INTEGER -- A Unix timestamp value. -- All issues that have changed since this date should be retrieved. arguments: HASH_TABLE [STRING, STRING] is -- Named arguments. do Result := Precursor Result.force (project.out, project_argument) Result.force (date.out, date_argument) end feature {NONE} -- Implementation project_argument: STRING is "project" date_argument: STRING is "date" invariant project_ok: project > 0 date_ok: date > -1 end