Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-oracle.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-oracle.xql	25 Apr 2001 04:52:44 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs-oracle.xql	14 May 2001 23:16:08 -0000	1.2
@@ -18,6 +18,22 @@
       </querytext>
 </fullquery>
 
+<fullquery name="wf_assignment_widget.party_with_at_least_one_member">      
+      <querytext>
+
+			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)
+		    
+      </querytext>
+</fullquery>
+
  
 <fullquery name="wf_attribute_value_pretty.party_info">      
       <querytext>
@@ -32,7 +48,7 @@
  
 <fullquery name="wf_attribute_widget.party_with_at_least_one_member">      
       <querytext>
-      FIX ME DECODE (USE SQL92 CASE) 
+
 			select p.party_id, 
 			       acs_object.name(p.party_id) as name, 
 			       decode(p.email, '', '', '('||p.email||')') as email