Index: openacs-4/packages/acs-admin/www/auth/batch-action.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-action.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/auth/batch-action.tcl	17 Oct 2003 11:08:52 -0000	1.4
+++ openacs-4/packages/acs-admin/www/auth/batch-action.tcl	10 Jan 2007 21:22:00 -0000	1.5
@@ -48,11 +48,11 @@
                 # Prettify certain elements
                 if { [regexp {_p$} $element_name] } {
                     set $element_name [ad_decode $batch_action($element_name) "t" "Yes" "No"]
-                } elseif { [string equal $element_name "user_id"] && ![empty_string_p $batch_action($element_name)] } {
+                } elseif { $element_name eq "user_id" && $batch_action($element_name) ne "" } {
                     if { [catch {set $element_name [acs_community_member_link -user_id $batch_action($element_name)]}] } {
                         set $element_name $batch_action($element_name)
                     }
-                } elseif { [string equal $element_name "element_messages"] && ![empty_string_p $batch_action($element_name)] } {
+                } elseif { $element_name eq "element_messages" && $batch_action($element_name) ne "" } {
                     array set messages_array $batch_action($element_name)
                     append $element_name "<ul>"
                     foreach message_name [array names messages_array] {