Index: openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql,v
diff -u -N -r1.3 -r1.3.22.1
--- openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql	9 Aug 2002 18:39:28 -0000	1.3
+++ openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql	18 Aug 2014 21:50:27 -0000	1.3.22.1
@@ -27,143 +27,150 @@
 -- ported to postgres 2002-07-09
 
 
-create function inline_0()
-returns integer as '
-declare
+
+
+--
+-- procedure inline_0/0
+--
+CREATE OR REPLACE FUNCTION inline_0(
+
+) RETURNS integer AS $$
+DECLARE
 	foo integer;
-begin
+BEGIN
 	-- create the implementation
 	foo := acs_sc_impl__new (
-		''dotlrn_applet'',
-		''dotlrn_fs'',
-		''dotlrn_fs''
+		'dotlrn_applet',
+		'dotlrn_fs',
+		'dotlrn_fs'
 	);
 
 	-- add all the hooks
 
 	-- GetPrettyName
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''GetPrettyName'',
-	       ''dotlrn_fs::get_pretty_name'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'GetPrettyName',
+	       'dotlrn_fs::get_pretty_name',
+	       'TCL'
 	);
 
 	-- AddApplet
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''AddApplet'',
-	       ''dotlrn_fs::add_applet'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'AddApplet',
+	       'dotlrn_fs::add_applet',
+	       'TCL'
 	);
 
 	-- RemoveApplet
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''RemoveApplet'',
-	       ''dotlrn_fs::remove_applet'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'RemoveApplet',
+	       'dotlrn_fs::remove_applet',
+	       'TCL'
 	);
 
 	-- AddAppletToCommunity
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''AddAppletToCommunity'',
-	       ''dotlrn_fs::add_applet_to_community'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'AddAppletToCommunity',
+	       'dotlrn_fs::add_applet_to_community',
+	       'TCL'
 	);
 
 	-- RemoveAppletFromCommunity
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''RemoveAppletFromCommunity'',
-	       ''dotlrn_fs::remove_applet_from_community'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'RemoveAppletFromCommunity',
+	       'dotlrn_fs::remove_applet_from_community',
+	       'TCL'
 	);
 
 	-- AddUser
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''AddUser'',
-	       ''dotlrn_fs::add_user'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'AddUser',
+	       'dotlrn_fs::add_user',
+	       'TCL'
 	);
 
 	-- RemoveUser
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''RemoveUser'',
-	       ''dotlrn_fs::remove_user'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'RemoveUser',
+	       'dotlrn_fs::remove_user',
+	       'TCL'
 	);
 
 	-- AddUserToCommunity
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''AddUserToCommunity'',
-	       ''dotlrn_fs::add_user_to_community'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'AddUserToCommunity',
+	       'dotlrn_fs::add_user_to_community',
+	       'TCL'
 	);
 
 	-- RemoveUserFromCommunity
 	foo := acs_sc_impl_alias__new (
-	       ''dotlrn_applet'',
-	       ''dotlrn_fs'',
-	       ''RemoveUserFromCommunity'',
-	       ''dotlrn_fs::remove_user_from_community'',
-	       ''TCL''
+	       'dotlrn_applet',
+	       'dotlrn_fs',
+	       'RemoveUserFromCommunity',
+	       'dotlrn_fs::remove_user_from_community',
+	       'TCL'
 	);
 
     -- AddPortlet
     foo := acs_sc_impl_alias__new (
-          ''dotlrn_applet'',
-          ''dotlrn_fs'',
-          ''AddPortlet'',
-          ''dotlrn_fs::add_portlet'',
-          ''TCL''
+          'dotlrn_applet',
+          'dotlrn_fs',
+          'AddPortlet',
+          'dotlrn_fs::add_portlet',
+          'TCL'
     );
 
     -- RemovePortlet
     foo := acs_sc_impl_alias__new (
-          ''dotlrn_applet'',
-          ''dotlrn_fs'',
-          ''RemovePortlet'',
-          ''dotlrn_fs::remove_portlet'',
-          ''TCL''
+          'dotlrn_applet',
+          'dotlrn_fs',
+          'RemovePortlet',
+          'dotlrn_fs::remove_portlet',
+          'TCL'
     );
 
     foo := acs_sc_impl_alias__new (
-          ''dotlrn_applet'',
-          ''dotlrn_fs'',
-          ''Clone'',
-          ''dotlrn_fs::clone'',
-          ''TCL''
+          'dotlrn_applet',
+          'dotlrn_fs',
+          'Clone',
+          'dotlrn_fs::clone',
+          'TCL'
     );
 
     foo := acs_sc_impl_alias__new (
-          ''dotlrn_applet'',
-          ''dotlrn_fs'',
-          ''ChangeEventHandler'',
-          ''dotlrn_fs::change_event_handler'',
-          ''TCL''
+          'dotlrn_applet',
+          'dotlrn_fs',
+          'ChangeEventHandler',
+          'dotlrn_fs::change_event_handler',
+          'TCL'
     );
 
     perform acs_sc_binding__new (
-            ''dotlrn_applet'',
-            ''dotlrn_fs''
+            'dotlrn_applet',
+            'dotlrn_fs'
     );
 
     return 0;
 
-end;' language 'plpgsql';
+END;
+$$ LANGUAGE plpgsql;
 
 select inline_0();
 drop function inline_0();