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.1.2.1 -r1.1.2.2 --- openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.1.0a4-5.1.0a5.sql 21 Jul 2004 22:37:17 -0000 1.1.2.1 +++ openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.1.0a4-5.1.0a5.sql 22 Feb 2005 11:17:43 -0000 1.1.2.2 @@ -1,4 +1,3 @@ - declare impl_id integer; v_foo integer; @@ -7,16 +6,27 @@ impl_id := acs_sc_impl.new ( 'NotificationType', 'fs_fs_notif_type', - 'file_storage' + 'file_storage', + '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.new_alias ( + 'NotificationType', + 'fs_fs_notif_type', + 'ProcessReply', + 'fs::notification::process_reply', + 'TCL' + ); + + acs_sc_binding.new ( contract_name => 'NotificationType', impl_name => 'fs_fs_notif_type'