Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/workflow/tcl/case-procs.tcl	9 Oct 2003 08:59:01 -0000	1.13
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	9 Oct 2003 13:37:21 -0000	1.14
@@ -880,7 +880,10 @@
                         -label $cur_assignee(name)] 
                 if { [ad_conn user_id] != 0 } {
                     append display_value " (<a href=\"mailto:$cur_assignee(email)\">$cur_assignee(email)</a>)"
-                }
+                } else {
+		    append display_value " ([string replace $cur_assignee(email) \
+			    [expr [string first "@" $cur_assignee(email)]+3] end "..."])"
+		}
             }
 
             uplevel [list element set_properties $form_name $element -display_value $display_value]