Index: openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql	17 Nov 2001 21:51:52 -0000	1.12
+++ openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql	17 Nov 2001 22:08:04 -0000	1.13
@@ -78,3 +78,112 @@
 /
 show errors
 
+
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		'portal_datasource',
+		'bboard_portlet',
+		'bboard_portlet'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- add all the hooks
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'MyName',
+	       'bboard_portlet::my_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'GetPrettyName',
+	       'bboard_portlet::get_pretty_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'Link',
+	       'bboard_portlet::link',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'AddSelfToPage',
+	       'bboard_portlet::add_self_to_page',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'Show',
+	       'bboard_portlet::show',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'Edit',
+	       'bboard_portlet::edit',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'RemoveSelfFromPage',
+	       'bboard_portlet::remove_self_from_page',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'MakeSelfAvailable',
+	       'bboard_portlet::make_self_available',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'bboard_portlet',
+	       'MakeSelfUnavailable',
+	       'bboard_portlet::make_self_unavailable',
+	       'TCL'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- Add the binding
+	acs_sc_binding.new (
+	    contract_name => 'portal_datasource',
+	    impl_name => 'bboard_portlet'
+	);
+end;
+/
+show errors
+
Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql	17 Nov 2001 22:05:06 -0000	1.5
+++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql	17 Nov 2001 22:07:09 -0000	1.6
@@ -77,3 +77,111 @@
 /
 show errors
 
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		'portal_datasource',
+		'dotlrn_portlet',
+		'dotlrn_portlet'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- add all the hooks
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_portlet',
+	       'MyName',
+	       'dotlrn_portlet::my_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       '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.new_alias (
+	       '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.new_alias (
+	       '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.new_alias (
+	       'portal_datasource',
+	       'dotlrn_portlet',
+	       'MakeSelfAvailable',
+	       'dotlrn_portlet::make_self_available',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_portlet',
+	       'MakeSelfUnavailable',
+	       'dotlrn_portlet::make_self_unavailable',
+	       'TCL'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- Add the binding
+	acs_sc_binding.new (
+	    contract_name => 'portal_datasource',
+	    impl_name => 'dotlrn_portlet'
+	);
+end;
+/
+show errors
+