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.9 -r1.10
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	15 Dec 2006 00:01:53 -0000	1.9
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	10 Jan 2007 21:22:06 -0000	1.10
@@ -38,19 +38,19 @@
 	    }
 	    5.2.0a1 5.2.0a2 {
 		set value [parameter::get -parameter "AsmForRegisterId" -package_id [subsite::main_site_id]]
-		if {[empty_string_p $value]} {
+		if {$value eq ""} {
 		    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"
 		
 	    }
 	    5.2.0a1 5.2.0a2 {
 		set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]]
-		if {[empty_string_p $value]} {
+		if {$value eq ""} {
 		    apm_parameter_register "RegistrationId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login"
 		}
 		set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]]
-		if {[empty_string_p $value]} {
+		if {$value eq ""} {
 		    apm_parameter_register "RegistrationImplName" "Name of the implementation used in the registration process" "acs-subsite" "asm_url" "string" "user-login"
                 }
 	    }
@@ -69,11 +69,11 @@
 	    }
 	    5.2.0a1 5.2.0a2 {
 		set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]]
-		if {[empty_string_p $value]} {
+		if {$value eq ""} {
 		    apm_parameter_register "RegistrationId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login"
 		}
 		set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]]
-		if {[empty_string_p $value]} {
+		if {$value eq ""} {
 		    apm_parameter_register "RegistrationImplName" "Name of the implementation used in the registration process" "acs-subsite" "asm_url" "string" "user-login"
                 }
 	    }