Index: openacs-4/packages/acs-admin/www/auth/batch-job.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-admin/www/auth/batch-job.tcl	29 Oct 2003 13:29:22 -0000	1.10
+++ openacs-4/packages/acs-admin/www/auth/batch-job.tcl	10 Jan 2007 21:22:00 -0000	1.11
@@ -72,7 +72,7 @@
             # Make certain columns pretty for display
             if { [regexp {_p$} $element_name] } {
                 set $element_name [ad_decode $batch_job($element_name) "t" "Yes" "No"]
-            } elseif { [string equal $element_name "creation_user"] && ![empty_string_p $batch_job($element_name)] } {
+            } elseif { $element_name eq "creation_user" && $batch_job($element_name) ne "" } {
                 set $element_name [acs_community_member_link -user_id $batch_job($element_name)]
             } else {
                 set $element_name [ad_quotehtml $batch_job($element_name)]
@@ -153,7 +153,7 @@
     set entry_url [export_vars -base batch-action { entry_id }]
     
     # Use message and element_messages to display one short message in the table
-    if { ![empty_string_p $message] } {
+    if { $message ne "" } {
         set short_message $message
     } elseif { [llength $element_messages] == 2 } {
         # Only one element message - use it
@@ -166,7 +166,7 @@
     }
     set short_message [string_truncate -len 75 -- $short_message]
 
-    if { $user_exists_p && ![empty_string_p $user_id]  } {
+    if { $user_exists_p && $user_id ne ""  } {
         set user_url [acs_community_member_admin_url -user_id $user_id]
     } else {
         set user_url {}