--
--  Copyright (C) 2001, 2002 MIT
--
--  This file is part of dotLRN.
--
--  dotLRN is free software; you can redistribute it and/or modify it under the
--  terms of the GNU General Public License as published by the Free Software
--  Foundation; either version 2 of the License, or (at your option) any later
--  version.
--
--  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
--  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
--  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
--  details.
--

create or replace package profiled_group
as
    function new (
        group_id in profiled_groups.group_id%TYPE default null,
        profile_provider in profiled_groups.profile_provider%TYPE,
        group_name in groups.group_name%TYPE,
        join_policy in groups.join_policy%TYPE default null,
        email in parties.email%TYPE default null,
        url in parties.url%TYPE default null,
        object_type in acs_objects.object_type%TYPE default 'profiled_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
    ) return profiled_groups.group_id%TYPE;

    procedure del (
        group_id in profiled_groups.group_id%TYPE
    );
end profiled_group;
/
show errors
create or replace package body profiled_group
as
    function new (
        group_id in profiled_groups.group_id%TYPE default null,
        profile_provider in profiled_groups.profile_provider%TYPE,
        group_name in groups.group_name%TYPE,
        join_policy in groups.join_policy%TYPE default null,
        email in parties.email%TYPE default null,
        url in parties.url%TYPE default null,
        object_type in acs_objects.object_type%TYPE default 'profiled_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
    ) return profiled_groups.group_id%TYPE is
        v_group_id profiled_groups.group_id%TYPE;
    begin
        v_group_id := acs_group.new(
            group_id => profiled_group.new.group_id,
            group_name => profiled_group.new.group_name,
            join_policy => profiled_group.new.join_policy,
            email => profiled_group.new.email,
            url => profiled_group.new.url,
            object_type => profiled_group.new.object_type,
            creation_date => profiled_group.new.creation_date,
            creation_user => profiled_group.new.creation_user,
            creation_ip => profiled_group.new.creation_ip
        );

        insert
        into profiled_groups
        (group_id, profile_provider)
        values
        (v_group_id, profiled_group.new.profile_provider);

        return v_group_id;
    end new;

    procedure del (
        group_id in profiled_groups.group_id%TYPE
    ) is
    begin
        delete
        from profiled_groups
        where profiled_groups.group_id = profiled_group.del.group_id;

        acs_group.del(group_id);
    end del;
end profiled_group;
/
show errors