Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 7 Nov 2003 13:15:49 -0000 1.9 +++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 7 Nov 2003 15:02:59 -0000 1.10 @@ -901,7 +901,6 @@ array set row_category $category_defaults array set row_category_names $category_defaults - db_multirow -extend $extend_list bugs select_bugs [get_query] { # parent_id is part of the column name @@ -917,7 +916,6 @@ set fix_for_version_name [bug_tracker::version_get_name -version_id $fix_for_version] set fixed_in_version_name [bug_tracker::version_get_name -version_id $fixed_in_version] set comment_short [string_truncate -len $truncate_len -format $comment_format -- $comment_content] - set summary [ad_quotehtml $summary] set submitter_url [acs_community_member_url -user_id $submitter_user_id] set resolution_pretty [bug_tracker::resolution_pretty $resolution] @@ -929,11 +927,18 @@ # Move categories from array to normal variables, then clear the array for next row foreach parent_id [array names row_category] { set category_$parent_id $row_category($parent_id) - set category_name_$parent_id $row_category_name($parent_id) + if {[info exists row_category_name($parent_id)]} { + set category_name_$parent_id $row_category_name($parent_id) + } else { + set category_name_$parent_id {} + } } + + unset row_category + unset row_category_name array set row_category $category_defaults - array set row_category_names $category_defaults + array set row_category_name $category_defaults } else { continue }