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 -N -r1.16 -r1.17
--- openacs-4/packages/news-portlet/www/news-portlet.tcl	23 Oct 2003 09:19:34 -0000	1.16
+++ openacs-4/packages/news-portlet/www/news-portlet.tcl	13 Jan 2005 13:58:31 -0000	1.17
@@ -27,6 +27,14 @@
 array set config $cf	
 set shaded_p $config(shaded_p)
 
+set news_url [ad_conn package_url]
+set comm_id [dotlrn_community::get_community_id_from_url -url $news_url]
+if {[exists_and_not_null comm_id]} {
+    set inside_comm_p 1
+} else {
+    set inside_comm_p 0
+}
+
 # Should be a list already! XXX rename me!
 set list_of_package_ids $config(package_id)
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]