Index: openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	12 Jul 2004 14:49:48 -0000	1.29
+++ openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	4 Jun 2006 00:45:38 -0000	1.30
@@ -701,7 +701,19 @@
     return 0; 
 end;' language 'plpgsql';
 
+-- procedure merge
+create or replace function membership_rel__merge (integer)
+returns integer as '
+declare
+  merge__rel_id                alias for $1;  
+begin
+    update membership_rels
+    set member_state = ''merged''
+    where rel_id = merge__rel_id;
 
+    return 0; 
+end;' language 'plpgsql';
+
 -- function check_index
 create or replace function membership_rel__check_index (integer,integer,integer)
 returns boolean as '
