--
-- Assessment Package
--
-- @author nperper@it.uc3m.es
-- @creation-date 2004-08-05
--

-- Assessment Sessions: provides the central definition of a given subject's performance of an Assessment.
create table as_sessions (
	session_id integer
		constraint as_sessions_session_id_pk
		primary key
		constraint as_sessions_session_id_fk
		references cr_revisions(revision_id)
                on delete cascade,
	assessment_id integer
		constraint as_sessions_assessment_id_fk
		references as_assessments(assessment_id)
                on delete cascade,
	-- References a Subjects entity that we don't define in this package.
	-- if subjects can't be "persons" then Assessment will have to define an as_subjects table for its own use.
	subject_id integer
		constraint as_sessions_subject_id_fk
		references persons(person_id)
                on delete cascade,
	-- references Users if someone is doing the Assessment as a proxy for the real subject
	staff_id integer
		constraint as_sessions_staff_id_fk
		references users(user_id)
                on delete cascade,
	-- when the subject should do the Assessment
	target_datetime		date,
	-- when the subject initiated the Assessment
	creation_datetime 	date,
	-- when the subject first sent something back in
	first_mod_datetime 	date,
	-- the most recent submission
	last_mod_datetime 	date,
	-- when the final submission produced a complete Assessment
	completed_datetime 	date,
	session_status varchar(20),
	assessment_status 	varchar(20),
	-- current percentage of the subject achieved so far
	percent_score integer
		constraint as_sessions_percent_score_ck
		check (percent_score <= 100)
);

create index as_sessions_ass_idx on as_sessions (assessment_id);
create index as_sessions_subj_idx on as_sessions (subject_id);

--Assessment Section Data: tracks the state of each Section in the Assessment.
create table as_section_data (
	section_data_id integer
		constraint as_section_data_id_pk
		primary key
		constraint as_section_data_id_fk
		references cr_revisions(revision_id)
                on delete cascade,
	session_id integer
		constraint as_section_data_sess_id_fk
		references as_sessions(session_id)
                on delete cascade,
	section_id integer
		constraint as_section_data_sect_id_fk
		references as_sections(section_id)
                on delete cascade,
-- if subjects can't be "persons" then Assessment will have to define an as_subjects table for its own use.
	subject_id integer
		constraint as_section_data_subj_id_fk
		references persons(person_id)
                on delete cascade,
	staff_id integer
		constraint as_section_data_staff_id_fk
		references users(user_id)
                on delete cascade,
	points float,
	-- when the subject initiated the section
	creation_datetime date,
	-- when the final submission produced a complete section
	completed_datetime date
);

create unique index as_section_data_pk2 on as_section_data (session_id, section_id);
create unique index as_section_data_pk3 on as_section_data (section_id, session_id);
create index as_section_data_subj_idx on as_section_data (subject_id);

-- Assessment Item Data: is the "long skinny table" where all the primary data go
create table as_item_data (
	item_data_id integer
		constraint as_item_data_id_pk
		primary key
		constraint as_item_data_id_fk
		references cr_revisions(revision_id)
                on delete cascade,
	session_id integer
		constraint as_item_data_sess_id_fk
		references as_sessions(session_id)
                on delete cascade,
	-- if subjects can't be "persons" then Assessment will have to define an as_subjects table for its own use
	subject_id integer
		constraint as_item_data_subj_id_fk
		references persons(person_id)
                on delete cascade,
	-- missing foreign key
	staff_id integer
		constraint as_item_data_staff_id_fk
		references users(user_id)
                on delete cascade,
	as_item_id integer
		constraint as_item_data_item_id
		references as_items(as_item_id)
                on delete cascade,
 	section_id integer
		constraint as_item_data_section_id
		references as_sections(section_id)
                on delete cascade,
	is_unknown_p char(1) default 'f'
		constraint as_item_data_unknown_p_ck
		check (is_unknown_p in ('t','f')),
	boolean_answer	char(1)
			constraint as_item_data_bool_ck
			check (boolean_answer in ('t','f')),
	clob_answer 	clob,
	numeric_answer	numeric,
	integer_answer	integer,
	-- presumably can store both varchar and text datatypes 
	text_answer	varchar(500),
	timestamp_answer	date,
	-- references cr_revisions
	content_answer	integer
		constraint as_item_data_content_fk
		references cr_revisions
                on delete cascade,
	-- This field stores the signed entered data
	signed_data varchar(500),
	points float,
	file_id integer
		constraint as_item_data_file_id_fk
		references cr_revisions(revision_id)
                on delete cascade,
        as_item_cr_item_id integer,
        choice_value varchar2(4000)
	-- to do: figure out how attachment answers should be supported; the Attachment package is still in need of considerable help. Can we rely on it here?
);

create index as_item_data_pk2 on as_item_data (session_id, section_id, as_item_id);
create index as_item_data_pk3 on as_item_data (as_item_id, section_id, session_id);
create index as_item_data_subj_idx on as_item_data (subject_id);
create index as_item_data_as_item_id_idx on as_item_data (as_item_id);

create or replace trigger as_item_data_ins_trg
before insert on as_item_data
for each row
declare v_item_id integer;
begin
select item_id into v_item_id
from cr_revisions where revision_id = :new.as_item_id;
:new.as_item_cr_item_id := v_item_id;
end as_item_data_ins_trg;
/
show errors;

create table as_session_results (
       result_id   integer
                   constraint as_sess_res_res_id_pk
                   primary key
                   constraint as_sess_res_res_id_fk
                   references cr_revisions(revision_id)
                   on delete cascade,
       target_id   integer
                   constraint as_sess_res_tgt_id_fk
                   references cr_revisions(revision_id)
                   on delete cascade,
       points      float
);

create index as_sess_res_tgt_idx on as_session_results (target_id);

-- here the selected choices are stored
create table as_item_data_choices (
	item_data_id	integer
			constraint as_idata_cho_data_id_fk
			references as_item_data
                        on delete cascade,
	-- references as_item_choices
	choice_id	integer
			constraint as_idata_cho_choice_id_fk
			references as_item_choices
                        on delete cascade,
	constraint as_idata_choices_pk
	primary key (item_data_id, choice_id)
);

create unique index as_idata_choices_pk2 on as_item_data_choices (choice_id, item_data_id);

create or replace trigger as_item_data_choices_ins_trg
after insert on as_item_data_choices
for each row
declare v_choice_value varchar(4000) default '';
begin

select title into v_choice_value
from cr_revisions
where revision_id = :new.choice_id;

update as_item_data set choice_value = coalesce(choice_value,'') || ' ' || coalesce(v_choice_value,'') where item_data_id = :new.item_data_id;

end as_item_data_choices_ins_trg;
/
show errors;

-- here the order of the displayed sections is stored per session
create table as_session_sections (
	session_id	integer
			constraint as_sess_sect_session_fk
			references as_sessions
                        on delete cascade,
	section_id	integer
			constraint as_sess_sect_section_fk
			references as_sections
                        on delete cascade,
	sort_order	integer,
	constraint as_sess_sections_pk
	primary key (session_id, section_id)
);

create unique index as_sess_sections_pk2 on as_session_sections (section_id, session_id);

-- here the order of the displayed items is stored per session
create table as_session_items (
	session_id	integer
			constraint as_sess_items_session_fk
			references as_sessions
                        on delete cascade,
	section_id	integer
			constraint as_sess_items_section_fk
			references as_sections
                        on delete cascade,
	as_item_id	integer
			constraint as_sess_items_item_fk
			references as_items
                        on delete cascade,
	sort_order	integer,
	constraint as_sess_items_pk
	primary key (session_id, section_id, as_item_id)
);

create unique index as_sess_items_pk2 on as_session_items (as_item_id, section_id, session_id);

-- here the order of the displayed item choices is stored per session
create table as_session_choices (
	session_id	integer
			constraint as_sess_cho_session_fk
			references as_sessions
                        on delete cascade,
	section_id	integer
			constraint as_sess_cho_section_fk
			references as_sections
                        on delete cascade,
	as_item_id	integer
			constraint as_sess_cho_item_fk
			references as_items
                        on delete cascade,
	choice_id	integer
			constraint as_sess_cho_choice_fk
			references as_item_choices
                        on delete cascade,
	sort_order	integer,
	constraint as_sess_choices_pk
	primary key (session_id, section_id, as_item_id, choice_id)
);

create unique index as_sess_choices_pk2 on as_session_choices (choice_id, as_item_id, section_id, session_id);

-- here all references to answers of a session are stored
create table as_session_item_map (
	session_id	integer
			constraint as_sess_imap_session_fk
			references as_sessions on delete cascade,
	item_data_id	integer
			constraint as_sess_imap_item_data_fk
			references as_item_data on delete cascade,
	constraint as_sess_imap_pk
	primary key (session_id, item_data_id)
);

create unique index as_sess_imap_pk2 on as_session_item_map (item_data_id, session_id);