Index: openacs-4/packages/dotlrn/www/members-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	15 Mar 2002 01:09:21 -0000	1.5
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	16 Mar 2002 02:02:07 -0000	1.6
@@ -48,4 +48,16 @@
         [lindex $user 5]
 }
 
+db_multirow pending_users select_pending_users {
+    select dotlrn_users.*,
+           dotlrn_member_rels_full.rel_type,
+           dotlrn_member_rels_full.role
+    from dotlrn_users,
+         dotlrn_member_rels_full
+    where dotlrn_users.user_id = :user_id
+    and dotlrn_users.user_id = dotlrn_member_rels_full.user_id
+    and dotlrn_member_rels_full.community_id = :community_id
+    and dotlrn_member_rels_full.member_state = 'needs approval'
+}
+
 ad_return_template