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.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	6 Dec 2001 20:50:51 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	8 Dec 2001 01:22:40 -0000	1.3
@@ -70,4 +70,16 @@
             {member_rel Member}
         }
     }
+
+    ad_proc -public add_user {
+        {-rel_type "dotlrn_member_rel"}
+        {-community_id:required}
+        {-user_id:required}
+    } {
+        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
+        }
+    }
 }