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 -N -r1.3 -r1.4 --- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql 7 May 2002 22:06:11 -0000 1.3 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-members-staff-create.sql 10 May 2002 06:35:14 -0000 1.4 @@ -120,6 +120,33 @@ 'TCL' ); + -- AddPortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff', + impl_operation_name => 'AddPortlet', + impl_alias => 'dotlrn_members_staff::add_portlet', + impl_pl => 'TCL' + ); + + -- RemovePortlet + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff', + impl_operation_name => 'RemovePortlet', + impl_alias => 'dotlrn_members_staff::remove_portlet', + impl_pl => 'TCL' + ); + + -- Clone + foo := acs_sc_impl.new_alias ( + impl_contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_members_staff', + impl_operation_name => 'Clone', + impl_alias => 'dotlrn_members_staff::clone', + impl_pl => 'TCL' + ); + -- Add the binding acs_sc_binding.new ( contract_name => 'dotlrn_applet',