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 {} } + +