Index: openacs-4/packages/acs-admin/www/users/complex-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/complex-search.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-admin/www/users/complex-search.tcl	17 Jul 2003 02:37:03 -0000	1.9
+++ openacs-4/packages/acs-admin/www/users/complex-search.tcl	29 Oct 2003 13:12:14 -0000	1.10
@@ -28,6 +28,7 @@
 
     @author Mark Thomas (mthomas@arsdigita.com)
 } {
+    {authority_id:integer ""}
     {email ""}
     {ip ""}
     {last_name_starts_with ""}
@@ -108,6 +109,12 @@
         "Is a member of '$group_name'"
 }
 
+if { [exists_and_not_null authority_id] } {
+    lappend where_clause "authority_id = :authority_id"
+    incr rowcount
+    set criteria:[set rowcount](data) "Authority is '[auth::authority::get_element -authority_id $authority_id -element pretty_name]'"
+}
+
 if { [exists_and_not_null email] } {
     set sql_email "%[string tolower $email]%"
     lappend where_clause "email like :sql_email"