Index: openacs-4/packages/dotlrn-ecommerce/www/application-bulk-reject.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-bulk-reject.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/application-bulk-reject.tcl	23 Jan 2006 08:04:42 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/application-bulk-reject.tcl	2 Sep 2008 21:48:33 -0000	1.3
@@ -134,8 +134,11 @@
 	    and r.community_id = :filter_community_id
 	}] {
 
-            dotlrn_community::membership_reject -community_id $community_id -user_id $user_id
+#            dotlrn_community::membership_reject -community_id $community_id -user_id $user_id
+	    set rel_id [relation::get_id -object_id_one $community_id -object_id_two $user_id -rel_type "dotlrn_member_rel"]
+	    membership_rel::reject -rel_id $rel_id
 
+
 	    if {$email_reg_info_to == "participant"} {
 		set email_user_id $user_id
 	    }  else {