Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	25 Jul 2007 23:59:24 -0000	1.17
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	29 Jul 2007 11:49:55 -0000	1.18
@@ -19,14 +19,15 @@
     {entry_label "Postings"}
     {exclude_item_ids 0}
     {summary false}
+    {summary_chars 150}
     {entry_renderer ::xowiki::Weblog::Entry}
     {entry_flag}
   }
   
   ::xowiki::Weblog instproc init {} {
     my instvar filter_msg package_id nr_items next_page_link prev_page_link
     my instvar date category_id tag ptag page_number page_size summary items 
-    my instvar name_filter entry_label entries_of sort_composite
+    my instvar name_filter entry_label entries_of sort_composite summary_chars
     
     my log "--W starting"
     set folder_id [::$package_id set folder_id]
@@ -139,7 +140,7 @@
                    -name $name -title $title -creator $creator]
         $p set creation_user $creation_user
         $p set description [expr {$description eq "" && $body ne ""? \
-                                      "[string range $body 0 150]..." : $description}]
+                                      "[string range $body 0 $summary_chars]..." : $description}]
         $p set instance_attributes $instance_attributes
       } else {
         # do full instantiation and rendering