Index: openacs-4/packages/lars-blogger/lars-blogger.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lars-blogger.info,v diff -u -r1.25.2.5 -r1.25.2.6 --- openacs-4/packages/lars-blogger/lars-blogger.info 8 Dec 2003 15:11:43 -0000 1.25.2.5 +++ openacs-4/packages/lars-blogger/lars-blogger.info 11 Feb 2004 11:02:14 -0000 1.25.2.6 @@ -7,16 +7,16 @@ f f - + Lars Pind - Simon Carstensen Individual or collaborative web logs. - 2003-11-10 + 2004-02-11 Collaboraid - Weblog creation and management with notifications, RSS, archives, draft and published entries, includable templates for presenting on other pages, and permissioning for multiple users. + Weblog creation and management with notifications, RSS, trackpack, technorati, blogroll, pings, archives, draft and published entries, includable templates for presenting on other pages, and permissioning for multiple users. - + + @@ -26,23 +26,25 @@ + + + + - - - - - - + + + + Index: openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.8.9-0.9.0.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.8.9-0.9.0.sql,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.8.9-0.9.0.sql 4 Feb 2004 09:44:12 -0000 1.1.2.2 +++ openacs-4/packages/lars-blogger/sql/postgresql/upgrade/upgrade-0.8.9-0.9.0.sql 11 Feb 2004 11:02:16 -0000 1.1.2.3 @@ -177,3 +177,8 @@ description = 'What name should we advertise the RSS feed under, relative to the blog mount point. Leave blank if no RSS feed.', default_value = 'rss.xml' where parameter_name = 'rss_file_url'; + + +-- missing: create weblogger_channels + + Index: openacs-4/packages/lars-blogger/tcl/rss-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs.tcl,v diff -u -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/lars-blogger/tcl/rss-procs.tcl 24 Nov 2003 13:32:15 -0000 1.8.2.1 +++ openacs-4/packages/lars-blogger/tcl/rss-procs.tcl 11 Feb 2004 11:02:16 -0000 1.8.2.2 @@ -83,16 +83,20 @@ set statement "user_blog_rss_items" } + set rss_max_description_length [parameter::get -parameter rss_max_description_length -package_id $package_id -default 0] + if { [empty_string_p $rss_max_description_length] } { + set rss_max_description_length 0 + } + db_foreach $statement {} { set entry_url [export_vars -base "[ad_url]${package_url}one-entry" { entry_id }] set content [ns_adp_parse -string $content] regsub -all {<[^>]*>} $content {} content_as_text - set truncate_len 100 - if { [string length $content_as_text] > $truncate_len } { - set description "[string range $content_as_text 0 [expr {$truncate_len-3}]]..." + if { $rss_max_description_length > 0 && [string length $content_as_text] > $rss_max_description_length } { + set description "[string range $content_as_text 0 [expr {$rss_max_description_length-3}]]..." } else { set description $content_as_text } Index: openacs-4/packages/lars-blogger/www/blog.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.tcl,v diff -u -r1.16.2.1 -r1.16.2.2 --- openacs-4/packages/lars-blogger/www/blog.tcl 5 Feb 2004 17:46:10 -0000 1.16.2.1 +++ openacs-4/packages/lars-blogger/www/blog.tcl 11 Feb 2004 11:02:17 -0000 1.16.2.2 @@ -58,7 +58,10 @@ } if { ![exists_and_not_null max_content_length] } { - set max_content_length 0 + set max_content_length [parameter::get \ + -package_id $package_id \ + -parameter max_content_length \ + -default 0] }