Index: openacs-4/packages/news-portlet/www/news-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/news-portlet.adp,v
diff -u -r1.11.6.1 -r1.11.6.2
--- openacs-4/packages/news-portlet/www/news-portlet.adp 23 Aug 2004 17:19:29 -0000 1.11.6.1
+++ openacs-4/packages/news-portlet/www/news-portlet.adp 17 Sep 2004 13:32:09 -0000 1.11.6.2
@@ -58,4 +58,5 @@
+
#news-portlet.Add_a_News_Item#
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.16 -r1.16.6.1
--- 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 17 Sep 2004 13:32:09 -0000 1.16.6.1
@@ -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]