Index: openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-portlet-create.sql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-portlet-create.sql	8 Jul 2002 23:21:14 -0000	1.1
+++ openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-portlet-create.sql	9 Jul 2002 18:34:18 -0000	1.2
@@ -27,168 +27,188 @@
 -- 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
   ds_id portal_datasources.datasource_id%TYPE;
 begin
-  ds_id := portal_datasource.new(
-    name             => 'dotlrn_members_portlet',
-    description      => 'Displays the members of this community  '
+  ds_id := portal_datasource__new(
+         ''dotlrn_members_portlet'',
+         ''Displays the members of this community  ''
   );
 
 
 
   -- 4 defaults procs
 
   -- shadeable_p 
-  portal_datasource.set_def_param (
-	datasource_id => ds_id,
-	config_required_p => 't',
-	configured_p => 't',
-	key => 'shadeable_p',
-	value => 't'
+  perform portal_datasource__set_def_param (
+	ds_id,
+	''t'',
+	''t'',
+	''shadeable_p'',
+	''t''
 );	
 
   -- shaded_p 
-  portal_datasource.set_def_param (
-	datasource_id => ds_id,
-	config_required_p => 't',
-	configured_p => 't',
-	key => 'shaded_p',
-	value => 'f'
+  perform portal_datasource__set_def_param (
+	ds_id,
+	''t'',
+	''t'',
+	''shaded_p'',
+	''f''
 );	
 
   -- hideable_p 
-  portal_datasource.set_def_param (
-	datasource_id => ds_id,
-	config_required_p => 't',
-	configured_p => 't',
-	key => 'hideable_p',
-	value => 't'
+  perform portal_datasource__set_def_param (
+	ds_id,
+	''t'',
+	''t'',
+	''hideable_p'',
+	''t''
 );	
 
   -- user_editable_p 
-  portal_datasource.set_def_param (
-	datasource_id => ds_id,
-	config_required_p => 't',
-	configured_p => 't',
-	key => 'user_editable_p',
-	value => 'f'
+  perform portal_datasource__set_def_param (
+	ds_id,
+	''t'',
+	''t'',
+	''user_editable_p'',
+	''f''
 );	
 
   -- link_hideable_p 
-  portal_datasource.set_def_param (
-	datasource_id => ds_id,
-	config_required_p => 't',
-	configured_p => 't',
-	key => 'link_hideable_p',
-	value => 't'
+  perform portal_datasource__set_def_param (
+	ds_id,
+	''t'',
+	''t'',
+	''link_hideable_p'',
+	''t''
 );
 
   -- portlet-specific procs
 
   -- community_id must be configured!
-  portal_datasource.set_def_param (
-	datasource_id => ds_id,
-	config_required_p => 't',
-	configured_p => 'f',
-	key => 'community_id',
-	value => ''
+  perform portal_datasource__set_def_param (
+	ds_id,
+	''t'',
+	''f'',
+	''community_id'',
+	''''
 );	
 
-end;
-/
-show errors
+  return 0;
 
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
+create function inline_0() 
+returns integer as '
 declare
 	foo integer;
 begin
 	-- create the implementation
-	foo := acs_sc_impl.new (
-		'portal_datasource',
-		'dotlrn_members_portlet',
-		'dotlrn_members_portlet'
+	foo := acs_sc_impl__new (
+		''portal_datasource'',
+		''dotlrn_members_portlet'',
+		''dotlrn_members_portlet''
 	);
 
-end;
-/
-show errors
+  return 0;
 
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
+create function inline_0() 
+returns integer as '
 declare
 	foo integer;
 begin
 
 	-- add all the hooks
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'GetMyName',
-	       'dotlrn_members_portlet::get_my_name',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''GetMyName'',
+	       ''dotlrn_members_portlet::get_my_name'',
+	       ''TCL''
 	);
 
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'GetPrettyName',
-	       'dotlrn_members_portlet::get_pretty_name',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''GetPrettyName'',
+	       ''dotlrn_members_portlet::get_pretty_name'',
+	       ''TCL''
 	);
 
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'Link',
-	       'dotlrn_members_portlet::link',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''Link'',
+	       ''dotlrn_members_portlet::link'',
+	       ''TCL''
 	);
 
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'AddSelfToPage',
-	       'dotlrn_members_portlet::add_self_to_page',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''AddSelfToPage'',
+	       ''dotlrn_members_portlet::add_self_to_page'',
+	       ''TCL''
 	);
 
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'Show',
-	       'dotlrn_members_portlet::show',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''Show'',
+	       ''dotlrn_members_portlet::show'',
+	       ''TCL''
 	);
 
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'Edit',
-	       'dotlrn_members_portlet::edit',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''Edit'',
+	       ''dotlrn_members_portlet::edit'',
+	       ''TCL''
 	);
 
-	foo := acs_sc_impl.new_alias (
-	       'portal_datasource',
-	       'dotlrn_members_portlet',
-	       'RemoveSelfFromPage',
-	       'dotlrn_members_portlet::remove_self_from_page',
-	       'TCL'
+	foo := acs_sc_impl_alias__new (
+	       ''portal_datasource'',
+	       ''dotlrn_members_portlet'',
+	       ''RemoveSelfFromPage'',
+	       ''dotlrn_members_portlet::remove_self_from_page'',
+	       ''TCL''
 	);
 
-end;
-/
-show errors
+  return 0;
 
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
+create function inline_0() 
+returns integer as '
 declare
 	foo integer;
 begin
 
 	-- Add the binding
-	acs_sc_binding.new (
-	    contract_name => 'portal_datasource',
-	    impl_name => 'dotlrn_members_portlet'
+	perform acs_sc_binding__new (
+	    ''portal_datasource'',
+	    ''dotlrn_members_portlet''
 	);
-end;
-/
-show errors
 
+  return 0;
 
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
