Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-create.sql 9 Oct 2001 03:51:30 -0000 1.1 @@ -0,0 +1,78 @@ + +-- +-- The "dotLRN" applet for dotLRN +-- copyright 2001, OpenForce +-- distributed under GPL v2.0 +-- +-- +-- ben,arjun@openforce.net +-- +-- 10/05/2001 +-- + + +declare + foo integer; +begin + -- create the implementation + foo := acs_sc_impl.new ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'dotlrn_dotlrn' + ); + + -- add all the hooks + + -- GetPrettyName + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'GetPrettyName', + 'dotlrn_dotlrn::get_pretty_name', + 'TCL' + ); + + -- AddApplet + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'AddApplet', + 'dotlrn_dotlrn::add_applet', + 'TCL' + ); + + -- RemoveApplet + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'RemoveApplet', + 'dotlrn_dotlrn::remove_applet', + 'TCL' + ); + + -- AddUser + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'AddUser', + 'dotlrn_dotlrn::add_user', + 'TCL' + ); + + -- RemoveUser + foo := acs_sc_impl.new_alias ( + 'dotlrn_applet', + 'dotlrn_dotlrn', + 'RemoveUser', + 'dotlrn_dotlrn::remove_user', + 'TCL' + ); + + -- Add the binding + foo := acs_sc_binding.new ( + contract_name => 'dotlrn_applet', + impl_name => 'dotlrn_dotlrn' + ); +end; +/ +show errors Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-init.sql'. Fisheye: No comparison available. Pass `N' to diff?