Index: openacs-4/packages/dotlrn/www/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/approve.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/approve.tcl	23 Oct 2002 12:38:39 -0000	1.5
+++ openacs-4/packages/dotlrn/www/approve.tcl	13 Jan 2005 13:57:21 -0000	1.6
@@ -21,7 +21,7 @@
     @creation-date 2002-03-15
     @version $Id$
 } -query {
-    {user_id ""}
+    {user_id:multiple ""}
     {community_id ""}
     {referer "./"}
 }
@@ -32,13 +32,15 @@
     set community_id [dotlrn_community::get_community_id]
 }
 
-if {[empty_string_p $user_id]} {
-    set user_id [ad_conn user_id]
-} else {
-    dotlrn::require_user_admin_community -community_id $community_id
+foreach uid $user_id {
+    if {[empty_string_p $uid]} {
+	    set uid [ad_conn user_id]
+    } else {
+	    dotlrn::require_user_admin_community -community_id $community_id
+    }
+    
+    dotlrn_community::membership_approve -community_id $community_id -user_id $uid
 }
 
-dotlrn_community::membership_approve -community_id $community_id -user_id $user_id
-
 ad_returnredirect $referer