Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	10 Jun 2005 17:41:11 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	15 Jun 2005 18:02:26 -0000	1.7
@@ -26,7 +26,7 @@
         -from_version_name $from_version_name \
         -to_version_name $to_version_name \
         -spec {
-            5.2.0d2 5.2.0d3 {
+            5.2.0d1 5.2.0d2 {
 		set type_id [content::type::new -content_type "email_image" -pretty_name "Email_Image" \
 				 -pretty_plural "Email_Images" -table_name "users_email_image" -id_column "email_image_id"]
 		
@@ -36,5 +36,13 @@
 		
 		
 	    }
+	    5.2.0a1 5.2.0a2 {
+		set value [parameter::get -parameter "AsmForRegisterId" -package_id [subsite::main_site_id]]
+		if {[empty_string_p $value]} {
+		    apm_parameter_register "AsmForRegisterId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login"
+		}
+		apm_parameter_register "RegImplName" "Name of the implementation used in the registration process" "acs-subsite" "asm_url" "string" "user-login"
+		
+	    }
 	}
 }