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.6 -r1.7
--- openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl	13 Mar 2005 22:32:29 -0000	1.6
+++ openacs-4/packages/assessment/tcl/as-apm-action-procs.tcl	30 Mar 2005 17:38:38 -0000	1.7
@@ -21,9 +21,9 @@
 } { 
 
 # The code does not work at all on Oracle
-#    set user_id [as::actions::get_admin_user_id]
+    set user_id [as::actions::get_admin_user_id]
     
-#    db_exec_plsql insert_default {}
+    db_exec_plsql insert_default {}
 }
 
 ad_proc -public as::actions::insert_actions_after_upgrade {
Index: openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl	28 Feb 2005 17:10:00 -0000	1.1
+++ openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl	30 Mar 2005 17:38:38 -0000	1.2
@@ -13,7 +13,7 @@
 } { 
     set exist_assessment [parameter::get -parameter AsmForRegisterId]
     if { $exist_assessment != 0} {
-	set par_package_id [db_string package_id {select package_id from cr_folders where folder_id=(select context_id from acs_objects where object_id=:exist_assessment)}]
+	set par_package_id [db_string package_id {select package_id from cr_folders where folder_id=(select context_id from acs_objects where object_id=:exist_assessment)} -default 0]
 	
 	if { $package_id == $par_package_id } {
 	parameter::set_value -package_id [ad_conn package_id] -parameter AsmForRegisterId -value 0