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 -N -r1.10 -r1.11
--- openacs-4/packages/lars-blogger/tcl/rss-procs.tcl	14 Dec 2003 11:10:44 -0000	1.10
+++ openacs-4/packages/lars-blogger/tcl/rss-procs.tcl	27 Feb 2004 18:30:58 -0000	1.11
@@ -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
         }