Index: openacs-4/packages/acs-subsite/sql/postgresql/application-groups-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/sql/postgresql/application-groups-create.sql,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-subsite/sql/postgresql/application-groups-create.sql	3 Aug 2001 21:08:10 -0000	1.4
+++ openacs-4/packages/acs-subsite/sql/postgresql/application-groups-create.sql	10 Apr 2002 02:26:20 -0000	1.4.2.1
@@ -10,22 +10,6 @@
 -- APPLICATION GROUPS --
 ------------------------
 
--- begin
---         acs_object_type.create_type (
---            supertype => 'group',
---            object_type => 'application_group',
---            pretty_name => 'Application Group',
---            pretty_plural => 'Application Groups',
---            table_name => 'application_groups',
---            id_column => 'group_id',
---            package_name => 'application_group',
---            type_extension_table => 'group_types',
---            name_method => 'acs_group.name'
---         );
--- end;
--- /
--- show errors
-
 select acs_object_type__create_type (
        'application_group',
        'Application Group',
@@ -52,80 +36,6 @@
                                 unique (package_id)
 );
 
-
--- create or replace package application_group
--- is
-
---  function new (
---   group_id              in application_groups.group_id%TYPE default null,
---   object_type           in acs_objects.object_type%TYPE
---                            default 'application_group',
---   creation_date         in acs_objects.creation_date%TYPE
---                            default sysdate,
---   creation_user         in acs_objects.creation_user%TYPE
---                            default null,
---   creation_ip           in acs_objects.creation_ip%TYPE default null,
---   email                 in parties.email%TYPE default null,
---   url                   in parties.url%TYPE default null,
---   group_name            in groups.group_name%TYPE,
---   package_id            in application_groups.package_id%TYPE,
---   context_id	in acs_objects.context_id%TYPE default null
---  ) return application_groups.group_id%TYPE;
-
---  procedure delete (
---    group_id     in application_groups.group_id%TYPE
---  );
-
---  function group_id_from_package_id (
---    package_id    in application_groups.group_id%TYPE,
---    no_complain_p in char default 'f'
---  ) return char;
-
--- end application_group;
--- /
--- show errors
-
-
--- create or replace package body application_group
--- is
-
---  function new (
---   group_id              in application_groups.group_id%TYPE default null,
---   object_type           in acs_objects.object_type%TYPE
---                            default 'application_group',
---   creation_date         in acs_objects.creation_date%TYPE
---                            default sysdate,
---   creation_user         in acs_objects.creation_user%TYPE
---                            default null,
---   creation_ip           in acs_objects.creation_ip%TYPE default null,
---   email                 in parties.email%TYPE default null,
---   url                   in parties.url%TYPE default null,
---   group_name            in groups.group_name%TYPE,
---   package_id            in application_groups.package_id%TYPE,
---   context_id	in acs_objects.context_id%TYPE default null
---  )
---  return application_groups.group_id%TYPE
---  is
---   v_group_id application_groups.group_id%TYPE;
---  begin
---   v_group_id := acs_group.new (
---                group_id => group_id,
---                object_type => object_type,
---                creation_date => creation_date,
---                creation_user => creation_user,
---                creation_ip => creation_ip,
---                email => email,
---                url => url,
---                group_name => group_name,
---                context_id => context_id
---            );
-
---   insert into application_groups (group_id, package_id) 
---     values (v_group_id, package_id);
-
---   return v_group_id;
---  end new;
-
 select define_function_args('application_group__new','group_id,object_type;application_group,creation_date;now(),creation_user,creation_ip,email,url,group_name,package_id,context_id');
 
 create function application_group__new(integer,varchar,timestamp,integer,varchar,varchar,varchar,varchar,integer,integer)
@@ -163,16 +73,6 @@
 
 end;' language 'plpgsql';
 
---  procedure delete (
---     group_id     in application_groups.group_id%TYPE
---  )
---  is
---  begin
-
---    acs_group.delete(group_id); 
-
---  end delete;
-
 create function application_group__delete(integer)
 returns integer as '
 declare
@@ -183,32 +83,7 @@
     return 0;
 end;' language 'plpgsql';
 
---  function group_id_from_package_id (
---    package_id    in application_groups.group_id%TYPE,
---    no_complain_p in char default 'f'
---  ) return char
---  is
---    v_group_id application_groups.group_id%TYPE;
---  begin
 
---    select group_id 
---    into v_group_id
---    from application_groups 
---    where package_id = group_id_from_package_id.package_id;
-
---    return v_group_id;
-
---  exception when no_data_found then
-
---    if no_complain_p != 't' then
---      raise_application_error(-20000, 'No group_id found for package ' ||
---        package_id || ' (' || acs_object.name(package_id) || ').' );
---    end if;
-
---    return null;
-
---  end group_id_from_package_id;
-
 create function application_group__group_id_from_package_id(integer,boolean)
 returns integer as '
 declare
@@ -238,10 +113,6 @@
 
 end;' language 'plpgsql';
 
--- end application_group;
--- /
--- show errors
-
 insert into group_type_rels
 (group_rel_type_id, group_type, rel_type)
 values
@@ -256,49 +127,21 @@
 -- Views --
 -----------
 
--- create or replace view application_group_element_map as
--- select g.package_id, g.group_id, 
---        m.element_id, m.container_id, m.rel_id, m.rel_type, m.ancestor_rel_type
--- from application_groups g,
---      group_element_map m
--- where g.group_id = m.group_id;
-
 create view application_group_element_map as
 select g.package_id, g.group_id, 
        m.element_id, m.container_id, m.rel_id, m.rel_type, m.ancestor_rel_type
 from application_groups g,
      group_element_map m
 where g.group_id = m.group_id;
 
--- create or replace view app_group_distinct_element_map as
--- select distinct package_id, group_id, element_id
--- from application_group_element_map;
-
 create view app_group_distinct_element_map as
 select distinct package_id, group_id, element_id
 from application_group_element_map;
 
--- create or replace view app_group_distinct_rel_map as
--- select distinct package_id, group_id, rel_id, rel_type, ancestor_rel_type
--- from application_group_element_map;
-
 create view app_group_distinct_rel_map as
 select distinct package_id, group_id, rel_id, rel_type, ancestor_rel_type
 from application_group_element_map;
 
--- create or replace view application_group_segments as
--- select g.package_id, s.segment_id, s.group_id, s.rel_type, s.segment_name
--- from application_groups g,
---      group_element_map m,
---      rel_segments s
--- where g.group_id = m.group_id
---   and m.element_id = s.group_id
--- UNION ALL
--- select g.package_id, s.segment_id, s.group_id, s.rel_type, s.segment_name
--- from application_groups g,
---      rel_segments s
--- where g.group_id = s.group_id;
-
 create view application_group_segments as
 select g.package_id, s.segment_id, s.group_id, s.rel_type, s.segment_name
 from application_groups g,