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 -r1.21 -r1.21.2.1 --- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 24 Feb 2005 13:33:03 -0000 1.21 +++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 26 Aug 2005 13:16:18 -0000 1.21.2.1 @@ -649,13 +649,13 @@ # Build up data structures with the form labels and values # (Note, this is something that the metadata system should be able to do for us) - array set label { - summary "[_ bug-tracker.Summary]" - status "[_ bug-tracker.Status]" - found_in_version "[_ bug-tracker.Found]" - fix_for_version "[_ bug-tracker.Fix]" - fixed_in_version "[_ bug-tracker.Fixed_1]" - } + array set label [list \ + summary "[_ bug-tracker.Summary]" \ + status "[_ bug-tracker.Status]" \ + found_in_version "[_ bug-tracker.Found]" \ + fix_for_version "[_ bug-tracker.Fix]" \ + fixed_in_version "[_ bug-tracker.Fixed_1]" \ + ] set label(bug_number) "$pretty_names(Bug) " set label(component) "$pretty_names(Component)"