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