Index: openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admin-profile-provider-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/postgresql/Attic/dotlrn-admin-profile-provider-drop.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admin-profile-provider-drop.sql	29 Mar 2002 19:14:44 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/postgresql/dotlrn-admin-profile-provider-drop.sql	2 Jul 2002 18:40:08 -0000	1.3
@@ -18,49 +18,55 @@
 -- Implementation of the profile provider interface for dotLRN Admins.
 --
 -- @author <a href="mailto:yon@openforce.net">yon@openforce.net</a>
+-- @author dan chak (chak@openforce.net)
 -- @version $Id$
 --
 
+create function inline_0()
+returns integer as '
 declare
     foo                         integer;
 begin
 
     -- drop the binding between this implementation and the interface it
-    -- implements.
-    acs_sc_binding.delete(
-        contract_name => 'profile_provider',
-        impl_name => 'dotlrn_admin_profile_provider'
+    -- implements
+    perform acs_sc_binding__delete(
+        ''profile_provider'',
+        ''dotlrn_admin_profile_provider''
     );
 
     -- drop the bindings to the method implementations
 
         -- name method
-        foo := acs_sc_impl.delete_alias(
-            impl_contract_name => 'profile_provider',
-            impl_name => 'dotlrn_admin_profile_provider',
-            impl_operation_name => 'name'
+        perform acs_sc_impl_alias__delete(
+            ''profile_provider'',
+            ''dotlrn_admin_profile_provider'',
+            ''name''
         );
 
         -- prettyName method
-        foo := acs_sc_impl.delete_alias(
-            impl_contract_name => 'profile_provider',
-            impl_name => 'dotlrn_admin_profile_provider',
-            impl_operation_name => 'prettyName'
+        perform acs_sc_impl_alias__delete(
+            ''profile_provider'',
+            ''dotlrn_admin_profile_provider'',
+            ''prettyName''
         );
 
         -- render method
-        foo := acs_sc_impl.delete_alias(
-            impl_contract_name => 'profile_provider',
-            impl_name => 'dotlrn_admin_profile_provider',
-            impl_operation_name => 'render'
+        perform acs_sc_impl_alias__delete(
+            ''profile_provider'',
+            ''dotlrn_admin_profile_provider'',
+            ''render''
         );
 
     -- drop the implementation
-    acs_sc_impl.delete(
-        impl_contract_name => 'profile_provider',
-        impl_name => 'dotlrn_admin_profile_provider'
+    perform acs_sc_impl__delete(
+        ''profile_provider'',
+        ''dotlrn_admin_profile_provider''
     );
 
+    return 0;
 end;
-/
-show errors
+' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
