Index: openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl	16 Dec 2019 17:14:38 -0000	1.9.2.1
+++ openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl	22 Jul 2020 12:48:20 -0000	1.9.2.2
@@ -23,13 +23,13 @@
     @cvs-id $Id$
 } -query {
     source_community_id:integer
-    referer 
+    referer
 } -properties {
     context_bar:onevalue
 }
 
 #Pages in this directory are only runnable by dotlrn-wide admins.
-dotlrn::require_admin 
+dotlrn::require_admin
 
 set community_name [db_string select_community_info {}]
 set users [dotlrn_community::list_users $source_community_id]
@@ -80,8 +80,8 @@
     if {$community_id ne ""} {
         db_transaction {
             foreach user $users {
-		set user_id [ns_set get $user user_id]
-		if {![dotlrn_community::member_p $community_id $user_id]} {
+                set user_id [ns_set get $user user_id]
+                if {![dotlrn_community::member_p $community_id $user_id]} {
                     # now we know user isn't an approved member of the new community
                     if {![dotlrn_community::member_pending_p -community_id $community_id -user_id $user_id]} {
 
@@ -105,7 +105,7 @@
                         # they are already there and awaiting approval, so just approve them.
                         dotlrn_community::membership_approve -user_id $user_id -community_id $community_id
                     }
-		}
+                }
             }
         }
     }