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) + + + +