Index: openacs-4/packages/acs-admin/www/users/complex-search-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/complex-search-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/complex-search-oracle.xql 12 May 2001 05:07:52 -0000 1.1
@@ -0,0 +1,37 @@
+
+
+ oracle8.1.6
+
+
+
+
+ creation_date < sysdate - :registration_before_days
+
+
+
+
+
+
+
+ creation_date >= sysdate - :registration_after_days
+
+
+
+
+
+
+
+ last_visit < sysdate - :last_visit_before_days
+
+
+
+
+
+
+
+ last_visit >= sysdate - :last_visit_after_days
+
+
+
+
+
Index: openacs-4/packages/acs-admin/www/users/complex-search-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/complex-search-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/complex-search-postgresql.xql 12 May 2001 05:07:52 -0000 1.1
@@ -0,0 +1,37 @@
+
+
+ postgresql7.1
+
+
+
+
+ creation_date < now() - (:registration_before_days || ' days')::interval
+
+
+
+
+
+
+
+ creation_date >= now() - (:registration_after_days || ' days')::interval
+
+
+
+
+
+
+
+ last_visit < now() - (:last_visit_before_days || ' days')::interval
+
+
+
+
+
+
+
+ last_visit >= now() - (:last_visit_after_days || ' days')::interval
+
+
+
+
+
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 ""