Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admins-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-admins-init.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admins-init.sql	3 Jul 2002 19:58:07 -0000	1.4
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admins-init.sql	8 Jul 2002 04:12:21 -0000	1.5
@@ -26,7 +26,7 @@
 returns integer as '
 declare
     foo                         integer;
-    group_id                    integer;
+    gid				integer;
     dotlrn_users_group_id       integer;
 begin
 
@@ -53,7 +53,7 @@
     from acs_sc_impls
     where impl_name = ''dotlrn_admin_profile_provider'';
 
-    group_id := profiled_group__new(
+    gid := profiled_group__new(
         foo,
         ''dotLRN Admins''
     );
@@ -62,11 +62,11 @@
     into dotlrn_user_types
     (type, pretty_name, group_id)
     values
-    (''admin'', ''Staff'', group_id);
+    (''admin'', ''Staff'', gid);
 
     foo := rel_segment__new(
         ''dotLRN Admins'',
-        group_id,
+        gid,
         ''dotlrn_admin_profile_rel''
     );
 
@@ -77,9 +77,11 @@
 
     foo := composition_rel__new(
         dotlrn_users_group_id,
-        group_id
+        gid
     );
 
+    return 0;
+
 end;
 ' language 'plpgsql';