Index: openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql	8 Aug 2006 21:26:22 -0000	1.5
+++ openacs-4/packages/dotlrn/sql/postgresql/admins-init.sql	1 Nov 2013 21:08:28 -0000	1.6
@@ -22,28 +22,34 @@
 --
 
 
-create function inline_1()
-returns integer as '
-declare
+
+
+--
+-- procedure inline_1/0
+--
+CREATE OR REPLACE FUNCTION inline_1(
+
+) RETURNS integer AS $$
+DECLARE
     foo                         integer;
     gid				integer;
     sid                         integer;
     dotlrn_users_group_id       integer;
-begin
+BEGIN
 
     PERFORM acs_rel_type__create_type(
-        ''dotlrn_admin_profile_rel'',
-        ''dotLRN Profile Admin'',
-        ''dotLRN Profile Admins'',
-	''dotlrn_user_profile_rel'',
-        ''dotlrn_admin_profile_rels'',
-        ''rel_id'',
-        ''dotlrn_admin_profile_rel'',
-        ''profiled_group'',
+        'dotlrn_admin_profile_rel',
+        'dotLRN Profile Admin',
+        'dotLRN Profile Admins',
+	'dotlrn_user_profile_rel',
+        'dotlrn_admin_profile_rels',
+        'rel_id',
+        'dotlrn_admin_profile_rel',
+        'profiled_group',
         null,
         0,
         null,
-        ''user'',
+        'user',
         null,
         0,
         1
@@ -52,29 +58,29 @@
     select min(impl_id)
     into foo
     from acs_sc_impls
-    where impl_name = ''dotlrn_admin_profile_provider'';
+    where impl_name = 'dotlrn_admin_profile_provider';
 
     gid := profiled_group__new(
         foo,
-        ''dotLRN Admins''
+        'dotLRN Admins'
     );
 
     sid := rel_segment__new(
-        ''dotLRN Admins'',
+        'dotLRN Admins',
         gid,
-        ''dotlrn_admin_profile_rel''
+        'dotlrn_admin_profile_rel'
     );
 
     insert
     into dotlrn_user_types
     (type, pretty_name, rel_type, group_id, segment_id)
     values
-    (''admin'', ''#dotlrn.user_type_staff_pretty_name#'', ''dotlrn_admin_profile_rel'', gid, sid);
+    ('admin', '#dotlrn.user_type_staff_pretty_name#', 'dotlrn_admin_profile_rel', gid, sid);
 
     select group_id
     into dotlrn_users_group_id
     from groups
-    where group_name = ''dotLRN Users'';
+    where group_name = 'dotLRN Users';
 
     foo := composition_rel__new(
         dotlrn_users_group_id,
@@ -83,8 +89,9 @@
 
     return 0;
 
-end;
-' language 'plpgsql';
+END;
 
+$$ LANGUAGE plpgsql;
+
 select inline_1();
 drop function inline_1();