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 -N -r1.12.2.4 -r1.12.2.5
--- openacs-4/packages/bug-tracker/www/bug.tcl	16 Dec 2002 16:25:50 -0000	1.12.2.4
+++ openacs-4/packages/bug-tracker/www/bug.tcl	13 Jan 2003 18:46:27 -0000	1.12.2.5
@@ -372,7 +372,7 @@
     set pretty(severity) $bug(severity_pretty)
     set pretty(priority) $bug(priority_pretty)
     set pretty(found_in_version) $bug(found_in_version_name)
-    set pretty(patches) "[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 pretty(patches) "[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> \]"
     set pretty(user_agent) $bug(user_agent)
     set pretty(fix_for_version) $bug(fix_for_version_name)
     set pretty(fixed_in_version) $bug(fixed_in_version_name)