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.8 -r1.9
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	4 Jun 2006 00:45:42 -0000	1.8
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	15 Dec 2006 00:01:53 -0000	1.9
@@ -67,5 +67,28 @@
 		    }
 		}
 	    }
+	    5.2.0a1 5.2.0a2 {
+		set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]]
+		if {[empty_string_p $value]} {
+		    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]} {
+		    apm_parameter_register "RegistrationImplName" "Name of the implementation used in the registration process" "acs-subsite" "asm_url" "string" "user-login"
+                }
+	    }
+	    5.2.0a2 5.2.0a3 {
+		db_transaction {
+		    db_foreach select_group_name {select group_id, group_name from groups} {
+			if { ![empty_string_p [info procs "::lang::util::convert_to_i18n"]] } {
+			    set pretty_name [lang::util::convert_to_i18n -message_key "group_title_${group_id}" -text "$group_name"]
+			} else {
+			    set pretty_name "$group_name"
+			}
+			
+			db_dml title_update "update acs_objects set title=:pretty_name where object_id = :group_id"
+		    }
+		}
+	    }
 	}
 }