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.80 -r1.81
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	16 Mar 2002 18:59:03 -0000	1.80
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	18 Mar 2002 04:38:38 -0000	1.81
@@ -603,15 +603,18 @@
     } {
         Reject membership to a community
     } {
-        db_1row select_rel_info {}
+        # This is the *right* thing to do, but for now we'll just remove them
+        # (ben)
+        # db_1row select_rel_info {}
 
-        db_transaction {
-            membership_rel::reject -rel_id $rel_id
-
-            if {![empty_string_p $portal_id]} {
-                portal::delete $portal_id
-            }
-        }
+        # db_transaction {
+        #    membership_rel::reject -rel_id $rel_id
+        #    if {![empty_string_p $portal_id]} {
+        #        portal::delete $portal_id
+        #    }
+        # }
+        
+        remove_user $community_id $user_id
     }
 
     ad_proc -public remove_user {