Index: openacs.org-dev/www/templates/homepage-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/homepage-index.tcl,v
diff -u -r1.5 -r1.6
--- openacs.org-dev/www/templates/homepage-index.tcl	30 Jul 2002 20:10:01 -0000	1.5
+++ openacs.org-dev/www/templates/homepage-index.tcl	2 Aug 2002 09:09:25 -0000	1.6
@@ -22,17 +22,32 @@
 }
 
 ## config for the three call-out boxes
-set n_news_items 2
+set n_news_items 5
 set n_feature_items 3
 set n_forum_posts 5
 set max_post_age_days 14
 
+
+set news_limit [expr $n_news_items + 1]
 set forum_limit [expr $n_forum_posts + 1]
 
 etp::get_page_attributes
 
 #set user_id [ad_conn user_id]
 
+set view_clause [db_map view_clause_live]
+
+db_multirow news_items news_items_select "
+select item_id,
+       publish_title,
+       pretty_publish_date
+from   news_items_approved
+where  $view_clause
+and    package_id = 43787
+order  by publish_date desc, item_id desc
+"
+
+
 # This query gets all messages less than max_post_age_days old
 # from forums the user has permission to access.
 # Added sent_date_no_time so the order sorts properly within
@@ -118,7 +133,6 @@
 # in the adp to present a "more..." link if appropriate
 # (maxrows without limiting the query could be performance killer)
 
-#set news_limit [expr $n_news_items + 1]
 set feature_limit [expr $n_feature_items + 1]
 
 # speaking of performance, when this is live these