Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	8 Oct 2001 21:38:37 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Oct 2001 14:35:58 -0000	1.7
@@ -145,12 +145,15 @@
 	    # Callbacks
 	    applets_dispatch $community_id RemoveUser [list $community_id $user_id]
 	    
-	    # Get the relationship ID
-	    set rel_id [db_string select_rel_id {}]
+	    # Get a few important things, like rel_id and portal page_id
+	    db_1row select_rel_info {}
 	    
 	    # Remove the membership
 	    db_dml delete_membership {}
 	    
+	    # Remove the page
+	    portal::delete_portal $page_id
+	    
 	    # Remove it
 	    relation_remove $rel_id
 	}
@@ -165,6 +168,15 @@
 	return [db_string select_page_id {}]
     }
 
+    ad_proc -public get_all_communities_by_user {
+	user_id
+    } {
+	returns all communities for a user
+    } {
+	set list_of_communities [list]
+	### HACK HERE !!! (ben)
+    }
+
     ad_proc -public get_communities_by_user {
 	community_type
 	user_id