Index: openacs-4/packages/assessment/www/admin/action-params.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/action-params.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/action-params.tcl 25 Jan 2005 22:03:44 -0000 1.2
+++ openacs-4/packages/assessment/www/admin/action-params.tcl 28 Jan 2005 20:33:19 -0000 1.3
@@ -19,7 +19,7 @@
ad_script_abort
}
set title $assessment_data(title)
-set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] [ list "add-edit-check?assessment_id=$assessment_id§ion_id=$section_id" "$title Checks"] [list "action-select?assessment_id=$assessment_id&inter_item_check_id=$inter_item_check_id&action_id=$action_id§ion_id=$section_id" "[_ assessment.action_select]"] "[_ assessment.action_params]" ]
+set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] "[_ assessment.action_params]" ]
set new_assessment_revision [db_string get_assessment_id {select max(revision_id) from cr_revisions where item_id=:assessment_id}]
Index: openacs-4/packages/assessment/www/admin/action-select.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/action-select.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/action-select.tcl 25 Jan 2005 22:03:44 -0000 1.2
+++ openacs-4/packages/assessment/www/admin/action-select.tcl 28 Jan 2005 20:33:19 -0000 1.3
@@ -20,7 +20,7 @@
set edit_p [ db_string exist_check {}]
set title $assessment_data(title)
-set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] [ list "add-edit-check?assessment_id=$assessment_id§ion_id=$section_id" "$title Triggers"] [_ assessment.action_select]]
+set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] [_ assessment.action_select]]
set title "[_ assessment.action_select]"
set options [list [list "[_ assessment.immediately]" "i"] [list "[_ assessment.at_the_end]" "aa"] [list "[_ assessment.manually]" "m"]]
@@ -74,13 +74,16 @@
db_dml edit_action {}
} else {
- ns_log notice "----------------------- no es igual $perform $action_perform"
+ ns_log notice "----------------------- no es igual $perform $action_perform"
#re-order the other group
as::assessment::check::re_order_actions -check_id $inter_item_check_id -section_id $section_id -action_perform $perform
set order [as::assessment::check::get_max_order -section_id $section_id -action_perform $action_perform]
db_dml edit_action_order_by {}
}
} else {
+ db_dml delete_action_map {}
+ db_dml delete_param_map {}
+
set order [as::assessment::check::get_max_order -section_id $section_id -action_perform $action_perform]
db_dml select_action {}
}
Index: openacs-4/packages/assessment/www/admin/action-select.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/action-select.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/action-select.xql 24 Jan 2005 17:45:56 -0000 1.1
+++ openacs-4/packages/assessment/www/admin/action-select.xql 28 Jan 2005 20:33:19 -0000 1.2
@@ -53,10 +53,25 @@
+
update as_action_map set action_perform=:action_perform, action_id=:action_id, user_message=:user_message,order_by=:order where inter_item_check_id=:inter_item_check_id
+
+
+ delete from as_action_map where inter_item_check_id=:inter_item_check_id;
+
+
+
+
+
+ delete from as_param_map where inter_item_check_id=:inter_item_check_id;
+
+
+
+
+
Index: openacs-4/packages/assessment/www/admin/add-edit-check-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/add-edit-check-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/add-edit-check-oracle.xql 24 Jan 2005 17:45:56 -0000 1.1
+++ openacs-4/packages/assessment/www/admin/add-edit-check-oracle.xql 28 Jan 2005 20:33:19 -0000 1.2
@@ -14,6 +14,7 @@
description => :description,
postcheck_p => :postcheck_p,
item_id => null,
+ assessment_id => :assessment_id,
creation_user => :user_id,
context_id => null,
object_type => 'as_inter_item_checks',
Index: openacs-4/packages/assessment/www/admin/add-edit-check-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/add-edit-check-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/add-edit-check-postgresql.xql 27 Jan 2005 18:08:40 -0000 1.2
+++ openacs-4/packages/assessment/www/admin/add-edit-check-postgresql.xql 28 Jan 2005 20:33:19 -0000 1.3
@@ -10,7 +10,7 @@
- select as_inter_item_check__new (:inter_item_check_id,:action_p,:section_id_from,null,:check_sql,:name,:description,:postcheck_p,null,:user_id,null)
+ select as_inter_item_check__new (:inter_item_check_id,:action_p,:section_id_from,null,:check_sql,:name,:description,:postcheck_p,null,:user_id,null,:assessment_id)
Index: openacs-4/packages/assessment/www/admin/add-edit-check.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/add-edit-check.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/add-edit-check.tcl 25 Jan 2005 22:03:44 -0000 1.2
+++ openacs-4/packages/assessment/www/admin/add-edit-check.tcl 28 Jan 2005 20:33:19 -0000 1.3
@@ -17,7 +17,7 @@
set section_id_from ""
set return_url ""
as::assessment::data -assessment_id $assessment_id
-
+set assessment_rev_id $assessment_data(assessment_rev_id)
if {![info exists assessment_data(assessment_id)]} {
ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
ad_script_abort
@@ -102,7 +102,7 @@
set condition_sql [db_string get_item_id {}]
#parse condition_sql to get choice_id
set cond_list [split $condition_sql "="]
-# set condition [string range [lindex $cond_list 1] 0 3]
+ #set condition [string range [lindex $cond_list 1] 0 3]
set condition [lindex [split [lindex $cond_list 1] " "] 0]
} -edit_data {
Index: openacs-4/packages/assessment/www/admin/admin-request.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/admin-request.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/admin-request.adp 24 Jan 2005 17:45:56 -0000 1.1
+++ openacs-4/packages/assessment/www/admin/admin-request.adp 28 Jan 2005 20:33:19 -0000 1.2
@@ -1,7 +1,7 @@
-Waiting List
+#assessment.Request# #assessment.Administration#
+@context;noquote@
-