Index: openacs-4/packages/acs-subsite/www/members/make-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/make-admin.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/members/make-admin.tcl	3 Dec 2003 23:38:27 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/members/make-admin.tcl	5 Dec 2003 00:23:05 -0000	1.4
@@ -10,10 +10,9 @@
 
 db_transaction {
     foreach one_user_id $user_id {
-	group::add_member \
-            -group_id $group_id \
-            -user_id $one_user_id \
-            -rel_type "admin_rel"
+        # membership state stuff should only check the membership_rel at this
+        # point - remember this is going to be made consistent in 5.1
+	relation_add -member_state "" admin_rel $group_id $one_user_id
     }
 } on_error {
     ad_return_error "Error creating the relation" "We got the following error message while trying to create this relation: <pre>$errmsg</pre>"