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@ -