Index: openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl	15 Mar 2004 11:12:11 -0000	1.4
+++ openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl	10 Jan 2007 21:22:00 -0000	1.5
@@ -25,7 +25,7 @@
 while {[regexp {(.[^\n]+)} $userlist match_fodder row] } {
     # remove each row as it's handled
     set remove_count [string length $row]
-    set userlist [string range $userlist [expr $remove_count + 1] end]
+    set userlist [string range $userlist [expr {$remove_count + 1}] end]
     set row [split $row ,]
     set email [string trim [lindex $row 0]]
     set first_names [string trim [lindex $row 1]]
@@ -44,12 +44,12 @@
 	}
     }
     
-    if {![info exists first_names] || [empty_string_p $first_names]} {
+    if {![info exists first_names] || $first_names eq ""} {
 	append exception_text "<li> No first name in ($row)</li>\n"
 	continue
     }
     
-    if {![info exists last_name] || [empty_string_p $last_name]} {
+    if {![info exists last_name] || $last_name eq ""} {
 	append exception_text "<li> No last name in ($row)</li>\n"
 	continue
     }