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 -N --- /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 Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-init.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/Attic/dotlrn-dotlrn-init.sql,v diff -u -N --- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-init.sql 9 Oct 2001 03:36:13 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,78 +0,0 @@ - --- --- 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