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.1 -r1.2 --- openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-admin-portlet-create.sql 8 Jul 2002 23:21:14 -0000 1.1 +++ openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-admin-portlet-create.sql 9 Jul 2002 18:34:18 -0000 1.2 @@ -31,167 +31,187 @@ -- 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_admin_portlet', - description => 'Displays the dotlrn community admin info ' + ds_id := portal_datasource__new( + ''dotlrn_admin_portlet'', + ''Displays the dotlrn community admin info '' ); -- 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 => 'f' + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''shadeable_p'', + ''f'' ); -- 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 => 'f' + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''hideable_p'', + ''f'' ); -- 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_admin_portlet', - 'dotlrn_admin_portlet' + foo := acs_sc_impl__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''dotlrn_admin_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_admin_portlet', - 'GetMyName', - 'dotlrn_admin_portlet::get_my_name', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''GetMyName'', + ''dotlrn_admin_portlet::get_my_name'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_admin_portlet', - 'GetPrettyName', - 'dotlrn_admin_portlet::get_pretty_name', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''GetPrettyName'', + ''dotlrn_admin_portlet::get_pretty_name'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_admin_portlet', - 'Link', - 'dotlrn_admin_portlet::link', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''Link'', + ''dotlrn_admin_portlet::link'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - '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'', + ''AddSelfToPage'', + ''dotlrn_admin_portlet::add_self_to_page'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_admin_portlet', - 'Show', - 'dotlrn_admin_portlet::show', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''Show'', + ''dotlrn_admin_portlet::show'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_admin_portlet', - 'Edit', - 'dotlrn_admin_portlet::edit', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''Edit'', + ''dotlrn_admin_portlet::edit'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_admin_portlet', - 'RemoveSelfFromPage', - 'dotlrn_admin_portlet::remove_self_from_page', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'', + ''RemoveSelfFromPage'', + ''dotlrn_admin_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_admin_portlet' + perform acs_sc_binding__new ( + ''portal_datasource'', + ''dotlrn_admin_portlet'' ); -end; -/ -show errors + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + 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 -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(); + Index: openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-staff-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-staff-portlet-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-staff-portlet-create.sql 8 Jul 2002 23:21:14 -0000 1.1 +++ openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-members-staff-portlet-create.sql 9 Jul 2002 18:34:18 -0000 1.2 @@ -28,167 +28,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_staff_portlet', - description => 'Displays the dotlrn community info ' + ds_id := portal_datasource__new( + ''dotlrn_members_staff_portlet'', + ''Displays the dotlrn community info'' ); -- 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_staff_portlet', - 'dotlrn_members_staff_portlet' + foo := acs_sc_impl__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''dotlrn_members_staff_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_staff_portlet', - 'GetMyName', - 'dotlrn_members_staff_portlet::get_my_name', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''GetMyName'', + ''dotlrn_members_staff_portlet::get_my_name'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_members_staff_portlet', - 'GetPrettyName', - 'dotlrn_members_staff_portlet::get_pretty_name', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''GetPrettyName'', + ''dotlrn_members_staff_portlet::get_pretty_name'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_members_staff_portlet', - 'Link', - 'dotlrn_members_staff_portlet::link', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''Link'', + ''dotlrn_members_staff_portlet::link'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_members_staff_portlet', - 'AddSelfToPage', - 'dotlrn_members_staff_portlet::add_self_to_page', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''AddSelfToPage'', + ''dotlrn_members_staff_portlet::add_self_to_page'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_members_staff_portlet', - 'Show', - 'dotlrn_members_staff_portlet::show', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''Show'', + ''dotlrn_members_staff_portlet::show'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_members_staff_portlet', - 'Edit', - 'dotlrn_members_staff_portlet::edit', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''Edit'', + ''dotlrn_members_staff_portlet::edit'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_members_staff_portlet', - 'RemoveSelfFromPage', - 'dotlrn_members_staff_portlet::remove_self_from_page', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'', + ''RemoveSelfFromPage'', + ''dotlrn_members_staff_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_staff_portlet' + perform acs_sc_binding__new ( + ''portal_datasource'', + ''dotlrn_members_staff_portlet'' ); -end; -/ -show errors + return 0; + +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); Index: openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-create.sql 8 Jul 2002 23:21:14 -0000 1.1 +++ openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-create.sql 9 Jul 2002 18:34:18 -0000 1.2 @@ -30,170 +30,186 @@ -- 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_portlet', - description => 'Displays the dotlrn community info ' + ds_id := portal_datasource__new( + ''dotlrn_portlet'', + ''Displays the dotlrn community info '' ); -- 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_portlet', - 'dotlrn_portlet' + foo := acs_sc_impl__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''dotlrn_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_portlet', - 'GetMyName', - 'dotlrn_portlet::get_my_name', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''GetMyName'', + ''dotlrn_portlet::get_my_name'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_portlet', - 'GetPrettyName', - 'dotlrn_portlet::get_pretty_name', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''GetPrettyName'', + ''dotlrn_portlet::get_pretty_name'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_portlet', - 'Link', - 'dotlrn_portlet::link', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''Link'', + ''dotlrn_portlet::link'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_portlet', - 'AddSelfToPage', - 'dotlrn_portlet::add_self_to_page', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''AddSelfToPage'', + ''dotlrn_portlet::add_self_to_page'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_portlet', - 'Show', - 'dotlrn_portlet::show', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''Show'', + ''dotlrn_portlet::show'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_portlet', - 'Edit', - 'dotlrn_portlet::edit', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''Edit'', + ''dotlrn_portlet::edit'', + ''TCL'' ); - foo := acs_sc_impl.new_alias ( - 'portal_datasource', - 'dotlrn_portlet', - 'RemoveSelfFromPage', - 'dotlrn_portlet::remove_self_from_page', - 'TCL' + foo := acs_sc_impl_alias__new ( + ''portal_datasource'', + ''dotlrn_portlet'', + ''RemoveSelfFromPage'', + ''dotlrn_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_portlet' + perform acs_sc_binding__new ( + ''portal_datasource'', + ''dotlrn_portlet'' ); -end; -/ -show errors + return 0; -@dotlrn-admin-portlet-create.sql -@dotlrn-members-portlet-create.sql -@dotlrn-members-staff-portlet-create.sql +end;' language 'plpgsql'; +select inline_0(); +drop function inline_0(); + +\i dotlrn-admin-portlet-create.sql +\i dotlrn-members-portlet-create.sql +\i dotlrn-members-staff-portlet-create.sql Index: openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-drop.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-drop.sql 8 Jul 2002 23:21:14 -0000 1.1 +++ openacs-4/packages/dotlrn-portlet/sql/postgresql/dotlrn-portlet-drop.sql 9 Jul 2002 18:34:18 -0000 1.2 @@ -36,87 +36,95 @@ ds_id portal_datasources.datasource_id%TYPE; begin - begin +-- begin select datasource_id into ds_id from portal_datasources where name = ''dotlrn-portlet''; - exception when no_data_found then - ds_id := null; - end; +-- exception when no_data_found then +-- ds_id := null; +-- end; if ds_id is not null then - portal_datasource.delete(ds_id); + portal_datasource__delete(ds_id); end if; -end; -/ -show errors; + return 0; +end;' language 'plpgsql'; + +select inline_0(); +drop function inline_0(); + + +create function inline_1() +returns integer as ' declare foo integer; begin -- add all the hooks - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''GetMyName'' ); - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''GetPrettyName'' ); - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''Link'' ); - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''AddSelfToPage'' ); - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''Show'' ); - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''Edit'' ); - foo := acs_sc_impl.delete_alias ( + foo := acs_sc_impl_alias__delete ( ''portal_datasource'', ''dotlrn_portlet'', ''RemoveSelfFromPage'' ); -- Drop the binding - perform acs_sc_binding.delete ( + perform acs_sc_binding__delete ( ''portal_datasource'', ''dotlrn_portlet'' ); -- drop the impl - foo := acs_sc_impl.delete ( + foo := acs_sc_impl__delete ( ''portal_datasource'', ''dotlrn_portlet'' ); return 0; + return 0; + end;' language 'plpgsql'; -select inline_0(); -drop function inline_0(); +select inline_1(); +drop function inline_1();