
--
-- 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 $
--
--

create function inline_0()
returns integer as '
begin

    perform dotlrn_community_type__new(
        ''dotlrn_pers_community'',
        ''dotlrn_community'',
        ''personal Community'',
        ''personal Communities'',
        ''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'';

    return 0;

end;' language 'plpgsql';

select inline_0();

drop function inline_0();
