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 -N -r1.166 -r1.167
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	15 Aug 2002 20:39:35 -0000	1.166
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	15 Aug 2002 20:47:15 -0000	1.167
@@ -745,7 +745,7 @@
     }
 
     ad_proc -public add_user_to_community {
-        {-rel_type ""}
+        {-rel_type dotlrn_member_rel}
         {-community_id:required}
         {-user_id:required}
         {-member_state approved}
@@ -759,10 +759,6 @@
             return
         }
 
-        if {[empty_string_p $rel_type]} {
-            set rel_type dotlrn_member_rel
-        }
-
         db_transaction {
             # Create the form
             if {[empty_string_p $extra_vars]} {
@@ -791,7 +787,7 @@
                 }
             }
 
-            if {[string equal $member_state approved] == 1} {
+            if {[string equal $member_state approved]} {
                 membership_approve -user_id $user_id -community_id $community_id
             }
         }