Index: openacs.org-dev/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/bug-tracker/www/bug.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs.org-dev/packages/bug-tracker/www/bug.tcl	20 Jan 2003 14:08:08 -0000	1.5
+++ openacs.org-dev/packages/bug-tracker/www/bug.tcl	2 Nov 2003 00:08:45 -0000	1.6
@@ -349,6 +349,13 @@
         and    sc.severity_id = b.severity
         and    submitter.user_id = o.creation_user
     } -column_array bug
+
+
+if {[string equal [ad_conn user_id] 0]} {
+    set bug(submitter_email) "[string range $bug(submitter_email) 0 [string first @ $bug(submitter_email)]] ..."
+    set bug(assignee_email) "[string range $bug(assignee_email) 0 [string first @ $bug(assignee_email)]] ..."
+}
+
         
     switch -- $mode {
         resolve {