Index: openacs-4/packages/new-portal/sql/oracle/datasource-sc-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/datasource-sc-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/new-portal/sql/oracle/datasource-sc-drop.sql	15 Nov 2001 19:20:32 -0000	1.3
+++ openacs-4/packages/new-portal/sql/oracle/datasource-sc-drop.sql	15 Nov 2001 21:49:59 -0000	1.4
@@ -76,6 +76,37 @@
 	  );
 
 
+	  -- drop Link
+	  op_id := acs_sc_operation.get_id (
+		  contract_name => 'portal_datasource',
+		  operation_name => 'Link'
+	  );
+	  
+	  acs_sc_operation.delete (
+		  operation_id => op_id,
+		  contract_name => 'portal_datasource',
+		  operation_name => 'Link'
+	  );
+
+	  msg_type_id := acs_sc_msg_type.get_id (
+		  msg_type_name => 'portal_datasource.Link.InputType'
+	  );
+
+	  acs_sc_msg_type.delete (
+		  msg_type_name => 'portal_datasource.Link.InputType',
+		  msg_type_id => msg_type_id
+	  );
+
+	  msg_type_id := acs_sc_msg_type.get_id (
+		  msg_type_name => 'portal_datasource.Link.OutputType'
+	  );
+
+	  acs_sc_msg_type.delete (
+		  msg_type_name => 'portal_datasource.Link.OutputType',
+		  msg_type_id => msg_type_id
+	  );
+
+
 	  -- Drop add_self_to_page
 	  op_id := acs_sc_operation.get_id (
 		  contract_name => 'portal_datasource',
@@ -138,6 +169,37 @@
 	  );
 
 
+	  -- Delete Edit
+	  op_id := acs_sc_operation.get_id (
+		  contract_name => 'portal_datasource',
+		  operation_name => 'Edit'
+	  );
+	  
+	  acs_sc_operation.delete (
+		  operation_id => op_id,
+		  contract_name => 'portal_datasource',
+		  operation_name => 'Edit'
+	  );
+
+	  msg_type_id := acs_sc_msg_type.get_id (
+		  msg_type_name => 'portal_datasource.Edit.InputType'
+	  );
+
+	  acs_sc_msg_type.delete (
+		  msg_type_name => 'portal_datasource.Edit.InputType',
+		  msg_type_id => msg_type_id
+	  );
+
+	  msg_type_id := acs_sc_msg_type.get_id (
+		  msg_type_name => 'portal_datasource.Edit.OutputType'
+	  );
+
+	  acs_sc_msg_type.delete (
+		  msg_type_name => 'portal_datasource.Edit.OutputType',
+		  msg_type_id => msg_type_id
+	  );
+
+
 	  -- rem RemoveSelfFromPage
 	  op_id := acs_sc_operation.get_id (
 		  contract_name => 'portal_datasource',