Index: openacs-4/packages/contacts/www/admin/search-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/search-list.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/www/admin/search-list.tcl	18 Nov 2005 17:48:27 -0000	1.4
+++ openacs-4/packages/contacts/www/admin/search-list.tcl	25 Nov 2005 18:12:21 -0000	1.5
@@ -35,8 +35,9 @@
     -elements {
         title {
 	    label {[_ contacts.Title]}
-	    display_col title
-            link_url_eval "../search?search_id=$search_id"
+	    display_template {
+                <a href="@searches.search_link@">@searches.title@</a>
+            }
 	}
 	owner {
 	    label {[_ contacts.Owner]}
@@ -94,7 +95,15 @@
 set search_ids [list]
 set admin_p [permission::permission_p -object_id $package_id -privilege "admin"]
 
-db_multirow -extend {query search_url make_public_url delete_url copy_url results owner} -unclobber searches select_searches {} {
+db_multirow -extend {query search_url make_public_url delete_url copy_url results owner search_link} -unclobber searches select_searches {} {
+
+    set aggregated_attribute [db_string get_saved_p { } -default ""]
+    if { [exists_and_not_null aggregated_attribute] } {
+        set search_link ".?search_id=$search_id&aggregate_attribute_id=$aggregated_attribute"
+    } else {
+	set search_link "search?search_id=$search_id"
+    }
+
     set search_url [export_vars -base ../ -url {search_id}]
     set owner [contact::name -party_id $search_owner_id]
     if { [empty_string_p $owner] } {