Index: openacs-4/packages/news-aggregator/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/index.tcl,v
diff -u -r1.9.2.4 -r1.9.2.5
--- openacs-4/packages/news-aggregator/www/index.tcl 29 Dec 2005 22:54:19 -0000 1.9.2.4
+++ openacs-4/packages/news-aggregator/www/index.tcl 1 Jan 2006 19:44:38 -0000 1.9.2.5
@@ -3,6 +3,7 @@
@author Simon Carstensen simon@bcuni.net
@creation-date 28-06-2003
+ @cvs-id $Id$
} {
{ aggregator_id:integer,optional "0" }
{ purge_p:boolean,optional }
@@ -73,6 +74,8 @@
set write_p [permission::permission_p \
-object_id $aggregator_id \
-privilege write]
+set blog_p [expr [llength [news_aggregator::weblog::options \
+ -user_id $user_id]] > 0]
db_1row aggregator_info {}
@@ -199,7 +202,7 @@
# set content "$item_title. $item_author
# $item_description"
# } else {
- set content $item_description
+ set content $item_description
# }
}