Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-postgresql.xql 25 Apr 2001 04:52:44 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-postgresql.xql 14 May 2001 23:16:08 -0000 1.2
@@ -18,6 +18,22 @@
+
+
+
+ select p.party_id,
+ acs_object__name(p.party_id) as name,
+ case when p.email = '' then '' else '(' || p.email || ')' end as email
+ from parties p
+ where 0 < (select count(*)
+ from users u,
+ party_approved_member_map m
+ where m.party_id = p.party_id
+ and u.user_id = m.member_id)
+
+
+
+