Index: openacs-4/packages/news/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news/www/index.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/news/www/index.tcl	15 Oct 2001 13:41:03 -0000	1.2
@@ -48,9 +48,7 @@
 if { [string equal "live" $view] } {
 
     set title "News"
-    set view_clause "
-    publish_date < sysdate 
-    and (archive_date is null or archive_date > sysdate)"
+    set view_clause [db_map view_clause_live]
 
     if { [db_string archived_p "
     select decode(count(*),0,0,1) 
@@ -66,9 +64,7 @@
 } else {
     
     set title "News Archive"
-    set view_clause "
-    publish_date < sysdate
-    and archive_date < sysdate"
+    set view_clause [db_map view_clause_archived]
 
     if { [db_string live_p "
     select decode(count(*),0,0,1)