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.3 -r1.4 --- openacs.org-dev/www/templates/homepage-index.tcl 22 Jul 2002 20:28:25 -0000 1.3 +++ openacs.org-dev/www/templates/homepage-index.tcl 23 Jul 2002 10:16:00 -0000 1.4 @@ -27,13 +27,11 @@ set n_forum_posts 5 set max_post_age_days 14 -#set news_items_limit [expr $n_news_items + 1] -#set feature_items_limit [expr $n_feature_items + 1] -set forum_posts_limit [expr $n_forum_posts + 1] +set forum_limit [expr $n_forum_posts + 1] etp::get_page_attributes -set user_id [ad_conn user_id] +#set user_id [ad_conn user_id] # This query gets all messages less than max_post_age_days old # from forums the user has permission to access. @@ -65,7 +63,7 @@ # and b.forum_id = f.forum_id # and f.bboard_id = 2369 # order by sent_date desc -# limit $forum_posts_limit +# limit $forum_limit #" @@ -103,8 +101,9 @@ and fm.parent_id is null and ff.package_id = 3928 -- and fm.message_id = acs_objects.object_id + and posting_date > now() - $max_post_age_days order by fm.posting_date desc - limit $forum_posts_limit + limit $forum_limit " #Warning! lazy hardcode of package id! @@ -119,7 +118,7 @@ # 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 news_limit [expr $n_news_items + 1] set feature_limit [expr $n_feature_items + 1] # speaking of performance, when this is live these @@ -129,7 +128,7 @@ #etp::get_content_items -where $where -orderby $orderby \ -limit $news_limit \ - -package_id 2494 -result_name news_items \ + -package_id ???? -result_name news_items \ release_date archive_date