Index: openacs-4/packages/dotlrn-admin/www/admin/community-members-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/community-members-add-to-community.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-admin/www/admin/community-members-add-to-community.tcl	20 Aug 2004 14:44:22 -0000	1.1
+++ openacs-4/packages/dotlrn-admin/www/admin/community-members-add-to-community.tcl	28 Jun 2015 12:09:34 -0000	1.2
@@ -75,7 +75,7 @@
     form get_values select_community \
         source_community_id community_id
 
-    if {![empty_string_p $community_id]} {
+    if {$community_id ne ""} {
         db_transaction {
             foreach user $users {
 		set user_id [ns_set get $user user_id]
@@ -112,6 +112,6 @@
     ad_script_abort
 }
 
-set estimated_number_of_seconds [expr [llength $users] * 3]
+set estimated_number_of_seconds [expr {[llength $users] * 3}]
 
 ad_return_template