Index: openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl	17 May 2004 15:14:53 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl	10 Jan 2007 21:22:09 -0000	1.4
@@ -29,7 +29,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]]
@@ -55,12 +55,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
     }