
--
-- The DotLRN basic system
-- copyright 2001, OpenForce, Inc.
-- distributed under the GNU GPL v2
--
-- for Oracle 8/8i. (We're guessing 9i works, too).
--
-- ben@openforce.net
-- September 25th, 2001
-- we remember September 11th, 2001
--

declare
    foo dotlrn_community_types.community_type%TYPE;
begin
    -- Create the base community type
    foo := dotlrn_community_type.new (
        community_type => 'dotlrn_community',
        parent_type => NULL,
        pretty_name => 'Community',
        pretty_plural => 'Communities',
        description => 'Communities - the base community type'
    );

    -- create the dotlrn_class community type
    foo := dotlrn_community_type.new (
        community_type => 'dotlrn_class_instance',
        parent_type => 'dotlrn_community',
        pretty_name => 'Class',
        pretty_plural => 'Classes',
        description => 'e.g. 6.001'
    );

    -- create the dotlrn_club community type
    foo := dotlrn_community_type.new (
        community_type => 'dotlrn_club',
        parent_type => 'dotlrn_community',
        pretty_name => 'Club',
        pretty_plural => 'Clubs',
        description => 'e.g. Alumni'
    );

    -- create roles
    acs_rel_type.create_role ('student', 'Student', 'Students');
    acs_rel_type.create_role ('course_assistant', 'Course Assistant', 'Course Assistants');
    acs_rel_type.create_role ('teaching_assistant', 'Teaching Assistant', 'Teaching Assistants');
    acs_rel_type.create_role ('instructor', 'Professor', 'Professors');
    acs_rel_type.create_role ('course_admin', 'Course Administrator', 'Course Administrators');
    acs_rel_type.create_role ('admin', 'Administrator', 'Administrators');
end;
/
show errors
