Index: openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.1.0a4-5.1.0a5.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.1.0a4-5.1.0a5.sql,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.1.0a4-5.1.0a5.sql	24 Feb 2005 13:33:18 -0000	1.3
+++ openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.1.0a4-5.1.0a5.sql	22 Jun 2005 18:04:56 -0000	1.3.2.1
@@ -1,30 +1,30 @@
+
 declare
         impl_id integer;
         v_foo   integer;
 begin
         -- the notification type impl
         impl_id := acs_sc_impl.new (
-                      'NotificationType',
-                      'fs_fs_notif_type',
-                      'file_storage',
-		      'file_storage'
+                      impl_contract_name => 'NotificationType',
+                      impl_name => 'fs_fs_notif_type',
+                      impl_owner_name => 'file_storage'
                    );
 	
-	v_foo := acs_sc_impl.new_alias (
-                    'NotificationType',
-                    'fs_fs_notif_type',
-                    'GetURL',
-		    'fs::notification::get_url',
-                    'TCL'
+	v_foo := acs_sc_impl_alias.new (
+                    impl_contract_name => 'NotificationType',
+                    impl_name => 'fs_fs_notif_type',
+                    impl_operation_name => 'GetURL',
+                    impl_alias => 'fs::notification::get_url',
+                    impl_pl => 'TCL'
                  );
 
-	v_foo := acs_sc_impl.new_alias (
-                    'NotificationType',
-                    'fs_fs_notif_type',
-                    'ProcessReply',
-                    'fs::notification::process_reply',
-                    'TCL'
-        );	
+	v_foo := acs_sc_impl_alias.new (
+                    impl_contract_name => 'NotificationType',
+                    impl_name => 'fs_fs_notif_type',
+                    impl_operation_name => 'ProcessReply',
+                    impl_alias => 'fs::notification::process_reply',
+                    impl_pl => 'TCL'
+                 );
 
 
         acs_sc_binding.new (