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 # } }