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 -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/acs-admin/www/users/complex-search.tcl	12 Dec 2002 08:49:40 -0000	1.6.2.1
+++ openacs-4/packages/acs-admin/www/users/complex-search.tcl	17 Dec 2002 14:27:02 -0000	1.6.2.2
@@ -29,6 +29,7 @@
     @author Mark Thomas (mthomas@arsdigita.com)
 } {
     {email ""}
+    {ip ""}
     {last_name_starts_with ""}
     {first_names ""}
     keyword:optional
@@ -114,6 +115,12 @@
     set criteria:[set rowcount](data) "Email contains '$email'"
 }
 
+if { [exists_and_not_null ip] } {
+    lappend where_clause "creation_ip = :ip"
+    incr rowcount
+    set criteria:[set rowcount](data) "Creation IP is $ip"
+}
+
 if { [exists_and_not_null last_name_starts_with] } {
     set sql_last_name_starts_with "[string tolower $last_name_starts_with]%"
     lappend where_clause "lower(last_name) like :sql_last_name_starts_with"