Index: openacs-4/packages/contacts/lib/contacts-aggregated.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts-aggregated.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/contacts-aggregated.adp	29 Aug 2005 22:47:58 -0000	1.1
@@ -0,0 +1,10 @@
+<br>
+<formtemplate id="aggregate" style="inline"></formtemplate>
+<br><br>
+@message;noquote@ <br>
+#contacts.aggregated_by# <b>@attr_name;noquote@</b>
+<br>
+<br>
+
+<listtemplate name="contacts"></listtemplate>
+
Index: openacs-4/packages/contacts/lib/contacts-aggregated.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts-aggregated.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/contacts-aggregated.tcl	29 Aug 2005 22:47:58 -0000	1.1
@@ -0,0 +1,81 @@
+set required_param_list [list attr_id search_id]
+set optional_param_list [list base_url]
+set optional_unset_list [list]
+
+foreach required_param $required_param_list {
+    if { ![info exist $required_param] } {
+	ad_return_complaint 1 "Parameter $required_param is required"
+    }
+}
+
+foreach optional_param $optional_param_list {
+    if { ![exists_and_not_null ${optional_param}] } {
+	set $optional_param ""
+    }
+}
+
+foreach unset_param $optional_unset_list {
+    if { ![exists_and_not_null ${optional_param}] } {
+	unset $unset_param
+    }
+}
+
+# Get the search message
+set message [contact::search_pretty -search_id $search_id]
+
+# Get the attribute name and the options for that attribute
+set attr_name [attribute::pretty_name -attribute_id $attr_id]
+
+# Get the search_clasue used in the advanced search
+set search_clause [contact::search_clause -and \
+		      -search_id $search_id \
+		      -query "" \
+		       -party_id "parties.party_id" \
+		      -revision_id "revision_id"]
+
+template::list::create  \
+    -name "contacts" \
+    -multirow contacts \
+    -row_pretty_plural "" \
+    -actions "" \
+    -bulk_actions "" \
+    -elements {
+	option {
+	    label "<b>$attr_name</b>"
+	}
+	result {
+	    display_template {
+		@contacts.result@
+	    }
+	}
+    }
+
+db_multirow -extend { result } contacts get_attribute_options { } {
+    # We get the value_id here and not in the options query since
+    # the value_id is only present when one attribute is associated
+    # to one option, and we want to see every option.
+
+    set value_id [db_string get_value_id { } -default 0]
+    set result [db_string get_results " " -default 0]
+}
+
+
+
+set select_options [list]
+
+foreach option [contacts::attribute::options_attribute] {
+    lappend select_options [list [lang::util::localize [lindex $option 0]] [lindex $option 1]]
+}
+
+ad_form -name aggregate -form {
+    {search_id:integer(hidden)
+	{value $search_id}
+    }
+    {aggregate_attribute_id:integer(select)
+	{label "[_ contacts.Aggregate_by]" }
+	{value $attr_id}
+	{options $select_options}
+    }
+}
+
+
Index: openacs-4/packages/contacts/lib/contacts-aggregated.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts-aggregated.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/contacts-aggregated.xql	29 Aug 2005 22:47:58 -0000	1.1
@@ -0,0 +1,61 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="get_attribute_options">
+    <querytext>
+	select 
+                ot.option_id,
+		ot.option 
+	from 
+		ams_option_types ot
+	where 
+		ot.attribute_id = :attr_id
+    </querytext>
+</fullquery>
+
+<fullquery name="get_value_id">
+    <querytext>
+	select 
+		value_id 
+	from
+		ams_options 
+	where 
+		option_id = :option_id
+    </querytext>
+</fullquery>
+
+<fullquery name="get_results">
+    <querytext>
+    select 
+         count(parties.party_id)
+    from 
+         parties
+    where parties.party_id in (
+          select 	
+		parties.party_id
+	  from 
+                parties
+                left join organizations on (parties.party_id = organizations.organization_id)
+                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 ), 
+                group_distinct_member_map
+                where parties.party_id = group_distinct_member_map.member_id
+                $search_clause
+          ) 
+          and parties.party_id in (
+          select
+               distinct
+               p.party_id
+          from
+              ams_attribute_values a,
+              cr_items i,
+              parties p
+          where
+              a.object_id = i.latest_revision and
+              i.item_id = p.party_id
+              and a.value_id = $value_id )
+    </querytext>
+</fullquery>
+
+
+</queryset>