Index: openacs-4/packages/bug-tracker/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/bug-tracker/www/index.tcl	29 Aug 2002 15:15:12 -0000	1.5
+++ openacs-4/packages/bug-tracker/www/index.tcl	8 Sep 2002 18:02:17 -0000	1.6
@@ -113,6 +113,8 @@
     }
 }
 
+set truncate_len [ad_parameter "TruncateDescriptionLength" -default 200]
+
 db_multirow -extend { description_short submitter_url status_pretty resolution_pretty bug_type_pretty original_esimate_pretty latest_estimate_pretty elapsed_time_pretty assignee_url bug_url } bugs bugs "
     select b.bug_id,
            b.bug_number,
@@ -170,7 +172,7 @@
     [ad_decode $where_clauses "" "" "and [join $where_clauses " and "]"]
     order  by $order_by_clause
 " {
-    set description_short [bug_tracker::string_truncate [bug_tracker::bug_convert_comment_to_text -comment $description -format $desc_format]]
+    set description_short [string_truncate -len $truncate_len [bug_tracker::bug_convert_comment_to_text -comment $description -format $desc_format]]
     set submitter_url [acs_community_member_url -user_id $submitter_user_id]
     set status_pretty [bug_tracker::status_pretty $status]
     set resolution_pretty [bug_tracker::resolution_pretty $resolution]