Index: openacs-4/packages/fs-portlet/sql/postgresql/fs-admin-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/sql/postgresql/fs-admin-portlet-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/fs-portlet/sql/postgresql/fs-admin-portlet-drop.sql	24 Jul 2004 08:34:22 -0000	1.2
+++ openacs-4/packages/fs-portlet/sql/postgresql/fs-admin-portlet-drop.sql	27 Oct 2014 16:41:41 -0000	1.3
@@ -9,16 +9,22 @@
 -- License version 2 or higher.  Full text of the license is available
 -- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
 
-create function inline_0()
-returns integer as '
-declare  
+
+
+--
+-- procedure inline_0/0
+--
+CREATE OR REPLACE FUNCTION inline_0(
+
+) RETURNS integer AS $$
+DECLARE  
   ds_id portal_datasources.datasource_id%TYPE;
-begin
+BEGIN
 
 --  begin 
     select datasource_id into ds_id
       from portal_datasources
-     where name = ''fs-admin-portlet'';
+     where name = 'fs-admin-portlet';
 --   exception when no_data_found then
 --     ds_id := null;
 --  end;
@@ -28,76 +34,84 @@
   end if;
 
 return 0;
-end;' language 'plpgsql';
+END;
+$$ LANGUAGE plpgsql;
 
 select inline_0();
 drop function inline_0();
 
-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
 
 	-- drop the hooks
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''GetMyName''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'GetMyName'
 	);
 
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''GetPrettyName''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'GetPrettyName'
 	);
 
 
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''Link''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'Link'
 	);
 
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''AddSelfToPage''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'AddSelfToPage'
 	);
 
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''Show''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'Show'
 	);
 
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''Edit''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'Edit'
 	);
 
 	foo := acs_sc_impl_alias__delete (
-	       ''portal_datasource'',
-	       ''fs_admin_portlet'',
-	       ''RemoveSelfFromPage''
+	       'portal_datasource',
+	       'fs_admin_portlet',
+	       'RemoveSelfFromPage'
 	);
 
 	-- Drop the binding
 	perform acs_sc_binding__delete (
-	    ''portal_datasource'',
-	    ''fs_admin_portlet''
+	    'portal_datasource',
+	    'fs_admin_portlet'
 	);
 
 	-- drop the impl
 	foo := acs_sc_impl__delete (
-		''portal_datasource'',
-		''fs_admin_portlet''
+		'portal_datasource',
+		'fs_admin_portlet'
 	);
 
 	return 0;
 
-end;' language 'plpgsql';
+END;
+$$ LANGUAGE plpgsql;
 
 select inline_0();
 drop function inline_0();