Index: openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql 8 Feb 2005 22:55:10 -0000 1.1 +++ openacs-4/packages/assessment/tcl/as-apm-action-procs-postgresql.xql 10 Feb 2005 21:28:46 -0000 1.2 @@ -3,7 +3,7 @@ - select as_action__default_actions (:instance_id,:user_id) + select as_action__default_actions ($node_id,$user_id,$package_id) Index: openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl 8 Feb 2005 22:55:10 -0000 1.1 +++ openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl 10 Feb 2005 21:28:46 -0000 1.2 @@ -4,18 +4,16 @@ } - -namespace eval as::actions { +namespace eval as::actions {} - ad_proc -public insert_actions { - -package_id:integer,required - -node_id:integer,required - } { - } { - set user_id [auth::test::get_admin_user_id] - set instance_id $package_id - - db_exec_plsql insert_default {} - } +ad_proc -public as::actions::insert_actions { + {-package_id} + {-node_id} +} { +} { + set user_id [auth::test::get_admin_user_id] + db_exec_plsql insert_default {} } + + Index: openacs-4/packages/assessment/tcl/as-pram-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-pram-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/tcl/as-pram-procs.tcl 24 Jan 2005 17:59:52 -0000 1.1 +++ openacs-4/packages/assessment/tcl/as-pram-procs.tcl 10 Feb 2005 21:28:46 -0000 1.2 @@ -32,8 +32,7 @@ db_1row select_actions "" if { $maps == 0 } { - db_dml delete_action "" - db_dml delete_param "" + db_exec_plsql delete_action {} } else { ad_return_complaint 1 "You have information stored on the db related to this action" } Index: openacs-4/packages/assessment/tcl/as-pram-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-pram-procs.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/tcl/as-pram-procs.xql 24 Jan 2005 17:59:52 -0000 1.1 +++ openacs-4/packages/assessment/tcl/as-pram-procs.xql 10 Feb 2005 21:28:46 -0000 1.2 @@ -20,11 +20,6 @@ - - - delete from as_actions where action_id =:action_id - -