Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	25 Jan 2007 14:28:02 -0000	1.16.2.1
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	10 Feb 2007 13:50:46 -0000	1.16.2.2
@@ -146,23 +146,6 @@
                           -array user_info]
 
 
-    if {[apm_package_installed_p categories]} {
-	set cat_ids [list]
-	foreach group_id $group_ids {
-	    set element_name "category_ids$group_id"
-	    if {$group_id < 0} {
-		set element_name "category_ids[expr - $group_id]"
-	    }
-
-	    set cat_ids [concat $cat_ids \
-			     [category::ad_form::get_categories \
-				  -container_object_id $group_id \
-				  -element_name $element_name]]
-	}
-
-	category::map_object -remove_old -object_id $user_id $cat_ids
-    }
-
     # Handle authentication problems
     switch $result(update_status) {
         ok {