Index: openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-admin-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-admin-portlet-create.sql	9 Aug 2002 18:39:29 -0000	1.3
+++ openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-admin-portlet-create.sql	27 Oct 2014 16:41:22 -0000	1.4
@@ -31,14 +31,20 @@
 -- 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
   ds_id := portal_datasource__new(
-         ''dotlrn_admin_portlet'',
-         ''Displays the dotlrn community admin info ''
+         'dotlrn_admin_portlet',
+         'Displays the dotlrn community admin info '
   );
 
 
@@ -48,170 +54,192 @@
   -- shadeable_p 
   perform portal_datasource__set_def_param (
 	ds_id,
-	''t'',
-	''t'',
-	''shadeable_p'',
-	''f''
+	't',
+	't',
+	'shadeable_p',
+	'f'
 );	
 
   -- shaded_p 
   perform portal_datasource__set_def_param (
 	ds_id,
-	''t'',
-	''t'',
-	''shaded_p'',
-	''f''
+	't',
+	't',
+	'shaded_p',
+	'f'
 );	
 
   -- hideable_p 
   perform portal_datasource__set_def_param (
 	ds_id,
-	''t'',
-	''t'',
-	''hideable_p'',
-	''f''
+	't',
+	't',
+	'hideable_p',
+	'f'
 );	
 
   -- user_editable_p 
   perform portal_datasource__set_def_param (
 	ds_id,
-	''t'',
-	''t'',
-	''user_editable_p'',
-	''f''
+	't',
+	't',
+	'user_editable_p',
+	'f'
 );	
 
   -- link_hideable_p 
   perform portal_datasource__set_def_param (
 	ds_id,
-	''t'',
-	''t'',
-	''link_hideable_p'',
-	''t''
+	't',
+	't',
+	'link_hideable_p',
+	't'
 );
 
   -- portlet-specific procs
 
   -- community_id must be configured!
   perform portal_datasource__set_def_param (
 	ds_id,
-	''t'',
-	''f'',
-	''community_id'',
-	''''
+	't',
+	'f',
+	'community_id',
+	''
 );	
 
   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
 	-- create the implementation
 	foo := acs_sc_impl__new (
-		''portal_datasource'',
-		''dotlrn_admin_portlet'',
-		''dotlrn_admin_portlet''
+		'portal_datasource',
+		'dotlrn_admin_portlet',
+		'dotlrn_admin_portlet'
 	);
 
   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
 
 	-- add all the hooks
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''GetMyName'',
-	       ''dotlrn_admin_portlet::get_my_name'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'GetMyName',
+	       'dotlrn_admin_portlet::get_my_name',
+	       'TCL'
 	);
 
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''GetPrettyName'',
-	       ''dotlrn_admin_portlet::get_pretty_name'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'GetPrettyName',
+	       'dotlrn_admin_portlet::get_pretty_name',
+	       'TCL'
 	);
 
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''Link'',
-	       ''dotlrn_admin_portlet::link'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'Link',
+	       'dotlrn_admin_portlet::link',
+	       'TCL'
 	);
 
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''AddSelfToPage'',
-	       ''dotlrn_admin_portlet::add_self_to_page'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'AddSelfToPage',
+	       'dotlrn_admin_portlet::add_self_to_page',
+	       'TCL'
 	);
 
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''Show'',
-	       ''dotlrn_admin_portlet::show'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'Show',
+	       'dotlrn_admin_portlet::show',
+	       'TCL'
 	);
 
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''Edit'',
-	       ''dotlrn_admin_portlet::edit'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'Edit',
+	       'dotlrn_admin_portlet::edit',
+	       'TCL'
 	);
 
 	foo := acs_sc_impl_alias__new (
-	       ''portal_datasource'',
-	       ''dotlrn_admin_portlet'',
-	       ''RemoveSelfFromPage'',
-	       ''dotlrn_admin_portlet::remove_self_from_page'',
-	       ''TCL''
+	       'portal_datasource',
+	       'dotlrn_admin_portlet',
+	       'RemoveSelfFromPage',
+	       'dotlrn_admin_portlet::remove_self_from_page',
+	       'TCL'
 	);
 
   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
 
 	-- Add the binding
 	perform acs_sc_binding__new (
-	    ''portal_datasource'',
-	    ''dotlrn_admin_portlet''
+	    'portal_datasource',
+	    'dotlrn_admin_portlet'
 	);
 
   return 0;
 
-end;' language 'plpgsql';
+END;
+$$ LANGUAGE plpgsql;
 select inline_0();
 drop function inline_0();
 
