Index: openacs-4/packages/general-comments/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/general-comments/www/index.tcl	20 Apr 2001 20:51:11 -0000	1.1
+++ openacs-4/packages/general-comments/www/index.tcl	14 Jun 2001 19:52:22 -0000	1.2
@@ -4,6 +4,7 @@
     General comments main page
     
     @author Phong Nguyen (phong@arsdigita.com)
+    @author Pascal Scheffers (pascal@scheffers.net)
     @creation-date 2000-10-12
     @cvs-id $Id$
 } { 
@@ -29,15 +30,15 @@
 # dimensional slider definition
 set dimensional {
     {approval "Status" any {
-        {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" 1m {
-        {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]