Index: openacs-4/packages/bug-tracker/www/bug.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.adp,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/bug.adp	3 May 2002 16:29:59 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/bug.adp	29 Aug 2002 13:28:36 -0000	1.2
@@ -17,4 +17,15 @@
   </blockquote>
 </if>
 
+<if @mode@ eq "view">
+  <div style="font-size: 75%;" align="right">
+    <if @user_agent_p@ false>
+      (<a href="@show_user_agent_url@">show user agent</a>)
+    </if>
+    <else>
+      (<a href="@hide_user_agent_url@">hide user agent</a>)
+    </else>
+  </div>
+</if>
+
 <p>
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.7 -r1.8
--- openacs-4/packages/bug-tracker/www/bug.tcl	29 Aug 2002 11:31:49 -0000	1.7
+++ openacs-4/packages/bug-tracker/www/bug.tcl	29 Aug 2002 13:28:36 -0000	1.8
@@ -13,6 +13,7 @@
     reopen:optional
     cancel:optional
     close:optional
+    {user_agent_p:boolean 0}
 }
 
 set return_url "bug?[export_vars -url { bug_number }]"
@@ -151,10 +152,12 @@
         -options [bug_tracker::version_get_options -include_unknown] \
         -optional
 
-element create bug user_agent \
-        -datatype text \
-        -widget inform \
-        -label "User Agent"
+if { $user_agent_p } {
+    element create bug user_agent \
+            -datatype text \
+            -widget inform \
+            -label "User Agent"
+}
 
 element create bug assignee \
         -datatype integer \
@@ -215,6 +218,9 @@
 # If nothing else ...
 set page_title "Bug #$bug_number"
 
+set show_user_agent_url "bug?[export_vars { bug_number { user_agent_p 1 }}]"
+set hide_user_agent_url "bug?[export_vars { bug_number }]"
+
 if { [form is_request bug] } {
     
     db_1row bug {
@@ -307,8 +313,10 @@
             -value [ad_decode [info exists field_editable_p(priority)] 1 $bug(priority) $bug(priority_pretty)]
     element set_properties bug found_in_version \
             -value [ad_decode [info exists field_editable_p(found_in_version)] 1 $bug(found_in_version) $bug(found_in_version_name)]
-    element set_properties bug user_agent \
-            -value $bug(user_agent)
+    if { $user_agent_p } {
+        element set_properties bug user_agent \
+                -value $bug(user_agent)
+    }
     element set_properties bug fix_for_version \
             -value [ad_decode [info exists field_editable_p(fix_for_version)] 1 $bug(fix_for_version) $bug(fix_for_version_name)]
     element set_properties bug fixed_in_version \