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]