Index: openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-drop.sql	9 Oct 2001 00:40:21 -0000	1.1
+++ openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-drop.sql	17 Nov 2001 21:37:58 -0000	1.2
@@ -34,3 +34,78 @@
 /
 show errors;
 
+declare
+	foo integer;
+begin
+
+	-- drop the hooks
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'MyName'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'GetPrettyName'
+	);
+
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'Link'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'AddSelfToPage'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'Show'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'Edit'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'RemoveSelfFromPage'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'MakeSelfAvailable'
+	);
+
+	foo := acs_sc_impl.delete_alias (
+	       'portal_datasource',
+	       'fs-portlet',
+	       'MakeSelfUnavailable'
+	);
+
+	-- Drop the binding
+	acs_sc_binding.delete (
+	    contract_name => 'portal_datasource',
+	    impl_name => 'fs-portlet'
+	);
+
+	-- drop the impl
+	foo := acs_sc_impl.delete (
+		'portal_datasource',
+		'fs-portlet'
+	);
+end;
+/
+show errors
+