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.17 -r1.17.2.1
--- openacs-4/packages/news-portlet/www/news-portlet.tcl	13 Jan 2005 13:58:31 -0000	1.17
+++ openacs-4/packages/news-portlet/www/news-portlet.tcl	6 Sep 2005 06:12:37 -0000	1.17.2.1
@@ -39,7 +39,11 @@
 set list_of_package_ids $config(package_id)
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
-db_multirow -extend { publish_date view_url } news_items select_news_items {} {
+db_multirow -extend { publish_date view_url rss_exists rss_url notification_chunk} news_items select_news_items {} {
     set publish_date [lc_time_fmt $publish_date_ansi "%x"]
     set view_url [export_vars -base "${url}item" { item_id }]
-}
+    set rss_exists [rss_support::subscription_exists -summary_context_id $package_id -impl_name news]
+    set rss_url "[news_util_get_url $package_id]rss/rss.xml"
+    # add news email notification
+    set notification_chunk [notification::display::request_widget -type one_news_item_notif -object_id $package_id -pretty_name "News" -url [ad_return_url] ]
+}
\ No newline at end of file