Index: openacs-4/packages/bug-tracker/www/patch.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch.adp,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/bug-tracker/www/patch.adp	2 Jul 2003 19:47:56 -0000	1.1.2.3
+++ openacs-4/packages/bug-tracker/www/patch.adp	29 Jul 2003 02:53:37 -0000	1.1.2.4
@@ -17,8 +17,7 @@
 </if>
 </p>
 
-
-<if @mode@ eq "view">
+<if @mode@ eq "view" and @deleted_p@ eq 0>
 <center>
 <p>
 <a href="patch?patch_number=@patch_number@&download=1">Download patch content</a>
Index: openacs-4/packages/bug-tracker/www/patch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/bug-tracker/www/patch.tcl	18 May 2003 12:16:06 -0000	1.1.2.2
+++ openacs-4/packages/bug-tracker/www/patch.tcl	29 Jul 2003 02:53:37 -0000	1.1.2.3
@@ -154,7 +154,7 @@
         -label    "Patch #"
 
 element create patch component_id \
-        -datatype integer \
+        -datatype text \
         -widget [ad_decode [info exists field_editable_p(component_id)] 1 select inform] \
         -label "Component" \
         -options [bug_tracker::components_get_options]
@@ -311,6 +311,8 @@
     element set_properties patch applied_to_version \
             -value [ad_decode [info exists field_editable_p(applied_to_version)] 1 $patch(applied_to_version) $patch(applied_to_version_name)]
 
+    set deleted_p [string equal $patch(status) deleted]
+
     if { ( [string equal $patch(status) open] && ![string equal $mode "accept"]) || [string equal $patch(status) "refused"] } {
         element set_properties patch applied_to_version -widget hidden
     }