Index: openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql	21 Mar 2005 12:01:21 -0000	1.5
+++ openacs-4/packages/general-comments/sql/postgresql/general-comments-create.sql	30 Mar 2013 22:50:45 -0000	1.6
@@ -34,18 +34,18 @@
 -- create an index on foreign key constraint
 create index general_comments_object_id_idx on general_comments (object_id);
 
-create function inline_0 ()
-returns integer as '
+CREATE OR REPLACE FUNCTION inline_0 () RETURNS integer AS $$
 -- define and grant privileges
-begin
+BEGIN
 
     -- create privileges
-    PERFORM acs_privilege__create_privilege(''general_comments_create'', null, null);
+    PERFORM acs_privilege__create_privilege('general_comments_create', null, null);
 
-    PERFORM acs_privilege__add_child(''annotate'', ''general_comments_create'');
+    PERFORM acs_privilege__add_child('annotate', 'general_comments_create');
 
     return 0;
-end;' language 'plpgsql';
+END;
+$$ LANGUAGE plpgsql;
 
 select inline_0 ();
 
@@ -55,27 +55,27 @@
 
 -- NOTE: this is only temporary until we figure out how
 --       packages will register child types to an acs-message
-create function inline_1 ()
-returns integer as '
-begin
+CREATE OR REPLACE FUNCTION inline_1 () RETURNS integer AS $$
+BEGIN
 
     PERFORM content_type__register_child_type (
-        /* parent_type => */ ''acs_message_revision'',
-        /* child_type  => */ ''content_revision'',
-	''generic'', 0, null
+        /* parent_type => */ 'acs_message_revision',
+        /* child_type  => */ 'content_revision',
+	'generic', 0, null
     );
     PERFORM content_type__register_child_type (
-        /* parent_type => */ ''acs_message_revision'',
-        /* child_type  => */ ''image'',
-	''generic'', 0, null
+        /* parent_type => */ 'acs_message_revision',
+        /* child_type  => */ 'image',
+	'generic', 0, null
     );
     PERFORM content_type__register_child_type (
-        /* parent_type => */ ''acs_message_revision'',
-        /* child_type  => */ ''content_extlink'',
-	''generic'', 0, null
+        /* parent_type => */ 'acs_message_revision',
+        /* child_type  => */ 'content_extlink',
+	'generic', 0, null
     );
     return 0;
-end;' language 'plpgsql';
+END;
+$$ LANGUAGE plpgsql;
 
 select inline_1 ();