Index: openacs-4/packages/dotlrn/sql/oracle/admins-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/admins-init.sql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/oracle/admins-init.sql	6 May 2002 23:55:01 -0000	1.1
+++ openacs-4/packages/dotlrn/sql/oracle/admins-init.sql	26 Jul 2002 14:53:51 -0000	1.2
@@ -24,6 +24,7 @@
 declare
     foo                         integer;
     group_id                    integer;
+    segment_id                  integer;
     dotlrn_users_group_id       integer;
 begin
 
@@ -55,18 +56,18 @@
         group_name => 'dotLRN Admins'
     );
 
-    insert
-    into dotlrn_user_types
-    (type, pretty_name, group_id)
-    values
-    ('admin', 'Staff', group_id);
-
-    foo := rel_segment.new(
+    segment_id := rel_segment.new(
         segment_name => 'dotLRN Admins',
         group_id => group_id,
         rel_type => 'dotlrn_admin_profile_rel'
     );
 
+    insert
+    into dotlrn_user_types
+    (type, pretty_name, rel_type, group_id, segment_id)
+    values
+    ('admin', 'Staff', 'dotlrn_admin_profile_rel', group_id, segment_id);
+
     select group_id
     into dotlrn_users_group_id
     from groups