Index: openacs-4/packages/news-aggregator/www/aggregator.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/aggregator.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news-aggregator/www/aggregator.tcl	20 Mar 2004 11:04:39 -0000	1.1
+++ openacs-4/packages/news-aggregator/www/aggregator.tcl	17 May 2004 13:27:50 -0000	1.2
@@ -7,6 +7,15 @@
     {return_url ""}
 }
 
+set package_id [ad_conn package_id]
+
+if { ![parameter::get -package_id -$package_id -parameter PerUserAggregatorsP -default 0] } {
+    # May this user create her own aggregator?
+    permission::require_permission \
+	-object_id $package_id \
+	-privilege write
+}
+
 set page_title "Create aggregator"
 set context [list $page_title]