Index: openacs-4/packages/dotlrn/tcl/club-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/club-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	14 Mar 2002 06:47:58 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	16 Mar 2002 02:02:07 -0000	1.9
@@ -83,11 +83,15 @@
         {-rel_type "dotlrn_member_rel"}
         {-community_id:required}
         {-user_id:required}
+        {-member_state "approved"}
     } {
         Assigns a user to a particular role for that club.
     } {
-        db_transaction {
-            dotlrn_community::add_user_to_community -rel_type $rel_type -community_id $community_id -user_id $user_id
-        }
+        dotlrn_community::add_user_to_community \
+            -rel_type $rel_type \
+            -community_id $community_id \
+            -user_id $user_id \
+            -member_state $member_state
     }
+
 }