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.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/complex-search.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/complex-search.tcl	12 May 2001 05:07:52 -0000	1.2
@@ -128,26 +128,26 @@
 }
 
 if { $registration_before_days >= 0 } {
-    lappend where_clause "creation_date < sysdate - :registration_before_days"
+    lappend where_clause [db_map registration_before_days]
     incr rowcount
     set criteria:[set rowcount](data) \
         "Registered more than past $registration_before_days days ago"
 }
 if { $registration_after_days >= 0 } {
-    lappend where_clause "creation_date >= sysdate - :registration_after_days"
+    lappend where_clause [db_map registration_after_days]
     incr rowcount
     set criteria:[set rowcount](data) \
         "Registered within the past $registration_after_days days"
 }
 
 if { $last_visit_before_days >= 0 } {
-    lappend where_clause "last_visit < sysdate - :last_visit_before_days"
+    lappend where_clause [db_map last_visit_before_days]
     incr rowcount
     set criteria:[set rowcount](data) \
         "Most recent visit was more that $last_visit_before_days days ago"
 }
 if { $last_visit_after_days >= 0 } {
-    lappend where_clause "last_visit >= sysdate - :last_visit_after_days"
+    lappend where_clause [db_map last_visit_after_days]
     incr rowcount
     set criteria:[set rowcount](data) \
         "Visited within the past $last_visit_after_days days"
@@ -166,7 +166,6 @@
         "Has visited at least $number_visits_above times"
 }
 
-
 set criteria:rowcount $rowcount
 
 
@@ -187,8 +186,6 @@
     }
 }
 
-
-
 set i 0
 
 set user_items ""