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.8 -r1.9
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	10 Oct 2003 11:42:31 -0000	1.8
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	7 Nov 2003 13:15:49 -0000	1.9
@@ -916,7 +916,7 @@
             set found_in_version_name [bug_tracker::version_get_name -version_id $found_in_version]
             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 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]
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	1 Nov 2003 08:45:37 -0000	1.23
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	7 Nov 2003 13:15:49 -0000	1.24
@@ -1094,7 +1094,7 @@
     db_foreach get_patches_for_bug "" {
         
         set status_indicator [ad_decode $show_patch_status "all" "($status)" ""]
-        lappend patch_list "<a href=\"patch?patch_number=$patch_number\">$summary</a> $status_indicator"
+        lappend patch_list "<a href=\"patch?patch_number=$patch_number\" title=\"patch $patch_number\">[ad_quotehtml $summary]</a> $status_indicator"
     } if_no_rows { 
         set patches_string "No patches." 
     }
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.xql	28 Sep 2003 01:28:18 -0000	1.2
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.xql	7 Nov 2003 13:15:49 -0000	1.3
@@ -109,7 +109,7 @@
        where bt_patch_bug_map.bug_id = :bug_id
          and bt_patch_bug_map.patch_id = bt_patches.patch_id
              $status_where_clause
-    
+       order by bt_patches.summary
       </querytext>
 </fullquery>
 
Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/bug-tracker/www/bug.tcl	13 Oct 2003 19:52:48 -0000	1.24
+++ openacs-4/packages/bug-tracker/www/bug.tcl	7 Nov 2003 13:15:49 -0000	1.25
@@ -28,7 +28,7 @@
 
 set page_title "[bug_tracker::conn Bug] #$bug_number"
 
-set context [list $page_title]
+set context [list [ad_quotehtml $page_title]]
 
 # Is this project using multiple versions?
 set versions_p [bug_tracker::versions_p]
@@ -95,9 +95,12 @@
 
 
 # set patch label
+# JCD: The string map below is to work around a "feature" in the form generation that 
+# lets you use +var+ for a var to eval on the second round.  
+# cf http://openacs.org/bugtracker/openacs/bug?bug%5fnumber=1099
 set patch_label [ad_decode $show_patch_status \
-                     "open" "Open Patches (<a href=\"[export_vars -base [ad_conn url] -entire_form -override { { show_patch_status all } }]\">show all</a>)" \
-                     "all" "All Patches (<a href=\"[export_vars -base [ad_conn url] -entire_form -override { { show_patch_status open } }]\">show only open)" \
+                     "open" "Open Patches (<a href=\"[string map {+ %20} [export_vars -base [ad_conn url] -entire_form -override { { show_patch_status all } }]]\">show all</a>)" \
+                     "all" "All Patches (<a href=\"[string map {+ %20} [export_vars -base [ad_conn url] -entire_form -override { { show_patch_status open } }]]\">show only open)" \
                      "Patches"]
 
 ad_form -name bug -cancel_url $return_url -mode display -has_edit 1 -actions $actions -form  {
@@ -156,6 +159,7 @@
 workflow::case::role::add_assignee_widgets -case_id $case_id -form_name bug
 
 # More fixed form elements
+
 ad_form -extend -name bug -form {
     {patches:text(inform)
 	{label $patch_label}
@@ -341,9 +345,9 @@
     # TODO: Make real
     set filtered_p 1
     if { $filtered_p } {
-        set context [list [list [export_vars -base . -entire_form -exclude { bug_number }] "Filtered [bug_tracker::conn bug] list"] $page_title]
+        set context [list [list [export_vars -base . -entire_form -exclude { bug_number }] "Filtered [bug_tracker::conn bug] list"] [ad_quotehtml $page_title]]
     } else {
-        set context [list $page_title]
+        set context [list [ad_quotehtml $page_title]]
     }
     
     # User agent show/hide URLs