Index: openacs-4/packages/news-portlet/www/news-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/news-portlet.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/news-portlet/www/news-portlet.tcl	6 Apr 2002 18:00:06 -0000	1.10
+++ openacs-4/packages/news-portlet/www/news-portlet.tcl	6 Apr 2002 18:08:55 -0000	1.11
@@ -29,5 +29,6 @@
 
 # Should be a list already! XXX rename me!
 set list_of_instance_ids $config(community_id)
+set one_instance_p [ad_decode [llength $list_of_instance_ids] 1 1 0]
 
 db_multirow news_items select_news_items {}