Index: openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-create.sql	17 Sep 2003 14:48:17 -0000	1.3
+++ openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -92,6 +92,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'portal_datasource',
         impl_name => 'bm_portlet',
+	impl_pretty_name => 'Bulk mail portlet',
         impl_owner_name => 'bm_portlet'
     );
 
Index: openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-drop.sql	9 Aug 2002 18:39:30 -0000	1.2
+++ openacs-4/packages/bm-portlet/sql/oracle/bm-portlet-drop.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -36,7 +36,7 @@
     end;
 
     if ds_id is not null then
-        portal_datasource.delete(ds_id);
+        portal_datasource.del(ds_id);
     end if;
 
     foo := acs_sc_impl.delete_alias (
@@ -81,12 +81,12 @@
         'RemoveSelfFromPage'
     );
 
-    acs_sc_binding.delete (
+    acs_sc_binding.del (
         contract_name => 'portal_datasource',
         impl_name => 'bm_portlet'
     );
 
-    acs_sc_impl.delete (
+    acs_sc_impl.del (
         'portal_datasource',
         'bm_portlet'
     );
Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-admin-portlet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-admin-portlet-create.sql	17 Sep 2003 13:59:12 -0000	1.5
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-admin-portlet-create.sql	30 Sep 2003 13:11:39 -0000	1.6
@@ -133,6 +133,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'calendar_admin_portlet',
+		impl_pretty_name => 'Calendar admin portlet',
 		impl_owner_name => 'calendar_admin_portlet'
 	);
 
Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql	17 Sep 2003 13:59:12 -0000	1.6
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql	30 Sep 2003 13:11:39 -0000	1.7
@@ -141,6 +141,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'calendar_full_portlet',
+		impl_pretty_name => 'Calendar Full portlet',
 		impl_owner_name => 'calendar_full_portlet'
 	);
 
Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-list-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-list-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-list-portlet-create.sql	17 Sep 2003 13:59:12 -0000	1.3
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-list-portlet-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -128,6 +128,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'calendar_list_portlet',
+		impl_pretty_name => 'Calendar List POrtlet',
 		impl_owner_name => 'calendar_list_portlet'
 	);
 
Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql	17 Sep 2003 13:59:12 -0000	1.21
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql	30 Sep 2003 13:11:39 -0000	1.22
@@ -141,6 +141,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'calendar_portlet',
+		impl_pretty_name => 'Calendar Portlet',
 		impl_owner_name => 'calendar_portlet'
 	);
 
Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql	9 Aug 2002 18:39:31 -0000	1.6
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-drop.sql	30 Sep 2003 13:11:39 -0000	1.7
@@ -42,7 +42,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -98,13 +98,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'calendar_portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'calendar_portlet'
 	);
Index: openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-create.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-create.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_admin_profile_provider',
+        impl_pretty_name => 'Dotlrn admin profile provider',
         impl_owner_name => 'dotlrn_admin_profile_provider'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-drop.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/admin-profile-provider-drop.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -27,7 +27,7 @@
 
     -- drop the binding between this implementation and the interface it
     -- implements.
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'profile_provider',
         impl_name => 'dotlrn_admin_profile_provider'
     );
@@ -56,7 +56,7 @@
         );
 
     -- drop the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_admin_profile_provider'
     );
Index: openacs-4/packages/dotlrn/sql/oracle/admins-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/admins-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/admins-package-create.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/admins-package-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -35,7 +35,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_user_profile_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_admin_profile_rels.rel_id%TYPE
     );
 
@@ -92,16 +92,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_admin_profile_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_admin_profile_rels
-        where rel_id = dotlrn_admin_profile_rel.delete.rel_id;
+        where rel_id = dotlrn_admin_profile_rel.del.rel_id;
 
-        dotlrn_user_profile_rel.delete(rel_id);
+        dotlrn_user_profile_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/admins-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/admins-sanitize.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/admins-sanitize.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/admins-sanitize.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -30,7 +30,7 @@
     from rel_segments
     where segment_name = 'dotLRN Admins';
 
-    rel_segment.delete(
+    rel_segment.del(
         segment_id => foo
     );
 
@@ -45,7 +45,7 @@
     from dotlrn_user_types
     where group_id = foo;
 
-    profiled_group.delete(
+    profiled_group.del(
         group_id => foo
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/applet-sc-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/applet-sc-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/applet-sc-drop.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/applet-sc-drop.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -24,176 +24,176 @@
 declare
 begin
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'GetPrettyName'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.GetPrettyName.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.GetPrettyName.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'AddApplet'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddApplet.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddApplet.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'RemoveApplet'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveApplet.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveApplet.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'AddAppletToCommunity'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddAppletToCommunity.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddAppletToCommunity.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'RemoveAppletFromCommunity'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveAppletFromCommunity.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveAppletFromCommunity.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'AddUser'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddUser.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddUser.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'RemoveUser'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveUser.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveUser.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'AddUserToCommunity'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddUserToCommunity.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddUserToCommunity.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'RemoveUserFromCommunity'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveUserFromCommunity.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemoveUserFromCommunity.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'AddPortlet'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddPortlet.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.AddPortlet.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'RemovePortlet'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemovePortlet.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.RemovePortlet.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'Clone'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.Clone.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.Clone.OutputType'
     );
 
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'dotlrn_applet',
         operation_name => 'ChangeEventHandler'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.ChangeEventHandler.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'dotlrn_applet.ChangeEventHandler.OutputType'
     );
 
-    acs_sc_contract.delete(
+    acs_sc_contract.del(
         contract_name => 'dotlrn_applet'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/classes-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/classes-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/sql/oracle/classes-create.sql	9 Aug 2002 18:39:24 -0000	1.5
+++ openacs-4/packages/dotlrn/sql/oracle/classes-create.sql	30 Sep 2003 13:11:39 -0000	1.6
@@ -163,7 +163,7 @@
         context_id in acs_objects.context_id%TYPE default null
     ) return dotlrn_departments.department_key%TYPE;
 
-    procedure delete (
+    procedure del (
         department_key in dotlrn_departments.department_key%TYPE
     );
 end;
@@ -206,7 +206,7 @@
         return v_department_key;
     end;
 
-    procedure delete (
+    procedure del (
         department_key in dotlrn_departments.department_key%TYPE
     )
     is
@@ -215,7 +215,7 @@
         from dotlrn_departments
         where department_key = department_key;
 
-        dotlrn_community_type.delete(department_key);
+        dotlrn_community_type.del(department_key);
     end;
 end;
 /
@@ -236,7 +236,7 @@
         context_id in acs_objects.context_id%TYPE default null
     ) return dotlrn_classes.class_key%TYPE;
 
-    procedure delete (
+    procedure del (
         class_key in dotlrn_classes.class_key%TYPE
     );
 end;
@@ -280,7 +280,7 @@
         return v_class_key;
     end;
 
-    procedure delete (
+    procedure del (
         class_key in dotlrn_classes.class_key%TYPE
     )
     is
@@ -289,7 +289,7 @@
         from dotlrn_classes
         where class_key = class_key;
 
-        dotlrn_community_type.delete(class_key);
+        dotlrn_community_type.del(class_key);
     end;
 end;
 /
@@ -314,7 +314,7 @@
         context_id in acs_objects.context_id%TYPE default null
     ) return dotlrn_class_instances.class_instance_id%TYPE;
 
-    procedure delete (
+    procedure del (
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE
     ); 
 end;
@@ -367,7 +367,7 @@
         return v_class_instance_id;
     end;
 
-    procedure delete (
+    procedure del (
         class_instance_id in dotlrn_class_instances.class_instance_id%TYPE
     )
     is
@@ -376,7 +376,7 @@
         from dotlrn_class_instances
         where class_instance_id= class_instance_id;
 
-        dotlrn_community.delete(community_id => class_instance_id);
+        dotlrn_community.del(community_id => class_instance_id);
     end;
 end;
 /
Index: openacs-4/packages/dotlrn/sql/oracle/clubs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/clubs-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/oracle/clubs-create.sql	9 Aug 2002 18:39:24 -0000	1.4
+++ openacs-4/packages/dotlrn/sql/oracle/clubs-create.sql	30 Sep 2003 13:11:39 -0000	1.5
@@ -59,7 +59,7 @@
         context_id in acs_objects.context_id%TYPE default null
     ) return dotlrn_clubs.club_id%TYPE;
 
-    procedure delete (
+    procedure del (
         club_id in dotlrn_clubs.club_id%TYPE
     );
 end;
@@ -108,16 +108,16 @@
         return v_club_id;
     end;
 
-    procedure delete (
+    procedure del (
         club_id in dotlrn_clubs.club_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_clubs
-        where club_id = dotlrn_club.delete.club_id;
+        where club_id = dotlrn_club.del.club_id;
 
-        dotlrn_community.delete(community_id => club_id);
+        dotlrn_community.del(community_id => club_id);
     end;
 end;
 /
Index: openacs-4/packages/dotlrn/sql/oracle/communities-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/communities-package-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/oracle/communities-package-create.sql	9 Aug 2002 18:39:24 -0000	1.4
+++ openacs-4/packages/dotlrn/sql/oracle/communities-package-create.sql	30 Sep 2003 13:11:39 -0000	1.5
@@ -29,7 +29,7 @@
         context_id in acs_objects.context_id%TYPE default null
     ) return dotlrn_community_types.community_type%TYPE;
 
-    procedure delete (
+    procedure del (
         community_type in dotlrn_community_types.community_type%TYPE
     );
 
@@ -102,20 +102,20 @@
         return community_type;
     end;
 
-    procedure delete (
+    procedure del (
         community_type in dotlrn_community_types.community_type%TYPE
     )
     is
     begin
         delete
         from dotlrn_community_types
-        where community_type = dotlrn_community_type.delete.community_type;
+        where community_type = dotlrn_community_type.del.community_type;
 
         delete
         from group_types
-        where group_types.group_type = dotlrn_community_type.delete.community_type;
+        where group_types.group_type = dotlrn_community_type.del.community_type;
 
-        acs_object_type.drop_type(dotlrn_community_type.delete.community_type);
+        acs_object_type.drop_type(dotlrn_community_type.del.community_type);
     end;
 
     function name (
@@ -162,7 +162,7 @@
         end_date in dotlrn_communities_all.active_end_date%TYPE
     );
 
-    procedure delete (
+    procedure del (
         community_id in dotlrn_communities_all.community_id%TYPE
     );
 
@@ -265,16 +265,16 @@
         where dotlrn_communities_all.community_id = dotlrn_community.set_active_dates.community_id;
     end;
 
-    procedure delete (
+    procedure del (
         community_id in dotlrn_communities_all.community_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_communities_all
-        where dotlrn_communities_all.community_id = dotlrn_community.delete.community_id;
+        where dotlrn_communities_all.community_id = dotlrn_community.del.community_id;
 
-        acs_group.delete(dotlrn_community.delete.community_id);
+        acs_group.del(dotlrn_community.del.community_id);
     end;
 
     function name (
Index: openacs-4/packages/dotlrn/sql/oracle/community-memberships-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/community-memberships-packages-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/oracle/community-memberships-packages-create.sql	9 Aug 2002 18:39:24 -0000	1.4
+++ openacs-4/packages/dotlrn/sql/oracle/community-memberships-packages-create.sql	30 Sep 2003 13:11:39 -0000	1.5
@@ -35,7 +35,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_member_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_member_rels.rel_id%TYPE
     );
 
@@ -77,16 +77,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_member_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_member_rels
-        where rel_id = dotlrn_member_rel.delete.rel_id;
+        where rel_id = dotlrn_member_rel.del.rel_id;
 
-        membership_rel.delete(rel_id);
+        membership_rel.del(rel_id);
     end;
 
 end;
@@ -106,7 +106,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_admin_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_admin_rels.rel_id%TYPE
     );
 
@@ -148,16 +148,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_admin_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_admin_rels
-        where rel_id = dotlrn_admin_rel.delete.rel_id;
+        where rel_id = dotlrn_admin_rel.del.rel_id;
 
-        dotlrn_member_rel.delete(rel_id);
+        dotlrn_member_rel.del(rel_id);
     end;
 
 end;
@@ -177,7 +177,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_student_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_student_rels.rel_id%TYPE
     );
 
@@ -219,16 +219,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_student_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_student_rels
-        where rel_id = dotlrn_student_rel.delete.rel_id;
+        where rel_id = dotlrn_student_rel.del.rel_id;
 
-        dotlrn_member_rel.delete(rel_id);
+        dotlrn_member_rel.del(rel_id);
     end;
 
 end;
@@ -248,7 +248,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_ta_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_ta_rels.rel_id%TYPE
     );
 
@@ -290,16 +290,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_ta_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_ta_rels
-        where rel_id = dotlrn_ta_rel.delete.rel_id;
+        where rel_id = dotlrn_ta_rel.del.rel_id;
 
-        dotlrn_admin_rel.delete(rel_id);
+        dotlrn_admin_rel.del(rel_id);
     end;
 
 end;
@@ -319,7 +319,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_ca_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_ca_rels.rel_id%TYPE
     );
 
@@ -361,16 +361,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_ca_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_ca_rels
-        where rel_id = dotlrn_ca_rel.delete.rel_id;
+        where rel_id = dotlrn_ca_rel.del.rel_id;
 
-        dotlrn_admin_rel.delete(rel_id);
+        dotlrn_admin_rel.del(rel_id);
     end;
 
 end;
@@ -390,7 +390,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_cadmin_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_cadmin_rels.rel_id%TYPE
     );
 
@@ -432,16 +432,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_cadmin_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_cadmin_rels
-        where rel_id = dotlrn_cadmin_rel.delete.rel_id;
+        where rel_id = dotlrn_cadmin_rel.del.rel_id;
 
-        dotlrn_admin_rel.delete(rel_id);
+        dotlrn_admin_rel.del(rel_id);
     end;
 
 end;
@@ -461,7 +461,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_instructor_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_instructor_rels.rel_id%TYPE
     );
 
@@ -503,16 +503,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_instructor_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_instructor_rels
-        where rel_id = dotlrn_instructor_rel.delete.rel_id;
+        where rel_id = dotlrn_instructor_rel.del.rel_id;
 
-        dotlrn_admin_rel.delete(rel_id);
+        dotlrn_admin_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/dotlrn-sanitize.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-sanitize.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-sanitize.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -130,12 +130,12 @@
     );
 
     -- drop the dotlrn_club community type
-    dotlrn_community_type.delete(
+    dotlrn_community_type.del(
         community_type => 'dotlrn_club'
     );
 
     -- drop the dotlrn_class community type
-    dotlrn_community_type.delete(
+    dotlrn_community_type.del(
         community_type => 'dotlrn_class_instance'
     );
 
@@ -170,7 +170,7 @@
     );
 
     -- drop the base community type
-    dotlrn_community_type.delete(
+    dotlrn_community_type.del(
         community_type => 'dotlrn_community'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-create.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-create.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_external_profile_provider',
+        impl_pretty_name => 'Dotlrn external profile provider',
         impl_owner_name => 'dotlrn_external_profile_provider'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-drop.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/external-profile-provider-drop.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -27,7 +27,7 @@
 
     -- drop the binding between this implementation and the interface it
     -- implements.
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'profile_provider',
         impl_name => 'dotlrn_external_profile_provider'
     );
@@ -56,7 +56,7 @@
         );
 
     -- drop the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_external_profile_provider'
     );
Index: openacs-4/packages/dotlrn/sql/oracle/externals-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/externals-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/externals-package-create.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/externals-package-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -35,7 +35,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_user_profile_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_external_profile_rels.rel_id%TYPE
     );
 
@@ -92,16 +92,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_external_profile_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_external_profile_rels
-        where rel_id = dotlrn_external_profile_rel.delete.rel_id;
+        where rel_id = dotlrn_external_profile_rel.del.rel_id;
 
-        dotlrn_user_profile_rel.delete(rel_id);
+        dotlrn_user_profile_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/externals-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/externals-sanitize.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/externals-sanitize.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/externals-sanitize.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -30,7 +30,7 @@
     from rel_segments
     where segment_name = 'dotLRN Externals';
 
-    rel_segment.delete(
+    rel_segment.del(
         segment_id => foo
     );
 
@@ -45,7 +45,7 @@
     from dotlrn_user_types
     where group_id = foo;
 
-    profiled_group.delete(
+    profiled_group.del(
         group_id => foo
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/main-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/main-portlet-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/oracle/main-portlet-create.sql	9 Aug 2002 18:39:24 -0000	1.4
+++ openacs-4/packages/dotlrn/sql/oracle/main-portlet-create.sql	30 Sep 2003 13:11:39 -0000	1.5
@@ -89,6 +89,7 @@
     foo := acs_sc_impl.new (
         impl_contract_name => 'portal_datasource',
         impl_name => 'dotlrn_main_portlet',
+        impl_pretty_name => 'Dotlrn main portlet',
         impl_owner_name => 'dotlrn_main_portlet'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/main-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/main-portlet-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/main-portlet-drop.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/main-portlet-drop.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -31,7 +31,7 @@
     foo integer;
 begin
 
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'portal_datasource',
         impl_name => 'dotlrn_main_portlet'
     );
@@ -78,7 +78,7 @@
         impl_operation_name => 'Edit'
     );
 
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'portal_datasource',
         impl_name => 'dotlrn_main_portlet'
     );
@@ -92,7 +92,7 @@
     end;
 
     if ds_id is not null then
-        portal_datasource.delete(ds_id);
+        portal_datasource.del(ds_id);
     end if;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-create.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-create.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_professor_profile_provider',
+        impl_pretty_name => 'Dotlrn professor profile provider',
         impl_owner_name => 'dotlrn_professor_profile_provider'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-drop.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/professor-profile-provider-drop.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -27,7 +27,7 @@
 
     -- drop the binding between this implementation and the interface it
     -- implements.
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'profile_provider',
         impl_name => 'dotlrn_professor_profile_provider'
     );
@@ -56,7 +56,7 @@
         );
 
     -- drop the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_professor_profile_provider'
     );
Index: openacs-4/packages/dotlrn/sql/oracle/professors-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/professors-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/professors-package-create.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/professors-package-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -35,7 +35,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_user_profile_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_professor_profile_rels.rel_id%TYPE
     );
 
@@ -92,16 +92,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_professor_profile_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_professor_profile_rels
-        where rel_id = dotlrn_professor_profile_rel.delete.rel_id;
+        where rel_id = dotlrn_professor_profile_rel.del.rel_id;
 
-        dotlrn_user_profile_rel.delete(rel_id);
+        dotlrn_user_profile_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/professors-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/professors-sanitize.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/professors-sanitize.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/professors-sanitize.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -30,7 +30,7 @@
     from rel_segments
     where segment_name = 'dotLRN Professors';
 
-    rel_segment.delete(
+    rel_segment.del(
         segment_id => foo
     );
 
@@ -45,7 +45,7 @@
     from dotlrn_user_types
     where group_id = foo;
 
-    profiled_group.delete(
+    profiled_group.del(
         group_id => foo
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-create.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-create.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_student_profile_provider',
+        impl_pretty_name => 'Dotlrn student profile provider',
         impl_owner_name => 'dotlrn_student_profile_provider'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-drop.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/student-profile-provider-drop.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -27,7 +27,7 @@
 
     -- drop the binding between this implementation and the interface it
     -- implements.
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'profile_provider',
         impl_name => 'dotlrn_student_profile_provider'
     );
@@ -56,7 +56,7 @@
         );
 
     -- drop the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_student_profile_provider'
     );
Index: openacs-4/packages/dotlrn/sql/oracle/students-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/students-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/students-package-create.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/students-package-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -35,7 +35,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_user_profile_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_student_profile_rels.rel_id%TYPE
     );
 
@@ -92,16 +92,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_student_profile_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_student_profile_rels
-        where rel_id = dotlrn_student_profile_rel.delete.rel_id;
+        where rel_id = dotlrn_student_profile_rel.del.rel_id;
 
-        dotlrn_user_profile_rel.delete(rel_id);
+        dotlrn_user_profile_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/students-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/students-sanitize.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/students-sanitize.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/students-sanitize.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -30,7 +30,7 @@
     from rel_segments
     where segment_name = 'dotLRN Students';
 
-    rel_segment.delete(
+    rel_segment.del(
         segment_id => foo
     );
 
@@ -45,7 +45,7 @@
     from dotlrn_user_types
     where group_id = foo;
 
-    profiled_group.delete(
+    profiled_group.del(
         group_id => foo
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/user-extension-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/user-extension-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/sql/oracle/user-extension-create.sql	17 Sep 2003 13:59:12 -0000	1.4
+++ openacs-4/packages/dotlrn/sql/oracle/user-extension-create.sql	30 Sep 2003 13:11:39 -0000	1.5
@@ -30,6 +30,7 @@
     foo := acs_sc_impl.new (
         impl_contract_name => 'UserData',
         impl_name => 'dotlrn_user_extension',
+        impl_pretty_name => 'Dotlrn user extension',
         impl_owner_name => 'dotlrn_user_extension'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/user-extension-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/user-extension-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/user-extension-drop.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/user-extension-drop.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -26,7 +26,7 @@
     foo integer;
 begin
 
-    acs_sc_binding.delete (
+    acs_sc_binding.del (
         contract_name => 'UserData',
         impl_name => 'dotlrn_user_extension'
     );
@@ -62,7 +62,7 @@
     );
 
     -- create the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         'UserData',
         'dotlrn_user_extension'
     );
Index: openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-create.sql	9 Aug 2002 18:39:24 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-create.sql	30 Sep 2003 13:11:39 -0000	1.3
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_user_profile_provider',
+        impl_pretty_name => 'Dotlrn user profile provider',
         impl_owner_name => 'dotlrn_user_profile_provider'
     );
 
Index: openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-drop.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/user-profile-provider-drop.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -27,7 +27,7 @@
 
     -- drop the binding between this implementation and the interface it
     -- implements.
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'profile_provider',
         impl_name => 'dotlrn_user_profile_provider'
     );
@@ -56,7 +56,7 @@
     );
 
     -- drop the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'profile_provider',
         impl_name => 'dotlrn_user_profile_provider'
     );
Index: openacs-4/packages/dotlrn/sql/oracle/users-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/users-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/users-package-create.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/users-package-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -35,7 +35,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return dotlrn_user_profile_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_user_profile_rels.rel_id%TYPE
     );
 
@@ -89,16 +89,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in dotlrn_user_profile_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from dotlrn_user_profile_rels
-        where rel_id = dotlrn_user_profile_rel.delete.rel_id;
+        where rel_id = dotlrn_user_profile_rel.del.rel_id;
 
-        user_profile_rel.delete(rel_id);
+        user_profile_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/dotlrn/sql/oracle/users-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/users-sanitize.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/sql/oracle/users-sanitize.sql	9 Aug 2002 18:39:24 -0000	1.3
+++ openacs-4/packages/dotlrn/sql/oracle/users-sanitize.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -35,15 +35,15 @@
     from acs_permissions
     where grantee_id = v_segment_id;
 
-    rel_segment.delete(
+    rel_segment.del(
         segment_id => v_segment_id
     );
 
     delete
     from acs_permissions
     where grantee_id = v_group_id;
 
-    profiled_group.delete(
+    profiled_group.del(
         group_id => v_group_id
     );
 
Index: openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	14 Aug 2002 19:22:24 -0000	1.22
+++ openacs-4/packages/dotlrn/tcl/community-procs-oracle.xql	30 Sep 2003 13:11:39 -0000	1.23
@@ -30,7 +30,7 @@
         <querytext>
             declare
             begin
-                :1 := dotlrn_community_type.delete(
+                :1 := dotlrn_community_type.del(
                     community_type => :community_type_key
                 );
             end;
Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.176 -r1.177
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	23 Sep 2003 17:46:59 -0000	1.176
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	30 Sep 2003 13:11:39 -0000	1.177
@@ -1846,10 +1846,10 @@
             # call the communitie's delete pl/sql, which removes the group
             db_exec_plsql \
                 remove_community \
-                "begin dotlrn_community.delete(:community_id); end;"
+                "begin dotlrn_community.del(:community_id); end;"
 
             # Remove the package
-            db_exec_plsql delete_package "begin acs_object.delete(:package_id) end;"
+            db_exec_plsql delete_package "begin acs_object.del(:package_id) end;"
         }
     }
 
Index: openacs-4/packages/dotlrn-bm/sql/oracle/dotlrn-bm-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/sql/oracle/dotlrn-bm-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-bm/sql/oracle/dotlrn-bm-create.sql	9 Aug 2002 18:39:27 -0000	1.3
+++ openacs-4/packages/dotlrn-bm/sql/oracle/dotlrn-bm-create.sql	30 Sep 2003 13:11:39 -0000	1.4
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_bm',
+        impl_pretty_name => 'dotlrn_bm',
         impl_owner_name => 'dotlrn_bm'
     );
 
Index: openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql	17 Sep 2003 13:59:12 -0000	1.9
+++ openacs-4/packages/dotlrn-calendar/sql/oracle/dotlrn-calendar-create.sql	30 Sep 2003 13:11:39 -0000	1.10
@@ -29,6 +29,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_calendar',
+		impl_pretty_name => 'dotlrn_calendar',
 		impl_owner_name => 'dotlrn_calendar'
 	);
 
Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql	17 Sep 2003 13:59:12 -0000	1.13
+++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql	30 Sep 2003 13:11:39 -0000	1.14
@@ -31,6 +31,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_dotlrn',
+		impl_pretty_name => 'dotlrn_dotlrn',
 		impl_owner_name => 'dotlrn_dotlrn'
 	);
 
Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql	17 Sep 2003 13:59:12 -0000	1.7
+++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-create.sql	30 Sep 2003 13:11:39 -0000	1.8
@@ -31,6 +31,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_members',
+		impl_pretty_name => 'dotlrn_members',
 		impl_owner_name => 'dotlrn_members'
 	);
 
Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql	17 Sep 2003 13:59:12 -0000	1.7
+++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql	30 Sep 2003 13:11:39 -0000	1.8
@@ -31,6 +31,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_members_staff',
+		impl_pretty_name => 'dotlrn_members_staff',
 		impl_owner_name => 'dotlrn_members_staff'
 	);
 
Index: openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql	17 Sep 2003 13:59:12 -0000	1.10
+++ openacs-4/packages/dotlrn-faq/sql/oracle/dotlrn-faq-create.sql	30 Sep 2003 13:11:40 -0000	1.11
@@ -31,6 +31,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_faq',
+		impl_pretty_name => 'dotlrn_faq',
 		impl_owner_name => 'dotlrn_faq'
 	);
 
Index: openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-admin-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-admin-portlet-create.sql	17 Sep 2003 13:59:12 -0000	1.3
+++ openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-admin-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.4
@@ -112,6 +112,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'dotlrn_forums_admin_portlet',
+		impl_pretty_name => 'dotlrn_forums_admin_portlet',
 		impl_owner_name => 'dotlrn_forums_admin_portlet'
 	);
 
Index: openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-create.sql	17 Sep 2003 13:59:12 -0000	1.5
+++ openacs-4/packages/dotlrn-forums/sql/oracle/dotlrn-forums-create.sql	30 Sep 2003 13:11:40 -0000	1.6
@@ -32,6 +32,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_forums',
+		impl_pretty_name => 'dotlrn_forums',
 		impl_owner_name => 'dotlrn_forums'
 	);
 
Index: openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql	17 Sep 2003 13:59:12 -0000	1.11
+++ openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql	30 Sep 2003 13:11:40 -0000	1.12
@@ -31,6 +31,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_fs',
+		impl_pretty_name => 'dotlrn_fs',
 		impl_owner_name => 'dotlrn_fs'
 	);
 
Index: openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql	17 Sep 2003 13:59:13 -0000	1.9
+++ openacs-4/packages/dotlrn-news/sql/oracle/dotlrn-news-create.sql	30 Sep 2003 13:11:40 -0000	1.10
@@ -31,6 +31,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_news',
+		impl_pretty_name => 'dotlrn_news',
 		impl_owner_name => 'dotlrn_news'
 	);
 
Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-admin-portlet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-admin-portlet-create.sql	17 Sep 2003 15:18:23 -0000	1.5
+++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-admin-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.6
@@ -110,6 +110,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'dotlrn_admin_portlet',
+		impl_pretty_name => 'dotlrn_admin_portlet',
 		impl_owner_name => 'dotlrn_admin_portlet'
 	);
 
Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.5
+++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.6
@@ -106,6 +106,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'dotlrn_members_portlet',
+		impl_pretty_name => 'dotlrn_members_portlet',
 		impl_owner_name => 'dotlrn_members_portlet'
 	);
 
Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.5
+++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-members-staff-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.6
@@ -107,6 +107,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'dotlrn_members_staff_portlet',
+		impl_pretty_name => 'dotlrn_members_staff_portlet',
 		impl_owner_name => 'dotlrn_members_staff_portlet'
 	);
 
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.14 -r1.15
--- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.14
+++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.15
@@ -109,6 +109,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'dotlrn_portlet',
+		impl_pretty_name => 'dotlrn_portlet',
 		impl_owner_name => 'dotlrn_portlet'
 	);
 
Index: openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-drop.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-drop.sql	9 Aug 2002 18:39:29 -0000	1.6
+++ openacs-4/packages/dotlrn-portlet/sql/oracle/dotlrn-portlet-drop.sql	30 Sep 2003 13:11:40 -0000	1.7
@@ -42,7 +42,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -98,13 +98,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'dotlrn_portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'dotlrn_portlet'
 	);
Index: openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql	11 Sep 2003 08:52:17 -0000	1.8
+++ openacs-4/packages/dotlrn-static/sql/oracle/dotlrn-static-create.sql	30 Sep 2003 13:11:40 -0000	1.9
@@ -29,6 +29,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'dotlrn_applet',
 		impl_name => 'dotlrn_static',
+		impl_pretty_name => 'dotlrn_static',
 		impl_owner_name => 'dotlrn_static'
 	);
 
Index: openacs-4/packages/dotlrn-survey/sql/oracle/dotlrn-survey-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-survey/sql/oracle/dotlrn-survey-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-survey/sql/oracle/dotlrn-survey-create.sql	14 May 2003 21:06:34 -0000	1.1
+++ openacs-4/packages/dotlrn-survey/sql/oracle/dotlrn-survey-create.sql	30 Sep 2003 13:11:40 -0000	1.2
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_survey',
+        impl_pretty_name => 'dotlrn_survey',
         impl_owner_name => 'dotlrn_survey'
     );
 
Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql	9 Aug 2002 18:39:30 -0000	1.5
+++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-create.sql	30 Sep 2003 13:11:40 -0000	1.6
@@ -30,6 +30,7 @@
     foo := acs_sc_impl.new (
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_syllabus',
+        impl_pretty_name => 'dotlrn_syllabus',
         impl_owner_name => 'dotlrn_syllabus'
     );
 
Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql	9 Aug 2002 18:39:30 -0000	1.2
+++ openacs-4/packages/dotlrn-syllabus/sql/oracle/dotlrn-syllabus-applet-drop.sql	30 Sep 2003 13:11:40 -0000	1.3
@@ -26,7 +26,7 @@
     foo                         integer;
 begin
 
-    acs_sc_binding.delete (
+    acs_sc_binding.del (
         contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_syllabus'
     );
@@ -87,7 +87,7 @@
         impl_operation_name => 'RemoveUserFromCommunity'
     );
 
-    acs_sc_impl.delete (
+    acs_sc_impl.del (
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_syllabus'
     );
Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql	17 Sep 2003 14:48:17 -0000	1.4
+++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.5
@@ -81,6 +81,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'portal_datasource',
         impl_name => 'syllabus_admin_portlet',
+        impl_pretty_name => 'syllabus_admin_portlet',
         impl_owner_name => 'syllabus_admin_portlet'
     );
 
Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql	9 Aug 2002 18:39:30 -0000	1.3
+++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-admin-portlet-drop.sql	30 Sep 2003 13:11:40 -0000	1.4
@@ -37,10 +37,10 @@
     end;
 
     if ds_id is not null then
-        portal_datasource.delete(ds_id);
+        portal_datasource.del(ds_id);
     end if;
 
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'portal_datasource',
         impl_name => 'syllabus_admin_portlet'
     );
@@ -87,7 +87,7 @@
         impl_operation_name => 'RemoveSelfFromPage'
     );
 
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'portal_datasource',
         impl_name => 'syllabus_admin_portlet'
     );
Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql	17 Sep 2003 14:48:17 -0000	1.4
+++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.5
@@ -80,6 +80,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'portal_datasource',
         impl_name => 'syllabus_portlet',
+        impl_pretty_name => 'syllabus_portlet',
         impl_owner_name => 'syllabus_portlet'
     );
 
Index: openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql	9 Aug 2002 18:39:30 -0000	1.3
+++ openacs-4/packages/dotlrn-syllabus/sql/oracle/syllabus-portlet-drop.sql	30 Sep 2003 13:11:40 -0000	1.4
@@ -37,10 +37,10 @@
     end;
 
     if ds_id is not null then
-        portal_datasource.delete(ds_id);
+        portal_datasource.del(ds_id);
     end if;
 
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'portal_datasource',
         impl_name => 'syllabus_portlet'
     );
@@ -87,7 +87,7 @@
         impl_operation_name => 'RemoveSelfFromPage'
     );
 
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'portal_datasource',
         impl_name => 'syllabus_portlet'
     );
Index: openacs-4/packages/faq-portlet/sql/oracle/faq-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/sql/oracle/faq-admin-portlet-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/faq-portlet/sql/oracle/faq-admin-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.6
+++ openacs-4/packages/faq-portlet/sql/oracle/faq-admin-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.7
@@ -92,6 +92,7 @@
     foo := acs_sc_impl.new (
         impl_contract_name => 'portal_datasource',
         impl_name => 'faq_admin_portlet',
+        impl_pretty_name => 'FAQ Admin Portlet',
         impl_owner_name => 'faq_admin_portlet'
     );
 
Index: openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-create.sql,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-create.sql	17 Sep 2003 14:48:17 -0000	1.14
+++ openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.15
@@ -99,6 +99,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'portal_datasource',
         impl_name => 'faq_portlet',
+        impl_pretty_name => 'FAQ Portlet',
         impl_owner_name => 'faq_portlet'
     );
 
Index: openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql	9 Aug 2002 18:39:31 -0000	1.6
+++ openacs-4/packages/faq-portlet/sql/oracle/faq-portlet-drop.sql	30 Sep 2003 13:11:40 -0000	1.7
@@ -42,7 +42,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -98,13 +98,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'faq_portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'faq_portlet'
 	);
Index: openacs-4/packages/forums-portlet/sql/oracle/forums-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/sql/oracle/forums-admin-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums-portlet/sql/oracle/forums-admin-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.3
+++ openacs-4/packages/forums-portlet/sql/oracle/forums-admin-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.4
@@ -110,6 +110,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'forums_admin_portlet',
+		impl_pretty_name => 'Forums admin portlet',
 		impl_owner_name => 'forums_admin_portlet'
 	);
 
Index: openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.3
+++ openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.4
@@ -121,6 +121,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'forums_portlet',
+		impl_pretty_name => 'Forums Portlet',
 		impl_owner_name => 'forums_portlet'
 	);
 
Index: openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-drop.sql	9 Aug 2002 18:39:31 -0000	1.2
+++ openacs-4/packages/forums-portlet/sql/oracle/forums-portlet-drop.sql	30 Sep 2003 13:11:40 -0000	1.3
@@ -42,7 +42,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -100,13 +100,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'forums_portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'forums_portlet'
 	);
Index: openacs-4/packages/fs-portlet/sql/oracle/fs-contents-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/sql/oracle/fs-contents-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/fs-portlet/sql/oracle/fs-contents-portlet-create.sql	17 Sep 2003 15:18:23 -0000	1.3
+++ openacs-4/packages/fs-portlet/sql/oracle/fs-contents-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.4
@@ -82,6 +82,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'portal_datasource',
         impl_name => 'fs_contents_portlet',
+        impl_pretty_name => 'FS Contents portlet',
         impl_owner_name => 'fs_contents_portlet'
     );
 
Index: openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql	17 Sep 2003 14:48:17 -0000	1.18
+++ openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-create.sql	30 Sep 2003 13:11:40 -0000	1.19
@@ -102,6 +102,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'portal_datasource',
         impl_name => 'fs_portlet',
+        impl_pretty_name => 'FS Portlet',
         impl_owner_name => 'fs_portlet'
     );
 
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.5 -r1.6
--- openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-drop.sql	9 Aug 2002 18:39:32 -0000	1.5
+++ openacs-4/packages/fs-portlet/sql/oracle/fs-portlet-drop.sql	30 Sep 2003 13:11:40 -0000	1.6
@@ -42,7 +42,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -98,13 +98,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'fs-portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'fs-portlet'
 	);
Index: openacs-4/packages/new-portal/sql/oracle/api-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/api-create.sql,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	9 Aug 2002 20:56:27 -0000	1.39
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	30 Sep 2003 13:11:40 -0000	1.40
@@ -38,7 +38,7 @@
         context_id                  in acs_objects.context_id%TYPE default null
     ) return portal_pages.page_id%TYPE;
 
-    procedure delete (
+    procedure del (
         page_id                     in portal_pages.page_id%TYPE
     );
 
@@ -96,7 +96,7 @@
 
     end new;
 
-    procedure delete (
+    procedure del (
         page_id                     in portal_pages.page_id%TYPE
     )
     is
@@ -111,7 +111,7 @@
         select portal_id, sort_key
         into v_portal_id, v_sort_key
         from portal_pages
-        where page_id = portal_page.delete.page_id;
+        where page_id = portal_page.del.page_id;
 
         select (count(*) - 1)
         into v_page_count_from_0
@@ -124,7 +124,7 @@
 
                 delete
                 from portal_pages
-                where page_id = portal_page.delete.page_id;
+                where page_id = portal_page.del.page_id;
 
             elsif i > v_sort_key then
 
@@ -140,9 +140,9 @@
 
         end loop;
 
-        acs_object.delete(page_id);
+        acs_object.del(page_id);
 
-    end delete;
+    end del;
 
 end portal_page;
 /
@@ -165,7 +165,7 @@
         context_id                  in acs_objects.context_id%TYPE default null
     ) return portals.portal_id%TYPE;
 
-    procedure delete (
+    procedure del (
         portal_id                   in portals.portal_id%TYPE
     );
 end portal;
@@ -313,23 +313,23 @@
 
     end new;
 
-    procedure delete (
+    procedure del (
         portal_id                   in portals.portal_id%TYPE
     )
     is
     begin
 
         for page in (select page_id
                      from portal_pages
-                     where portal_id = portal.delete.portal_id
+                     where portal_id = portal.del.portal_id
                      order by sort_key desc)
         loop
-            portal_page.delete(page_id => page.page_id);
+            portal_page.del(page_id => page.page_id);
         end loop;
 
-        acs_object.delete(portal_id);
+        acs_object.del(portal_id);
 
-    end delete;
+    end del;
 
 end portal;
 /
@@ -350,7 +350,7 @@
         context_id                  in acs_objects.context_id%TYPE default null
     ) return portal_element_themes.theme_id%TYPE;
 
-    procedure delete (
+    procedure del (
         theme_id                    in portal_element_themes.theme_id%TYPE
     );
 
@@ -395,13 +395,13 @@
 
     end new;
 
-    procedure delete (
+    procedure del (
         theme_id                    in portal_element_themes.theme_id%TYPE
     )
     is
     begin
-        acs_object.delete(theme_id);
-    end delete;
+        acs_object.del(theme_id);
+    end del;
 
 end portal_element_theme;
 /
@@ -423,7 +423,7 @@
         context_id                  in acs_objects.context_id%TYPE default null
     ) return portal_layouts.layout_id%TYPE;
 
-    procedure delete (
+    procedure del (
         layout_id                   in portal_layouts.layout_id%TYPE
     );
 
@@ -473,13 +473,13 @@
 
     end new;
 
-    procedure delete (
+    procedure del (
         layout_id                   in portal_layouts.layout_id%TYPE
     )
     is
     begin
-        acs_object.delete(layout_id);
-    end delete;
+        acs_object.del(layout_id);
+    end del;
 
     procedure add_region (
         layout_id                   in portal_supported_regions.layout_id%TYPE,
@@ -512,7 +512,7 @@
         context_id                  in acs_objects.context_id%TYPE default null
     ) return portal_datasources.datasource_id%TYPE;
 
-    procedure delete (
+    procedure del (
         datasource_id               in portal_datasources.datasource_id%TYPE
     );
 
@@ -563,13 +563,13 @@
 
     end new;
 
-    procedure delete (
+    procedure del (
         datasource_id               in portal_datasources.datasource_id%TYPE
     )
     is
     begin
-        acs_object.delete(datasource_id);
-    end delete;
+        acs_object.del(datasource_id);
+    end del;
 
     procedure set_def_param (
         datasource_id               in portal_datasource_def_params.datasource_id%TYPE,
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.9 -r1.10
--- openacs-4/packages/new-portal/sql/oracle/datasource-sc-drop.sql	9 Aug 2002 20:56:27 -0000	1.9
+++ openacs-4/packages/new-portal/sql/oracle/datasource-sc-drop.sql	30 Sep 2003 13:11:40 -0000	1.10
@@ -33,7 +33,7 @@
         operation_name => 'GetMyName'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'GetMyName'
@@ -43,7 +43,7 @@
         msg_type_name => 'portal_datasource.GetMyName.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.GetMyName.InputType',
         msg_type_id => msg_type_id
     );
@@ -52,7 +52,7 @@
         msg_type_name => 'portal_datasource.GetMyName.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.GetMyName.OutputType',
         msg_type_id => msg_type_id
     );
@@ -63,7 +63,7 @@
         operation_name => 'GetPrettyName'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'GetPrettyName'
@@ -73,7 +73,7 @@
         msg_type_name => 'portal_datasource.GetPrettyName.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.GetPrettyName.InputType',
         msg_type_id => msg_type_id
     );
@@ -82,7 +82,7 @@
         msg_type_name => 'portal_datasource.GetPrettyName.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.GetPrettyName.OutputType',
         msg_type_id => msg_type_id
     );
@@ -94,7 +94,7 @@
         operation_name => 'Link'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'Link'
@@ -104,7 +104,7 @@
         msg_type_name => 'portal_datasource.Link.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.Link.InputType',
         msg_type_id => msg_type_id
     );
@@ -113,7 +113,7 @@
         msg_type_name => 'portal_datasource.Link.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.Link.OutputType',
         msg_type_id => msg_type_id
     );
@@ -124,7 +124,7 @@
         operation_name => 'AddSelfToPage'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'AddSelfToPage'
@@ -134,7 +134,7 @@
         msg_type_name => 'portal_datasource.AddSelfToPage.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.AddSelfToPage.InputType',
         msg_type_id => msg_type_id
     );
@@ -143,7 +143,7 @@
         msg_type_name => 'portal_datasource.AddSelfToPage.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.AddSelfToPage.OutputType',
         msg_type_id => msg_type_id
     );
@@ -154,7 +154,7 @@
         operation_name => 'Show'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'Show'
@@ -164,7 +164,7 @@
         msg_type_name => 'portal_datasource.Show.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.Show.InputType',
         msg_type_id => msg_type_id
     );
@@ -173,7 +173,7 @@
         msg_type_name => 'portal_datasource.Show.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.Show.OutputType',
         msg_type_id => msg_type_id
     );
@@ -184,7 +184,7 @@
         operation_name => 'Edit'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'Edit'
@@ -194,7 +194,7 @@
         msg_type_name => 'portal_datasource.Edit.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.Edit.InputType',
         msg_type_id => msg_type_id
     );
@@ -203,7 +203,7 @@
         msg_type_name => 'portal_datasource.Edit.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.Edit.OutputType',
         msg_type_id => msg_type_id
     );
@@ -214,7 +214,7 @@
         operation_name => 'RemoveSelfFromPage'
     );
 
-    acs_sc_operation.delete (
+    acs_sc_operation.del (
         operation_id => op_id,
         contract_name => 'portal_datasource',
         operation_name => 'RemoveSelfFromPage'
@@ -224,25 +224,25 @@
         msg_type_name => 'portal_datasource.RemoveSelfFromPage.InputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.RemoveSelfFromPage.InputType',
         msg_type_id => msg_type_id
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_id := acs_sc_msg_type.get_id (
         msg_type_name => 'portal_datasource.RemoveSelfFromPage.OutputType'
     );
 
-    acs_sc_msg_type.delete (
+    acs_sc_msg_type.del (
         msg_type_name => 'portal_datasource.RemoveSelfFromPage.OutputType',
         msg_type_id => msg_type_id
     );
 
     -- drop the contract
     contract_id := acs_sc_contract.get_id ('portal_datasource');
 
-    acs_sc_contract.delete (
+    acs_sc_contract.del (
         contract_id => contract_id,
         contract_name => 'portal_datasource'
     );
Index: openacs-4/packages/new-portal/tcl/datasource-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/datasource-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/new-portal/tcl/datasource-procs-oracle.xql	17 Sep 2003 12:10:01 -0000	1.3
+++ openacs-4/packages/new-portal/tcl/datasource-procs-oracle.xql	30 Sep 2003 13:11:41 -0000	1.4
@@ -31,7 +31,7 @@
     <fullquery name="portal::datasource::delete.delete_datasource">
         <querytext>
            begin
-             portal_datasource.delete(
+             portal_datasource.del(
                datasource_id => :datasource_id
              );
            end;
Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	21 Aug 2002 15:22:39 -0000	1.20
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	30 Sep 2003 13:11:41 -0000	1.21
@@ -21,7 +21,7 @@
     <fullquery name="portal::delete.delete_portal">
         <querytext>
             begin
-                portal.delete(portal_id => :portal_id);
+                portal.del(portal_id => :portal_id);
             end;
         </querytext>
     </fullquery>
@@ -132,7 +132,7 @@
     <fullquery name="portal::page_delete.page_delete">
         <querytext>
             begin
-                portal_page.delete(page_id => :page_id);
+                portal_page.del(page_id => :page_id);
             end;
         </querytext>
     </fullquery>
Index: openacs-4/packages/news-portlet/sql/oracle/news-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/sql/oracle/news-admin-portlet-create.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/news-portlet/sql/oracle/news-admin-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.6
+++ openacs-4/packages/news-portlet/sql/oracle/news-admin-portlet-create.sql	30 Sep 2003 13:11:41 -0000	1.7
@@ -110,6 +110,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'news_admin_portlet',
+		impl_pretty_name => 'News admin portlet',
 		impl_owner_name => 'news_admin_portlet'
 	);
 
Index: openacs-4/packages/news-portlet/sql/oracle/news-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/sql/oracle/news-portlet-create.sql,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/news-portlet/sql/oracle/news-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.13
+++ openacs-4/packages/news-portlet/sql/oracle/news-portlet-create.sql	30 Sep 2003 13:11:41 -0000	1.14
@@ -109,6 +109,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'news_portlet',
+		impl_pretty_name => 'News portlet',
 		impl_owner_name => 'news_portlet'
 	);
 
Index: openacs-4/packages/news-portlet/sql/oracle/news-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/sql/oracle/news-portlet-drop.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/news-portlet/sql/oracle/news-portlet-drop.sql	9 Aug 2002 18:39:32 -0000	1.6
+++ openacs-4/packages/news-portlet/sql/oracle/news-portlet-drop.sql	30 Sep 2003 13:11:41 -0000	1.7
@@ -42,7 +42,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -98,13 +98,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'news_portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'news_portlet'
 	);
Index: openacs-4/packages/profile-provider/sql/oracle/profile-provider-contract-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/profile-provider/sql/oracle/profile-provider-contract-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/profile-provider/sql/oracle/profile-provider-contract-drop.sql	9 Aug 2002 20:56:32 -0000	1.3
+++ openacs-4/packages/profile-provider/sql/oracle/profile-provider-contract-drop.sql	30 Sep 2003 13:11:41 -0000	1.4
@@ -27,49 +27,49 @@
     -- drop the methods of this interface
 
     -- name method
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'profile_provider',
         operation_name => 'name'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'profile_provider.name.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'profile_provider.name.OutputType'
     );
 
     -- prettyName method
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'profile_provider',
         operation_name => 'prettyName'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'profile_provider.prettyName.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'profile_provider.prettyName.OutputType'
     );
 
     -- render method
-    acs_sc_operation.delete(
+    acs_sc_operation.del(
         contract_name => 'profile_provider',
         operation_name => 'render'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'profile_provider.render.InputType'
     );
 
-    acs_sc_msg_type.delete(
+    acs_sc_msg_type.del(
         msg_type_name => 'profile_provider.render.OutputType'
     );
 
     -- create the interface
-    acs_sc_contract.delete(
+    acs_sc_contract.del(
         contract_name => 'profile_provider'
     );
 
Index: openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql	9 Aug 2002 20:56:32 -0000	1.4
+++ openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql	30 Sep 2003 13:11:41 -0000	1.5
@@ -64,7 +64,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return profiled_groups.group_id%TYPE;
 
-    procedure delete (
+    procedure del (
         group_id in profiled_groups.group_id%TYPE
     );
 end profiled_group;
@@ -107,16 +107,16 @@
         return v_group_id;
     end new;
 
-    procedure delete (
+    procedure del (
         group_id in profiled_groups.group_id%TYPE
     ) is
     begin
         delete
         from profiled_groups
-        where profiled_groups.group_id = profiled_group.delete.group_id;
+        where profiled_groups.group_id = profiled_group.del.group_id;
 
-        acs_group.delete(group_id);
-    end delete;
+        acs_group.del(group_id);
+    end del;
 end profiled_group;
 /
 show errors
Index: openacs-4/packages/static-portlet/sql/oracle/static-admin-portlet.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/sql/oracle/static-admin-portlet.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/static-portlet/sql/oracle/static-admin-portlet.sql	17 Sep 2003 13:59:13 -0000	1.6
+++ openacs-4/packages/static-portlet/sql/oracle/static-admin-portlet.sql	30 Sep 2003 13:11:41 -0000	1.7
@@ -110,6 +110,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'static_admin_portlet',
+		impl_pretty_name => 'static_admin_portlet',
 		impl_owner_name => 'static_admin_portlet'
 	);
 
Index: openacs-4/packages/static-portlet/sql/oracle/static-core.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/sql/oracle/static-core.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/static-portlet/sql/oracle/static-core.sql	9 Aug 2002 18:39:33 -0000	1.6
+++ openacs-4/packages/static-portlet/sql/oracle/static-core.sql	30 Sep 2003 13:11:41 -0000	1.7
@@ -74,7 +74,7 @@
         context_id      in acs_objects.context_id%TYPE default null
     ) return acs_objects.object_id%TYPE;
 
-    procedure delete (
+    procedure del (
         content_id      in static_portal_content.content_id%TYPE
     );
 
@@ -113,15 +113,15 @@
         return v_content_id;        
     end new;
 
-    procedure delete (
+    procedure del (
         content_id    in static_portal_content.content_id%TYPE
     )        
     is
     begin 
         delete from static_portal_content where content_id = content_id;
 
-        acs_object.delete(content_id);
-    end delete;
+        acs_object.del(content_id);
+    end del;
 
 end static_portal_content_item;
 /
Index: openacs-4/packages/static-portlet/sql/oracle/static-portlet.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/sql/oracle/static-portlet.sql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/static-portlet/sql/oracle/static-portlet.sql	17 Sep 2003 13:59:13 -0000	1.6
+++ openacs-4/packages/static-portlet/sql/oracle/static-portlet.sql	30 Sep 2003 13:11:41 -0000	1.7
@@ -118,6 +118,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'static_portlet',
+		impl_pretty_name => 'static_portlet',
 		impl_owner_name => 'static_portlet'
 	);
 
Index: openacs-4/packages/survey-portlet/sql/oracle/survey-admin-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey-portlet/sql/oracle/survey-admin-portlet-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey-portlet/sql/oracle/survey-admin-portlet-create.sql	17 Sep 2003 13:59:13 -0000	1.2
+++ openacs-4/packages/survey-portlet/sql/oracle/survey-admin-portlet-create.sql	30 Sep 2003 13:11:41 -0000	1.3
@@ -110,6 +110,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'survey_admin_portlet',
+		impl_pretty_name => 'Survey admin portlet',
 		impl_owner_name => 'survey_admin_portlet'
 	);
 
Index: openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-create.sql	17 Sep 2003 14:48:17 -0000	1.2
+++ openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-create.sql	30 Sep 2003 13:11:41 -0000	1.3
@@ -111,6 +111,7 @@
 	foo := acs_sc_impl.new (
 		impl_contract_name => 'portal_datasource',
 		impl_name => 'survey_portlet',
+		impl_pretty_name => 'Survey portlet',
 		impl_owner_name => 'survey_portlet'
 	);
 
Index: openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-drop.sql	14 May 2003 21:06:59 -0000	1.1
+++ openacs-4/packages/survey-portlet/sql/oracle/survey-portlet-drop.sql	30 Sep 2003 13:11:41 -0000	1.2
@@ -43,7 +43,7 @@
   end;
 
   if ds_id is not null then
-    portal_datasource.delete(ds_id);
+    portal_datasource.del(ds_id);
   end if;
 
 end;
@@ -101,13 +101,13 @@
 	);
 
 	-- Drop the binding
-	acs_sc_binding.delete (
+	acs_sc_binding.del (
 	    contract_name => 'portal_datasource',
 	    impl_name => 'survey_portlet'
 	);
 
 	-- drop the impl
-	foo := acs_sc_impl.delete (
+	foo := acs_sc_impl.del (
 		'portal_datasource',
 		'survey_portlet'
 	);
Index: openacs-4/packages/user-profile/sql/oracle/user-profile-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-profile/sql/oracle/user-profile-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/user-profile/sql/oracle/user-profile-package-create.sql	9 Aug 2002 20:56:32 -0000	1.3
+++ openacs-4/packages/user-profile/sql/oracle/user-profile-package-create.sql	30 Sep 2003 13:11:42 -0000	1.4
@@ -32,7 +32,7 @@
         creation_ip in acs_objects.creation_ip%TYPE default null
     ) return user_profile_rels.rel_id%TYPE;
 
-    procedure delete (
+    procedure del (
         rel_id in user_profile_rels.rel_id%TYPE
     );
 
@@ -83,16 +83,16 @@
         return v_rel_id;
     end;
 
-    procedure delete (
+    procedure del (
         rel_id in user_profile_rels.rel_id%TYPE
     )
     is
     begin
         delete
         from user_profile_rels
-        where rel_id = user_profile_rel.delete.rel_id;
+        where rel_id = user_profile_rel.del.rel_id;
 
-        membership_rel.delete(rel_id);
+        membership_rel.del(rel_id);
     end;
 
 end;
Index: openacs-4/packages/user-profile/sql/oracle/user-profile-provider-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-profile/sql/oracle/user-profile-provider-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/user-profile/sql/oracle/user-profile-provider-create.sql	9 Aug 2002 20:56:32 -0000	1.3
+++ openacs-4/packages/user-profile/sql/oracle/user-profile-provider-create.sql	30 Sep 2003 13:11:42 -0000	1.4
@@ -29,6 +29,7 @@
     foo := acs_sc_impl.new(
         impl_contract_name => 'profile_provider',
         impl_name => 'user_profile_provider',
+        impl_pretty_name => 'User profile provider',
         impl_owner_name => 'user_profile_provider'
     );
 
Index: openacs-4/packages/user-profile/sql/oracle/user-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-profile/sql/oracle/user-profile-provider-drop.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/user-profile/sql/oracle/user-profile-provider-drop.sql	9 Aug 2002 20:56:32 -0000	1.3
+++ openacs-4/packages/user-profile/sql/oracle/user-profile-provider-drop.sql	30 Sep 2003 13:11:42 -0000	1.4
@@ -27,7 +27,7 @@
 
     -- drop the binding between this implementation and the interface it
     -- implements.
-    acs_sc_binding.delete(
+    acs_sc_binding.del(
         contract_name => 'profile_provider',
         impl_name => 'user_profile_provider'
     );
@@ -56,7 +56,7 @@
         );
 
     -- drop the implementation
-    acs_sc_impl.delete(
+    acs_sc_impl.del(
         impl_contract_name => 'profile_provider',
         impl_name => 'user_profile_provider'
     );
Index: openacs-4/packages/user-profile/sql/oracle/user-profile-sanitize.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-profile/sql/oracle/user-profile-sanitize.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/user-profile/sql/oracle/user-profile-sanitize.sql	9 Aug 2002 20:56:32 -0000	1.3
+++ openacs-4/packages/user-profile/sql/oracle/user-profile-sanitize.sql	30 Sep 2003 13:11:42 -0000	1.4
@@ -30,7 +30,7 @@
     from rel_segments
     where segment_name = 'Profiled Users';
 
-    rel_segment.delete(
+    rel_segment.del(
         segment_id => foo
     );
 
@@ -41,7 +41,7 @@
                               from acs_sc_impls
                               where impl_name = 'user_profile_provider');
 
-    profiled_group.delete(
+    profiled_group.del(
         group_id => foo
     );