
--
-- initialize personal communities
--
-- @author yon (yon@openforce.net)
-- @creation-date 2002-08-25
-- @version $Id: personal-community-init.sql,v 1.1 2003/11/14 20:57:06 janines Exp $
--
--

declare
    foo dotlrn_community_types.community_type%TYPE;
begin

    foo := dotlrn_community_type.new(
        community_type => 'dotlrn_pers_community',
        parent_type => 'dotlrn_community',
        pretty_name => 'Personal Community',
        pretty_plural => 'Personal Communities',
        description => 'e.g. Hal Abelson Community'
    );

    update acs_object_types
    set table_name = 'dotlrn_pers_communities',
        package_name = 'dotlrn_pers_community'
    where object_type = 'dotlrn_pers_community';

end;
/
show errors
