Index: openacs-4/packages/dotlrn/www/spam.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/spam.xql	21 Jan 2002 06:58:18 -0000	1.1
+++ openacs-4/packages/dotlrn/www/spam.xql	31 Jan 2002 17:05:35 -0000	1.2
@@ -9,4 +9,38 @@
       and rel_segments.rel_type = :rel_type
     </querytext>
   </fullquery>
+
+  <fullquery name="select_recepient_info">
+    <querytext>
+      select parties.email,
+             decode(acs_objects.object_type,
+                    'user',
+                    (select first_names
+                     from persons
+                     where person_id = parties.party_id),
+                    'group',
+                    (select group_name
+                     from groups
+                     where group_id = parties.party_id),
+                    'rel_segment',
+                    (select segment_name
+                     from rel_segments
+                     where segment_id = parties.party_id),
+                    '') as first_names,
+             decode(acs_objects.object_type,
+                    'user',
+                    (select last_name
+                     from persons
+                     where person_id = parties.party_id),
+                    '') as last_name
+      from party_approved_member_map,
+           parties,
+           acs_objects
+      where party_approved_member_map.party_id = :segment_id
+      and party_approved_member_map.member_id <> :segment_id
+      and party_approved_member_map.member_id = parties.party_id
+      and parties.party_id = acs_objects.object_id
+    </querytext>
+  </fullquery>
+
 </queryset>