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.17 -r1.18
--- openacs-4/packages/bug-tracker/www/bug.tcl	13 Jan 2003 15:26:29 -0000	1.17
+++ openacs-4/packages/bug-tracker/www/bug.tcl	21 Jan 2003 09:32:41 -0000	1.18
@@ -416,7 +416,7 @@
     }
 
     # Patches
-    set bug(patches_display) "[bug_tracker::get_patch_links -bug_id $bug(bug_id) -show_patch_status $show_patch_status] &nbsp; \[ <a href=\"patch-add?bug_number=$bug(bug_number)\">Upload a patch</a> \]"
+    set bug(patches_display) "[bug_tracker::get_patch_links -bug_id $bug(bug_id) -show_patch_status $show_patch_status] &nbsp; \[ <a href=\"patch-add?[export_vars { { bug_number $bug(bug_number) } { component_id $bug(component_id) } }]\">Upload a patch</a> \]"
 
     # Hide elements that should be hidden depending on the bug status
     foreach element $workflow_hide_fields(${bug(status)}) {
@@ -533,4 +533,3 @@
 }
 
 ad_return_template
-