Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.168 -r1.169
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl 30 Aug 2002 15:13:22 -0000 1.168
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 10 Oct 2002 06:07:25 -0000 1.169
@@ -713,7 +713,7 @@
}
ad_proc -public add_user {
- {-rel_type ""}
+ {-rel_type dotlrn_member_rel}
{-member_state approved}
community_id
user_id
@@ -1189,7 +1189,7 @@
append chunk ">Request Membership\n"
} else {
- append chunk "\n"
+ append chunk "Join\n"
}
append chunk " \]\n"