Index: openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	26 Jul 2002 21:15:00 -0000	1.13
+++ openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	26 Jul 2002 23:34:21 -0000	1.14
@@ -116,7 +116,7 @@
     ad_proc -public add_portlet {
         portal_id
     } {
-        set type [dotlrn::dotlrn::get_type_from_portal_id -portal_id $portal_id]
+        set type [dotlrn::get_type_from_portal_id -portal_id $portal_id]
 
         if {![string equal $type user] && ![string equal $type dotlrn_community] && ![string equal $type dotlrn_club]} {
             add_portlet_helper $portal_id
Index: openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-create.sql	26 Jul 2002 21:10:53 -0000	1.1
+++ openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-create.sql	26 Jul 2002 23:34:21 -0000	1.2
@@ -28,8 +28,8 @@
 begin
 
     ds_id := portal_datasource.new(
-        'research_admin_portlet',
-        'Displays the research paper portlet'
+        name => 'research_admin_portlet',
+        description => 'Displays the research paper admin portlet'
     );
 
     portal_datasource.set_def_param(
@@ -72,7 +72,7 @@
         't'
     );
 
-    acs_sc_impl.new(
+    foo := acs_sc_impl.new(
         'portal_datasource',
         'research_admin_portlet',
         'research_admin_portlet'
@@ -135,8 +135,8 @@
     );
 
     acs_sc_binding.new(
-        'portal_datasource',
-        'research_admin_portlet'
+        contract_name => 'portal_datasource',
+        impl_name => 'research_admin_portlet'
     );
 
 end;
Index: openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-drop.sql	26 Jul 2002 21:10:53 -0000	1.1
+++ openacs-4/packages/research-portlet/sql/oracle/research-portlet-admin-sc-drop.sql	26 Jul 2002 23:34:21 -0000	1.2
@@ -79,13 +79,13 @@
     );
 
     acs_sc_binding.delete(
-        'portal_datasource',
-        'research_admin_portlet'
+        contract_name => 'portal_datasource',
+        impl_name => 'research_admin_portlet'
     );
 
     acs_sc_impl.delete(
-        'portal_datasource',
-        'research_admin_portlet'
+        impl_contract_name => 'portal_datasource',
+        impl_name => 'research_admin_portlet'
     );
 
 end;
Index: openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-create.sql	26 Jul 2002 21:10:53 -0000	1.1
+++ openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-create.sql	26 Jul 2002 23:34:21 -0000	1.2
@@ -28,8 +28,8 @@
 begin
 
     ds_id := portal_datasource.new(
-        'research_portlet',
-        'Displays the research paper portlet'
+        name => 'research_portlet',
+        description => 'Displays the research paper portlet'
     );
 
     portal_datasource.set_def_param(
@@ -80,7 +80,7 @@
         ''
     );
 
-    acs_sc_impl.new(
+    foo := acs_sc_impl.new(
         'portal_datasource',
         'research_portlet',
         'research_portlet'
@@ -143,8 +143,8 @@
     );
 
     acs_sc_binding.new(
-        'portal_datasource',
-        'research_portlet'
+        contract_name => 'portal_datasource',
+        impl_name => 'research_portlet'
     );
 
 end;
Index: openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-drop.sql	26 Jul 2002 21:10:53 -0000	1.1
+++ openacs-4/packages/research-portlet/sql/oracle/research-portlet-sc-drop.sql	26 Jul 2002 23:34:21 -0000	1.2
@@ -79,13 +79,13 @@
     );
 
     acs_sc_binding.delete(
-        'portal_datasource',
-        'research_portlet'
+        contract_name => 'portal_datasource',
+        impl_name => 'research_portlet'
     );
 
     acs_sc_impl.delete(
-        'portal_datasource',
-        'research_portlet'
+        impl_contract_name => 'portal_datasource',
+        impl_name => 'research_portlet'
     );
 
 end;