Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-communities-create.sql,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	22 Mar 2002 22:23:54 -0000	1.33
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	22 Mar 2002 23:21:25 -0000	1.34
@@ -376,9 +376,17 @@
         party_id in parties.party_id%TYPE
     ) return char
     is
+        v_member_p              char(1);
     begin
-        -- TODO: a-la aD, implement this for real (bma)
-        return 't';
+        select decode(count(*), 0, 'f', 't')
+        into v_member_p
+        from dual
+        where exists (select 1
+                      from dotlrn_member_rels_approved
+                      where dotlrn_member_rels_approved.user_id = party_id
+                      and dotlrn_member_rels_approved.community_id = community_id);
+
+        return v_member_p;
     end;
 
     function admin_p (
