Index: openacs-4/packages/news-aggregator/www/subscriptions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscriptions.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	20 Mar 2004 11:12:29 -0000	1.3
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	20 Mar 2004 14:51:53 -0000	1.4
@@ -121,9 +121,6 @@
 set package_url [ad_conn package_url]
 
 db_multirow -extend {xml_graphics_url} sources sources {} {
-    if { [exists_and_not_null new_source_id] && $source_id == $new_source_id } {
-        set new_source_title $title
-    }
     set xml_graphics_url "${package_url}graphics/xml.gif"
 }
 
@@ -143,13 +140,13 @@
         { You must specify a URL }
     }
 } -new_data {
-    set new_source_id [news_aggregator::source::new \
+    array set channel [news_aggregator::source::new \
                            -feed_url $feed_url \
                            -aggregator_id $aggregator_id \
                            -user_id $user_id \
-                           -package_id $package_id]
-
- 
-    ad_returnredirect [export_vars -base subscriptions {new_source_id}]
+                           -package_id $package_id \
+			   -array]
+    set title $channel(title)
+    ad_returnredirect -message "You have been subscribed to $title." subscriptions
     ad_script_abort
 }