Index: openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info,v
diff -u -N -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info 5 Jan 2005 17:03:07 -0000 1.2.2.1
+++ openacs-4/packages/dotlrn-lorsm/dotlrn-lorsm.info 26 Sep 2005 20:37:17 -0000 1.2.2.2
@@ -17,6 +17,8 @@
+
+
Index: openacs-4/packages/dotlrn-lorsm/sql/postgresql/dotlrn-lorsm-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/sql/postgresql/Attic/dotlrn-lorsm-create.sql,v
diff -u -N
--- openacs-4/packages/dotlrn-lorsm/sql/postgresql/dotlrn-lorsm-create.sql 5 Jan 2005 17:03:07 -0000 1.1.1.1.2.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,149 +0,0 @@
--- This file is part of dotLRN.
---
--- dotLRN is free software; you can redistribute it and/or modify it under the
--- terms of the GNU General Public License as published by the Free Software
--- Foundation; either version 2 of the License, or (at your option) any later
--- version.
---
--- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
--- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
--- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
--- details.
---
--- The LORSm applet for dotLRN
---
--- @author Ernie Ghiglione (ErnieG@mm.st)
--- @creation-date 2004-04-10
--- @cvs-id $Id: dotlrn-lorsm-create.sql,v 1.1.1.1.2.1 2005/01/05 17:03:07 rocaelh Exp $
---
-
--- create the implementation
-select acs_sc_impl__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'dotlrn_lorsm'
-);
-
--- add all the hooks
-
--- GetPrettyName
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'GetPrettyName',
- 'dotlrn_lorsm::get_pretty_name',
- 'TCL'
-);
-
--- AddApplet
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'AddApplet',
- 'dotlrn_lorsm::add_applet',
- 'TCL'
-);
-
--- RemoveApplet
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'RemoveApplet',
- 'dotlrn_lorsm::remove_applet',
- 'TCL'
-);
-
--- AddAppletToCommunity
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'AddAppletToCommunity',
- 'dotlrn_lorsm::add_applet_to_community',
- 'TCL'
-);
-
--- RemoveAppletFromCommunity
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'RemoveAppletFromCommunity',
- 'dotlrn_lorsm::remove_applet_from_community',
- 'TCL'
-);
-
--- AddUser
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'AddUser',
- 'dotlrn_lorsm::add_user',
- 'TCL'
-);
-
--- RemoveUser
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'RemoveUser',
- 'dotlrn_lorsm::remove_user',
- 'TCL'
-);
-
--- AddUserToCommunity
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'AddUserToCommunity',
- 'dotlrn_lorsm::add_user_to_community',
- 'TCL'
-);
-
--- RemoveUserFromCommunity
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'RemoveUserFromCommunity',
- 'dotlrn_lorsm::remove_user_from_community',
- 'TCL'
-);
-
--- AddPortlet
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'AddPortlet',
- 'dotlrn_lorsm::add_portlet',
- 'TCL'
- );
-
--- RemovePortlet
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'RemovePortlet',
- 'dotlrn_lorsm::remove_portlet',
- 'TCL'
-);
-
--- Clone
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'Clone',
- 'dotlrn_lorsm::clone',
- 'TCL'
-);
-
-select acs_sc_impl_alias__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm',
- 'ChangeEventHandler',
- 'dotlrn_lorsm::change_event_handler',
- 'TCL'
-);
-
--- Add the binding
-select acs_sc_binding__new (
- 'dotlrn_applet',
- 'dotlrn_lorsm'
-);
Index: openacs-4/packages/dotlrn-lorsm/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/tcl/apm-callback-procs.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-lorsm/tcl/apm-callback-procs.tcl 26 Sep 2005 20:37:18 -0000 1.1.4.2
@@ -0,0 +1,58 @@
+ad_library {
+ Procedures for registering implementations for the
+ dotlrn lorsm package.
+
+ @creation-date 2005-09-25
+ @author eperez@it.uc3m.es
+ @cvs-id $Id: apm-callback-procs.tcl,v 1.1.4.2 2005/09/26 20:37:18 eduardop Exp $
+}
+
+namespace eval dotlrn_lorsm {}
+
+ad_proc -public dotlrn_lorsm::install {} {
+ dotLRN Assessment package install proc
+} {
+ register_portal_datasource_impl
+}
+
+ad_proc -public dotlrn_lorsm::uninstall {} {
+ dotLRN Assessment package uninstall proc
+} {
+ unregister_portal_datasource_impl
+}
+
+ad_proc -public dotlrn_lorsm::register_portal_datasource_impl {} {
+ Register the service contract implementation for the dotlrn_applet service contract
+} {
+ set spec {
+ name "dotlrn_lorsm"
+ contract_name "dotlrn_applet"
+ owner "dotlrn_lorsm"
+ aliases {
+ GetPrettyName dotlrn_lorsm::get_pretty_name
+ AddApplet dotlrn_lorsm::add_applet
+ RemoveApplet dotlrn_lorsm::remove_applet
+ AddAppletToCommunity dotlrn_lorsm::add_applet_to_community
+ RemoveAppletFromCommunity dotlrn_lorsm::remove_applet_from_community
+ AddUser dotlrn_lorsm::add_user
+ RemoveUser dotlrn_lorsm::remove_user
+ AddUserToCommunity dotlrn_lorsm::add_user_to_community
+ RemoveUserFromCommunity dotlrn_lorsm::remove_user_from_community
+ AddPortlet dotlrn_lorsm::add_portlet
+ RemovePortlet dotlrn_lorsm::remove_portlet
+ Clone dotlrn_lorsm::clone
+ ChangeEventHandler dotlrn_lorsm::change_event_handler
+ }
+ }
+
+ acs_sc::impl::new_from_spec -spec $spec
+}
+
+ad_proc -public dotlrn_lorsm::unregister_portal_datasource_impl {} {
+ Unregister service contract implementations
+} {
+ acs_sc::impl::delete \
+ -contract_name "dotlrn_applet" \
+ -impl_name "dotlrn_lorsm"
+}
+