Index: openacs-4/packages/contacts/www/group-party-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-party-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/www/group-party-add.tcl	28 Jun 2005 19:13:26 -0000	1.2
+++ openacs-4/packages/contacts/www/group-party-add.tcl	9 Aug 2005 12:44:19 -0000	1.3
@@ -12,12 +12,15 @@
 
 set party_id [lindex $party_id 0]
 switch [contact::type -party_id $party_id] {
-     person {
-         set rel_type "membership_rel"
-     }
-     organization {
-         set rel_type "organization_rel"
-     }
+    person {
+	set rel_type "membership_rel"
+    }
+    organization {
+	set rel_type "organization_rel"
+    }
+    default {
+	set rel_type "membership_rel"
+    }
 }
 relation_add -member_state "approved" $rel_type $group_id $party_id