Index: openacs-4/packages/general-comments/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/general-comments/www/admin/index.tcl 20 Apr 2001 20:51:11 -0000 1.1
+++ openacs-4/packages/general-comments/www/admin/index.tcl 14 Jun 2001 19:52:22 -0000 1.2
@@ -4,6 +4,7 @@
General comments administration main page
@author Phong Nguyen (phong@arsdigita.com)
+ @author Pascal Scheffers (pascal@scheffers.net)
@creation-date 2000-10-12
@cvs-id $Id$
} {
@@ -22,15 +23,15 @@
# dimensional slider definition
set dimensional {
{approval "Status" unapproved {
- {approved "approved" {where "i.live_revision is not null"} }
- {unapproved "unapproved" {where "i.live_revision is null"} }
+ {approved "approved" {where "[db_map status_approved]"} }
+ {unapproved "unapproved" {where "[db_map status_unapproved]"} }
{any "all" {} }
} }
{modified "Last Modified" any {
- {1d "last 24 hours" {where "creation_date + 1 > sysdate"}}
- {1w "last week" {where "creation_date + 7 > sysdate"}}
- {1m "last month" {where "creation_date + 30 > sysdate"}}
- {any "all" {}}
+ {1d "last 24 hours" {where "[db_map modified_last_24hours]"}}
+ {1w "last week" {where "[db_map modified_last_week]"}}
+ {1m "last month" {where "[db_map modified_last_month]"}}
+ {any "all" {} }
} }
}
set dimensional_bar [ad_dimensional $dimensional]
@@ -77,8 +78,9 @@
# create the table to display the comments
set extra_var_list [list return_url $return_url]
+
set comments_table [ad_table -Torderby $orderby \
- -Tmissing_text {No comments available} \
+ -Tmissing_text {No comments available} \
-Textra_vars $extra_var_list \
comments_select $sql $table_def]