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 -r1.4.2.3 -r1.4.2.4
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	22 Jun 2005 15:58:13 -0000	1.4.2.3
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	25 Jun 2005 01:31:23 -0000	1.4.2.4
@@ -40,8 +40,10 @@
 		if {[empty_string_p $value]} {
 		    apm_parameter_register "RegistrationId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login"
 		}
-		apm_parameter_register "RegistrationImplName" "Name of the implementation used in the registration process" "acs-subsite" "asm_url" "string" "user-login"
-		
+		set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]]
+		if {[empty_string_p $value]} {
+		    apm_parameter_register "RegistrationImplName" "Name of the implementation used in the registration process" "acs-subsite" "asm_url" "string" "user-login"
+                }
 	    }
 	}
 }