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.5 -r1.6
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	20 Mar 2004 14:55:49 -0000	1.5
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	31 May 2004 13:57:01 -0000	1.6
@@ -58,7 +58,7 @@
     Unsubscribe subscriptions Unsubscribe
 }
 
-if { $aggregator_count  > 1 } {
+if { $aggregator_count > 1 } {
     # user has more than 1 aggregator, let's present our fancy move and copy features
     if { $aggregator_count > 2 } {
         set title "another aggregator"
@@ -149,12 +149,17 @@
         { You must specify a URL }
     }
 } -new_data {
-    array set channel [news_aggregator::source::new \
+    set channel_array [news_aggregator::source::new \
                            -feed_url $feed_url \
                            -aggregator_id $aggregator_id \
                            -user_id $user_id \
                            -package_id $package_id \
 			   -array]
+    if { $channel_array eq "0" } {
+        ad_returnredirect -message "The feed $feed_url has an error."
+        ad_script_abort
+    }
+    array set channel $channel_array
     set title $channel(title)
     ad_returnredirect -message "You have been subscribed to $title." subscriptions
     ad_script_abort