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.2 -r1.3
--- openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl	30 Mar 2005 17:38:38 -0000	1.2
+++ openacs-4/packages/assessment/tcl/as-apm-param-procs.tcl	12 Jun 2006 02:49:50 -0000	1.3
@@ -11,12 +11,12 @@
     {-node_id ""}
 } {
 } { 
-    set exist_assessment [parameter::get -parameter AsmForRegisterId]
+    set exist_assessment [parameter::get -parameter RegistrationId]
     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)} -default 0]
 	
 	if { $package_id == $par_package_id } {
-	parameter::set_value -package_id [ad_conn package_id] -parameter AsmForRegisterId -value 0
+	parameter::set_value -package_id [ad_conn package_id] -parameter RegistrationId -value 0
 	}
     }
 }