Index: openacs-4/packages/tasks/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/index.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/tasks/www/index.tcl	12 Apr 2006 08:26:27 -0000	1.12
+++ openacs-4/packages/tasks/www/index.tcl	5 May 2006 18:37:20 -0000	1.13
@@ -66,13 +66,13 @@
 
 set object_query "
 select parties.party_id
-  from parties
-       left join cr_items on (parties.party_id = cr_items.item_id) 
-       left join cr_revisions on (cr_items.latest_revision = cr_revisions.revision_id ),
+  from parties,
+       cr_items,
        group_distinct_member_map
  where parties.party_id = group_distinct_member_map.member_id
-       and group_distinct_member_map.group_id in ('[join [contacts::default_groups] "','"]')
-[contact::search_clause -and -search_id $search_id -query $query -party_id "parties.party_id" -revision_id "revision_id"]
+   and parties.party_id = cr_items.item_id
+   and group_distinct_member_map.group_id in ([template::util::tcl_to_sql_list [contacts::default_groups]])
+[contact::search_clause -and -search_id $search_id -query $query -party_id "parties.party_id" -revision_id "cr_items.live_revision"]
 "