Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	9 Mar 2002 02:00:02 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	16 Mar 2002 01:32:21 -0000	1.8
@@ -155,33 +155,7 @@
             return
         }
 
-        switch -exact $state {
-            "approved" {
-                db_exec_plsql member_approve {
-                    begin membership_rel.approve(rel_id => :rel_id); end;
-                }
-            }
-            "banned" {
-                db_exec_plsql member_ban {
-                    begin membership_rel.ban(rel_id => :rel_id); end;
-                }
-            }
-            "rejected" {
-                db_exec_plsql member_reject {
-                    begin membership_rel.reject(rel_id => :rel_id); end;
-                }
-            }
-            "deleted" {
-                db_exec_plsql member_delete {
-                    begin membership_rel.delete(rel_id => :rel_id); end;
-                }
-            }
-            "needs approval" {
-                db_exec_plsql member_unapprove {
-                    begin membership_rel.unapprove(rel_id => :rel_id); end;
-                }
-            }
-        }
+        membership_rel::change_state -rel_id $rel_id -state $state
     }
 
     ad_proc -public approve {
@@ -191,37 +165,37 @@
     } {
         change_state -user_id $user_id -state "approved"
     }
-        
+
     ad_proc -public ban {
         {-user_id:required}
     } {
         Ban a user
     } {
         change_state -user_id $user_id -state "banned"
     }
-        
+
     ad_proc -public reject {
         {-user_id:required}
     } {
         Reject a user
     } {
         change_state -user_id $user_id -state "rejected"
     }
-        
+
     ad_proc -public delete {
         {-user_id:required}
     } {
         Delete a user
     } {
         change_state -user_id $user_id -state "deleted"
     }
-        
+
     ad_proc -public unapprove {
         {-user_id:required}
     } {
         Unapprove a user
     } {
         change_state -user_id $user_id -state "needs approval"
     }
-        
+
 }