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