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 -N -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	4 Jan 2006 05:26:29 -0000	1.7.2.2
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	4 Jan 2006 16:50:30 -0000	1.7.2.3
@@ -53,7 +53,11 @@
     ad_script_abort
 }
 
-set aggregator_count [db_string count_aggregators {}]
+# find aggregators user has write privs on
+set aggregator_count 0
+db_foreach count_aggregators {} {
+    if { $write_p eq "t" } { incr aggregator_count }	
+}
 
 set bulk_actions {
     Unsubscribe subscriptions Unsubscribe