Index: openacs-4/packages/assessment/lib/show-check-info.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/show-check-info.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/lib/show-check-info.adp 24 Jan 2005 21:34:15 -0000 1.1 @@ -0,0 +1,11 @@ +
+ + + + + + + + @display_info;noquote@ +
Trigger Name Action Related Parameters Related
Trigger Name Section to Branch
+ Index: openacs-4/packages/assessment/lib/show-check-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/show-check-info.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/lib/show-check-info.tcl 24 Jan 2005 21:34:15 -0000 1.1 @@ -0,0 +1,23 @@ +ad_page_contract { + This page shows the check information to be deleted + + @author Anny Flores (annyflores@viaro.net) Viaro Networks + @date 2005-01-17 + +} { + inter_item_check_id:multiple + section_id + assessment_id + type_check +} + +set checks_list $inter_item_check_id +set count [llength $inter_item_check_id] +set display_info "" + +for { set i 0} { $i< $count } {incr i} { + set check_id [lindex $inter_item_check_id $i] + append display_info [as::assessment::check::confirm_display -check_id $check_id -index $i] +} + + Index: openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/sql/postgresql/assessment-actions-create.sql 24 Jan 2005 21:34:15 -0000 1.1 @@ -0,0 +1,91 @@ +-- Assessment Package +-- @author annyflores@viaro.net +-- @creation-date 2005-01-06 + + +------------------------------------------------ +-- table as_actions +------------------------------------------------ + + +create table as_actions( + action_id integer + constraint as_actions_pk + primary key, + name varchar(200), + description varchar(200), + tcl_code text + constraint as_actions_tcl_code_nn not null +); + +------------------------------------------------ +-- table as_action_map +------------------------------------------------ + +create table as_action_map ( + inter_item_check_id integer + constraint as_action_map_check_id_fk + references as_inter_item_checks(inter_item_check_id), + action_id integer + constraint as_action_map_action_id_fk + references as_actions(action_id), + order_by integer, + user_message varchar(200), + action_perform varchar(2) +); + + +------------------------------------------------ +-- table as_action_params +------------------------------------------------ + +create table as_action_params ( + parameter_id integer + constraint as_action_params_pk + primary key, + action_id integer, + type varchar(1) not null, + varname varchar(50) not null, + description varchar(200), + query text +); + + + +------------------------------------------------ +-- table as_param_map +------------------------------------------------ + +create table as_param_map ( + parameter_id integer, + value integer, + + item_id integer, + inter_item_check_id integer + +); + + + +----------------------------------------------- +-- table as_actions_log +------------------------------------------------ + +create table as_actions_log ( + action_log_id integer + constraint as_actions_log_pk + primary key, + inter_item_check_id integer not null, + action_id integer not null, + finally_executed_by integer, + date_requested date, + date_processed date, + approved_p boolean not null, + failed_p boolean not null, + error_txt varchar, + session_id integer + + +); + +create sequence as_actions_log_action_log_id; Index: openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/sql/postgresql/assessment-checks-create.sql 24 Jan 2005 21:34:15 -0000 1.1 @@ -0,0 +1,95 @@ + +-- Assessment Package +-- @author annyflores@viaro.net +-- @creation-date 2005-01-06 + +select acs_object_type__create_type ( + 'as_inter_item_check', + 'As_Inter_item_check', + 'As_Inter_item_checks', + 'acs_object', + 'as_inter_items_checks', + 'as_inter_item_check_id', + null, + 'f', + null, + 'as_inter_item_check__name' +); + + + +---------------------------------------------------------- +-- table as_inter_item_checks +---------------------------------------------------------- + +create table as_inter_item_checks ( + inter_item_check_id integer + constraint as_inter_item_checks_id_fk + references acs_objects(object_id) + on delete cascade + constraint as_inter_item_checks_pk + primary key, + action_p boolean not null, + section_id_from integer not null, + section_id_to integer, + check_sql varchar(4000) + constraint as_inter_item_checks_nn not null, + name varchar(200), + description varchar(200), + postcheck_p boolean not null, + item_id integer +); + + + + +create or replace function as_inter_item_check__new (integer,boolean,integer,integer,varchar,varchar,varchar,boolean,integer,integer,integer) +returns integer as ' +declare + new__inter_item_check_id alias for $1; + new__action_p alias for $2; + new__section_id_from alias for $3; + new__section_id_to alias for $4; + new__check_sql alias for $5; + new__name alias for $6; + new__description alias for $7; + new__postcheck_p alias for $8; + new__item_id alias for $9; + new__creation_user alias for $10; + new__context_id alias for $11; + v_inter_item_check_id integer; +begin + v_inter_item_check_id := acs_object__new ( + new__inter_item_check_id, + ''as_inter_item_check'', + now(), + new__creation_user, + null, + new__context_id + ); + insert into as_inter_item_checks + (inter_item_check_id,action_p,section_id_from,section_id_to,check_sql,name,description,postcheck_p,item_id) + values (v_inter_item_check_id,new__action_p,new__section_id_from,new__section_id_to,new__check_sql,new__name,new__description,new__postcheck_p,new__item_id); + + return v_inter_item_check_id; +end;' language 'plpgsql'; + +create or replace function as_inter_item_check__delete (integer) +returns integer as ' +declare + del__inter_item_check_id alias for $1; +begin + delete from as_actions_log where + inter_item_check_id = del__inter_item_check_id; + + delete from as_param_map where inter_item_check_id= del__inter_item_check_id; + + delete from as_action_map where inter_item_check_id = del__inter_item_check_id; + + delete from as_inter_item_checks where inter_item_check_id = del__inter_item_check_id; + PERFORM acs_object__delete (del__inter_item_check_id); + return del__inter_item_check_id; + +end;' language 'plpgsql'; + + \ No newline at end of file Index: openacs-4/packages/assessment/sql/postgresql/upgrade/assessment-actions-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/upgrade/Attic/assessment-actions-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/sql/postgresql/upgrade/assessment-actions-create.sql 24 Jan 2005 21:34:16 -0000 1.1 @@ -0,0 +1,90 @@ +-- Assessment Package +-- @author annyflores@viaro.net +-- @creation-date 2005-01-06 + + +------------------------------------------------ +-- table as_actions +------------------------------------------------ + + +create table as_actions( + action_id integer + constraint as_actions_pk + primary key, + name varchar(200), + description varchar(200), + tcl_code text + constraint as_actions_tcl_code_nn not null +); + +------------------------------------------------ +-- table as_action_map +------------------------------------------------ + +create table as_action_map ( + inter_item_check_id integer + constraint as_action_map_check_id_fk + references as_inter_item_checks(inter_item_check_id), + action_id integer + constraint as_action_map_action_id_fk + references as_actions(action_id), + order_by integer, + user_message varchar(200), + action_perform varchar(2) +); + + +------------------------------------------------ +-- table as_action_params +------------------------------------------------ + +create table as_action_params ( + parameter_id integer + constraint as_action_params_pk + primary key, + action_id integer, + type varchar(1) not null, + varname varchar(50) not null, + description varchar(200), + query text +); + + + +------------------------------------------------ +-- table as_param_map +------------------------------------------------ + +create table as_param_map ( + parameter_id integer, + value integer, + + item_id integer, + inter_item_check_id integer + +); + + + +----------------------------------------------- +-- table as_actions_log +------------------------------------------------ + +create table as_actions_log ( + action_log_id integer + constraint as_actions_log_pk + primary key, + inter_item_check_id integer not null, + action_id integer not null, + finally_executed_by integer, + date_requested date, + date_processed date, + approved_p boolean not null, + failed_p boolean not null, + error_txt varchar, + session_id integer + + +); + Index: openacs-4/packages/assessment/tcl/as-apm-callbacks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/as-apm-callbacks.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/tcl/as-apm-callbacks.tcl 24 Jan 2005 21:34:16 -0000 1.1 @@ -0,0 +1,45 @@ +ad_library { + + Assessment Library - Reply Handling +} + + +namespace eval assessment::notification_delivery { + + ad_proc -public do_notification { + assessment_id + user_id + entr_id + } { + + db_1row select_assessment_name {*SQL*} + db_1row select_user_name {*SQL*} + set q_a_text "" + append q_a_text "Question: $question +Answer: $answer" + set text_version "" + set assessment_url [assessment::notification::get_url $entry_id] + + append text_version "Assessment: $assessment_name +Author: $name ($email)\n\n" + append text_version [wrap_string $q_a_text] + append text_version "\n\n-- +To view the entire ASSESSMENT go to: +$assessment_url +" + set new_content $text_version + set package_id [ad_conn package_id] + + # Notifies the users that requested notification for the specific ASSESSMENT + + notification::new \ + -type_id [notification::type::get_type_id \ + -short_name one_assessment_qa_notif] \ + -object_id $assessment_id \ + -response_id $entry_id \ + -notif_subject "New Q&A of $assessment_name" \ + -notif_text $new_content + + + } +} Index: openacs-4/packages/assessment/tcl/as-apm-callbacks.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/as-apm-callbacks.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/assessment/tcl/as-apm-callbacks.xql 24 Jan 2005 21:34:16 -0000 1.1 @@ -0,0 +1,23 @@ + + + + + + + select assessment_name from + as_assessments where assessment_id = :assessment_id + + + + + + select persons.first_names || ' ' || persons.last_name as name, + parties.email + from persons, parties + where person_id = :user_id + and person_id = party_id + + + + +