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.4 -r1.5
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	20 Mar 2004 14:51:53 -0000	1.4
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	20 Mar 2004 14:55:49 -0000	1.5
@@ -36,11 +36,20 @@
     #ad_script_abort
 
 if { [exists_and_not_null source_id] } {
+    set delete_count 0
     foreach delete_id $source_id {
         news_aggregator::subscription::delete \
             -source_id $delete_id \
             -aggregator_id $aggregator_id
+	incr delete_count
     }
+    if { $delete_count > 1 } {
+	set message "You have been unsubscribed from $delete_count sources."
+    } else {
+	set message "You have been unsubscribed from one source."
+    }
+    ad_returnredirect -message $message "${package_url}$aggregator_id"
+    ad_script_abort
 }
 
 set aggregator_count [db_string count_aggregators {}]