Index: openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl	13 Jan 2005 13:57:31 -0000	1.3
+++ openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl	26 Feb 2007 19:52:15 -0000	1.4
@@ -28,7 +28,7 @@
 ad_proc -public dotlrn_news_aggregator::get_pretty_name {} {
     returns the pretty name
 } {
-    return "News Aggregator"
+    return "#news-aggregator-portlet.pretty_name#"
 }
 
 ad_proc -public dotlrn_news_aggregator::add_applet {} {
@@ -49,7 +49,7 @@
     Add the news-aggregator applet to a specifc dotlrn community
 } {
     set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
-
+    
     # create the news-aggregator package instance (all in one, I've mounted it)
     set package_id [dotlrn::instantiate_and_mount $community_id [package_key]]
 
@@ -66,6 +66,25 @@
     ns_set put $args package_id $package_id
     add_portlet_helper $portal_id $args
 
+    #create a aggregator to avoid the "no aggregator"-error
+    #begin
+    set package_name [apm_instance_name_from_id [ad_conn package_id]]
+    set aggregator_name "${package_name} - #news-aggregator.pretty_name#"
+    set user_id [ad_conn user_id]
+    set aggregator_id [news_aggregator::aggregator::new \
+                                -aggregator_name $aggregator_name \
+                                -package_id $package_id \
+                                -public_p 0 \
+                                -creation_user $user_id \
+                           -creation_ip [ad_conn peeraddr]]
+        news_aggregator::aggregator::set_user_default -user_id $user_id \
+            -package_id $package_id -aggregator_id $aggregator_id
+        #load preinstalled subscriptions into aggregator
+        news_aggregator::aggregator::load_preinstalled_subscriptions \
+            -aggregator_id $aggregator_id \
+            -package_id $package_id
+    #end
+
     return $package_id
 }