Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/dotlrn-init.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-init.sql	30 Nov 2001 03:41:17 -0000	1.7
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-init.sql	1 Dec 2001 23:16:27 -0000	1.8
@@ -72,97 +72,10 @@
 	acs_rel_type.create_role ('instructor', 'Instructor', 'Instructors');
 	acs_rel_type.create_role ('admin', 'Administrator', 'Administrators');
 	
-	-- a lot of the following stuff is commented out because it has to be done in TCL
-
-	-- create relationships
--- 	acs_rel_type.create_type (
--- 	  rel_type => 'admin_rel',
--- 	  supertype => 'membership_rel',
--- 	  pretty_name => 'Administration Relation',
--- 	  pretty_plural => 'Administration Relationships',
--- 	  package_name => 'dotlrn_admin_rel',
--- 	  table_name => 'dotlrn_admin_rel',
--- 	  id_column => 'XXX',
--- 	  object_type_one => 'dotlrn_community', role_one => NULL,
--- 	  min_n_rels_one => 0, max_n_rels_one => null,
--- 	  object_type_two => 'party', role_two => 'admin',
--- 	  min_n_rels_two => 0, max_n_rels_two => null
--- 	);
-
--- 	acs_rel_type.create_type (
--- 	  rel_type => 'instructor_rel',
--- 	  supertype => 'admin_rel',
--- 	  pretty_name => 'Instructor Relation',
--- 	  pretty_plural => 'Instructor Relationships',
--- 	  package_name => 'dotlrn_instructor_rel',
--- 	  table_name => 'dotlrn_instructor_rel',
--- 	  id_column => 'XXX',
--- 	  object_type_one => 'dotlrn_class', role_one => NULL,
--- 	  min_n_rels_one => 0, max_n_rels_one => null,
--- 	  object_type_two => 'party', role_two => 'instructor',
--- 	  min_n_rels_two => 0, max_n_rels_two => null
--- 	);
-
--- 	acs_rel_type.create_type (
--- 	  rel_type => 'ta_rel',
--- 	  supertype => 'admin_rel',
--- 	  pretty_name => 'TA Relation',
--- 	  pretty_plural => 'TA Relationships',
--- 	  package_name => 'dotlrn_ta_rel',
--- 	  table_name => 'dotlrn_ta_rel',
--- 	  id_column => 'XXX',
--- 	  object_type_one => 'dotlrn_class', role_one => NULL,
--- 	  min_n_rels_one => 0, max_n_rels_one => null,
--- 	  object_type_two => 'party', role_two => 'teaching_assistant',
--- 	  min_n_rels_two => 0, max_n_rels_two => null
--- 	);
-
--- 	acs_rel_type.create_type (
--- 	  rel_type => 'student_rel',
--- 	  supertype => 'membership_rel',
--- 	  pretty_name => 'Student Relation',
--- 	  pretty_plural => 'Student Relationships',
--- 	  package_name => 'dotlrn_student_rel',
--- 	  table_name => 'dotlrn_student_rel',
--- 	  id_column => 'XXX',
--- 	  object_type_one => 'dotlrn_class', role_one => NULL,
--- 	  min_n_rels_one => 0, max_n_rels_one => null,
--- 	  object_type_two => 'party', role_two => 'student',
--- 	  min_n_rels_two => 0, max_n_rels_two => null
--- 	);
-
-	-- add permissible stuff
--- 	insert into group_type_rels
--- 	(group_rel_type_id, group_type, rel_type)
--- 	values
--- 	(acs_object_id_seq.nextval, 'dotlrn_class', 'admin_rel');
-
--- 	insert into group_type_rels
--- 	(group_rel_type_id, group_type, rel_type)
--- 	values
--- 	(acs_object_id_seq.nextval, 'dotlrn_club', 'admin_rel');
-
--- 	insert into group_type_rels
--- 	(group_rel_type_id, group_type, rel_type)
--- 	values
--- 	(acs_object_id_seq.nextval, 'dotlrn_club', 'membership_rel');
-
--- 	insert into group_type_rels
--- 	(group_rel_type_id, group_type, rel_type)
--- 	values
--- 	(acs_object_id_seq.nextval, 'dotlrn_class', 'student_rel');
-
--- 	insert into group_type_rels
--- 	(group_rel_type_id, group_type, rel_type)
--- 	values
--- 	(acs_object_id_seq.nextval, 'dotlrn_class', 'instructor_rel');
-
--- 	insert into group_type_rels
--- 	(group_rel_type_id, group_type, rel_type)
--- 	values
--- 	(acs_object_id_seq.nextval, 'dotlrn_class', 'ta_rel');
-
-	
+	-- add the user types
+	insert into dotlrn_user_types (type_id, type) values (1, 'student');	
+	insert into dotlrn_user_types (type_id, type) values (2, 'professor');	
+	insert into dotlrn_user_types (type_id, type) values (3, 'admin');	
 end;
 /
 show errors