Index: openacs-4/packages/assessment/www/admin/asm-action-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/asm-action-new.tcl	25 Jan 2005 22:03:44 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/asm-action-new.tcl	10 Feb 2005 21:30:08 -0000	1.3
@@ -7,6 +7,10 @@
     action_id:optional
 }
 
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+set node_id [ad_conn node_id]
+
 if { ![ad_form_new_p -key action_id] } {
     set page_title [_ assessment.Edit_Assessment]
       set parameter_exist "y"
@@ -43,10 +47,10 @@
 	where action_id = :action_id
 
 } -new_data {
-    db_dml insert_action {}
+    db_exec_plsql insert_action {}
 } -edit_data {
     db_dml edit_action {}
-} -on_submit {
+} -after_submit {
   ad_returnredirect "asm-action-new?action_id=$action_id"
 }