Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-main-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-main-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-main-portlet-create.sql	16 Nov 2001 20:49:49 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-main-portlet-create.sql	16 Nov 2001 20:54:39 -0000	1.4
@@ -27,3 +27,96 @@
 /
 show errors
 
+declare
+	foo integer;
+begin
+	-- create the implementation
+	foo := acs_sc_impl.new (
+		'portal_datasource',
+		'dotlrn_main_portlet',
+		'dotlrn_main_portlet'
+	);
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- add all the hooks
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'MyName',
+	       'dotlrn_main_portlet::my_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'GetPrettyName',
+	       'dotlrn_main_portlet::get_pretty_name',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'Link',
+	       'dotlrn_main_portlet::link',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'AddSelfToPage',
+	       'dotlrn_main_portlet::add_self_to_page',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'Show',
+	       'dotlrn_main_portlet::show',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'Edit',
+	       'dotlrn_main_portlet::edit',
+	       'TCL'
+	);
+
+	foo := acs_sc_impl.new_alias (
+	       'portal_datasource',
+	       'dotlrn_main_portlet',
+	       'RemoveSelfFromPage',
+	       'dotlrn_main_portlet::remove_self_from_page',
+	       'TCL'
+	);
+
+
+end;
+/
+show errors
+
+declare
+	foo integer;
+begin
+
+	-- Add the binding
+	acs_sc_binding.new (
+	    contract_name => 'portal_datasource',
+	    impl_name => 'dotlrn_main_portlet'
+	);
+end;
+/
+show errors
+