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.6 -r1.7
--- openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	20 Mar 2001 06:02:57 -0000	1.6
+++ openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	21 Mar 2001 05:46:40 -0000	1.7
@@ -163,7 +163,7 @@
   delete from group_element_index
   where rel_id = old.rel_id;
 
-  return new;
+  return old;
 
 end;' language 'plpgsql';
 
@@ -253,7 +253,7 @@
 
   end loop;
 
-  return new;
+  return old;
 
 end;' language 'plpgsql';
 
@@ -787,10 +787,7 @@
                  from rel_segments 
                 where group_id = delete__group_id 
    LOOP
-      raise notice '' rel_segment_delete %'', row.package_name;
-
        PERFORM rel_segment__delete(row.segment_id);
-
    end loop;
 
    -- Delete all the relations of any type to this group
@@ -800,7 +797,6 @@
                   and (r.object_id_one = delete__group_id
                        or r.object_id_two = delete__group_id) 
    LOOP
-      raise notice '' delete %'', row.package_name;
       execute ''select '' ||  row.package_name || ''__delete('' || row.rel_id || '')'';
    end loop;