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.2 -r1.3
--- openacs-4/packages/contacts/www/admin/search-list.tcl	17 Nov 2005 18:22:02 -0000	1.2
+++ openacs-4/packages/contacts/www/admin/search-list.tcl	18 Nov 2005 16:13:10 -0000	1.3
@@ -8,6 +8,7 @@
     orderby:optional
     {owner_id:optional}
     {format "normal"}
+    page:optional
 } -validate {
 }
 
@@ -20,6 +21,9 @@
 template::list::create \
     -name "searches" \
     -key search_id \
+    -page_size 10 \
+    -page_flush_p 0 \
+    -page_query_name select_searches_pagination \
     -multirow "searches" \
     -row_pretty_plural "[_ contacts.searches]" \
     -selected_format $format \
@@ -31,6 +35,7 @@
             link_url_eval "../search?search_id=$search_id"
 	}
 	owner {
+	    label {[_ contacts.Owner]}
 	    display_template {
 		by @searches.owner@
 	    }
@@ -52,6 +57,17 @@
             }
         }
     } -orderby {
+	default_value title
+	title {
+	    label {[_ contacts.Title]}
+	    orderby_desc "order_title desc"
+	    orderby_asc "order_title asc"
+	}
+	owner {
+	    label {[_ contacts.Owner]}
+	    orderby_desc "owner_id desc, order_title asc"
+	    orderby_asc "owner_id asc, order_title asc"
+	}
     } -formats {
 	normal {
 	    label "[_ contacts.Table]"
@@ -76,7 +92,7 @@
 
 db_multirow -extend {query search_url make_public_url delete_url copy_url results owner} -unclobber searches select_searches {} {
     set search_url [export_vars -base ../ -url {search_id}]
-    set owner [contact::name -party_id $owner_id]
+    set owner [contact::name -party_id $search_owner_id]
     if { [empty_string_p $owner] } {
 	set owner "Public"
     }