Index: openacs-4/packages/dotlrn-imsld/dotlrn-imsld.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-imsld/dotlrn-imsld.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-imsld/dotlrn-imsld.info 26 Sep 2005 22:26:11 -0000 1.1
@@ -0,0 +1,27 @@
+
+
+
+
+ dotLRN IMS LD Applet
+ dotLRN IMS LD Applets
+ f
+ t
+
+
+ Eduardo Pérez Ureta
+ 2005-09-26
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-imsld/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-imsld/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-imsld/tcl/apm-callback-procs.tcl 26 Sep 2005 22:26:11 -0000 1.1
@@ -0,0 +1,58 @@
+ad_library {
+ Procedures for registering implementations for the
+ dotlrn imsld package.
+
+ @creation-date 2005-09-26
+ @author eperez@it.uc3m.es
+ @cvs-id $Id: apm-callback-procs.tcl,v 1.1 2005/09/26 22:26:11 eduardop Exp $
+}
+
+namespace eval dotlrn_imsld {}
+
+ad_proc -public dotlrn_imsld::install {} {
+ dotLRN IMS LD package install proc
+} {
+ register_portal_datasource_impl
+}
+
+ad_proc -public dotlrn_imsld::uninstall {} {
+ dotLRN IMS LD package uninstall proc
+} {
+ unregister_portal_datasource_impl
+}
+
+ad_proc -public dotlrn_imsld::register_portal_datasource_impl {} {
+ Register the service contract implementation for the dotlrn_applet service contract
+} {
+ set spec {
+ name "dotlrn_imsld"
+ contract_name "dotlrn_applet"
+ owner "dotlrn-imsld"
+ aliases {
+ GetPrettyName dotlrn_imsld::get_pretty_name
+ AddApplet dotlrn_imsld::add_applet
+ RemoveApplet dotlrn_imsld::remove_applet
+ AddAppletToCommunity dotlrn_imsld::add_applet_to_community
+ RemoveAppletFromCommunity dotlrn_imsld::remove_applet_from_community
+ AddUser dotlrn_imsld::add_user
+ RemoveUser dotlrn_imsld::remove_user
+ AddUserToCommunity dotlrn_imsld::add_user_to_community
+ RemoveUserFromCommunity dotlrn_imsld::remove_user_from_community
+ AddPortlet dotlrn_imsld::add_portlet
+ RemovePortlet dotlrn_imsld::remove_portlet
+ Clone dotlrn_imsld::clone
+ ChangeEventHandler dotlrn_imsld::change_event_handler
+ }
+ }
+
+ acs_sc::impl::new_from_spec -spec $spec
+}
+
+ad_proc -public dotlrn_imsld::unregister_portal_datasource_impl {} {
+ Unregister service contract implementations
+} {
+ acs_sc::impl::delete \
+ -contract_name "dotlrn_applet" \
+ -impl_name "dotlrn_imsld"
+}
+
Index: openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs-postgresql.xql 26 Sep 2005 22:26:11 -0000 1.1
@@ -0,0 +1,32 @@
+
+
+
+postgresql7.1
+
+
+
+ select imsld__clone (
+ :old_package_id,
+ :new_package_id
+ );
+
+
+
+
+
+
+ delete from dotlrn_community_applets where applet_id = :applet_id
+
+
+
+
+
+
+
+ delete from dotlrn_applets where applet_id = :applet_id
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl 26 Sep 2005 22:26:11 -0000 1.1
@@ -0,0 +1,198 @@
+ad_library {
+
+ Procs to set up the dotLRN imsld applet
+
+ @author eperez@it.uc3m.es
+ @cvs_id $Id: dotlrn-imsld-procs.tcl,v 1.1 2005/09/26 22:26:11 eduardop Exp $
+}
+
+namespace eval dotlrn_imsld {}
+
+ad_proc -public dotlrn_imsld::applet_key {} {
+ What's my applet key?
+} {
+ return dotlrn_imsld
+}
+
+ad_proc -public dotlrn_imsld::package_key {} {
+ What package do I deal with?
+} {
+ return "imsld"
+}
+
+ad_proc -public dotlrn_imsld::my_package_key {} {
+ What package do I deal with?
+} {
+ return "dotlrn-imsld"
+}
+
+ad_proc -public dotlrn_imsld::get_pretty_name {} {
+ returns the pretty name
+} {
+ return "#imsld.Applet#"
+}
+
+ad_proc -public dotlrn_imsld::add_applet {} {
+ One time init - must be repeatable!
+} {
+ dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
+}
+
+ad_proc -public dotlrn_imsld::remove_applet {} {
+ One time destroy.
+} {
+ set applet_id [dotlrn_applet::get_applet_id_from_key [my_package_key]]
+ db_exec_plsql delete_applet_from_communities { *SQL* }
+ db_exec_plsql delete_applet { *SQL* }
+}
+
+ad_proc -public dotlrn_imsld::add_applet_to_community {
+ community_id
+} {
+ Add the imsld applet to a specifc dotlrn community
+} {
+ set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+
+ # create the imsld package instance
+ set package_id [dotlrn::instantiate_and_mount $community_id [package_key]]
+
+ # set up the admin portal
+ set admin_portal_id [dotlrn_community::get_admin_portal_id \
+ -community_id $community_id
+ ]
+
+ imsld_admin_portlet::add_self_to_page \
+ -portal_id $admin_portal_id \
+ -package_id $package_id
+
+ set args [ns_set create]
+ ns_set put $args package_id $package_id
+ add_portlet_helper $portal_id $args
+
+ return $package_id
+}
+
+ad_proc -public dotlrn_imsld::remove_applet_from_community {
+ community_id
+} {
+ remove the applet from the community
+} {
+ ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!"
+}
+
+ad_proc -public dotlrn_imsld::add_user {
+ user_id
+} {
+ one time user-specifuc init
+} {
+ # noop
+}
+
+ad_proc -public dotlrn_imsld::remove_user {
+ user_id
+} {
+} {
+ # noop
+}
+
+ad_proc -public dotlrn_imsld::add_user_to_community {
+ community_id
+ user_id
+} {
+ Add a user to a specifc dotlrn community
+} {
+ set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
+ set portal_id [dotlrn::get_portal_id -user_id $user_id]
+
+ # use "append" here since we want to aggregate
+ set args [ns_set create]
+ ns_set put $args package_id $package_id
+ ns_set put $args param_action append
+ add_portlet_helper $portal_id $args
+}
+
+ad_proc -public dotlrn_imsld::remove_user_from_community {
+ community_id
+ user_id
+} {
+ Remove a user from a community
+} {
+ set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
+ set portal_id [dotlrn::get_portal_id -user_id $user_id]
+
+ set args [ns_set create]
+ ns_set put $args package_id $package_id
+
+ remove_portlet $portal_id $args
+}
+
+ad_proc -public dotlrn_imsld::add_portlet {
+ portal_id
+} {
+ A helper proc to add the underlying portlet to the given portal.
+
+ @param portal_id
+} {
+ # simple, no type specific stuff, just set some dummy values
+
+ set args [ns_set create]
+ ns_set put $args package_id 0
+ ns_set put $args param_action overwrite
+ add_portlet_helper $portal_id $args
+}
+
+ad_proc -public dotlrn_imsld::add_portlet_helper {
+ portal_id
+ args
+} {
+ A helper proc to add the underlying portlet to the given portal.
+
+ @param portal_id
+ @param args an ns_set
+} {
+ imsld_portlet::add_self_to_page \
+ -portal_id $portal_id \
+ -package_id [ns_set get $args package_id] \
+ -param_action [ns_set get $args param_action]
+}
+
+ad_proc -public dotlrn_imsld::remove_portlet {
+ portal_id
+ args
+} {
+ A helper proc to remove the underlying portlet from the given portal.
+
+ @param portal_id
+ @param args A list of key-value pairs (possibly user_id, community_id, and more)
+} {
+ imsld_portlet::remove_self_from_page \
+ -portal_id $portal_id \
+ -package_id [ns_set get $args package_id]
+}
+
+ad_proc -public dotlrn_imsld::clone {
+ old_community_id
+ new_community_id
+} {
+ Clone this applet's content from the old community to the new one
+} {
+ ns_log notice "Cloning: [applet_key]"
+ set new_package_id [add_applet_to_community $new_community_id]
+ set old_package_id [dotlrn_community::get_applet_package_id \
+ -community_id $old_community_id \
+ -applet_key [applet_key]
+ ]
+
+ db_exec_plsql call_imsld_clone {}
+ return $new_package_id
+}
+
+ad_proc -public dotlrn_imsld::change_event_handler {
+ community_id
+ event
+ old_value
+ new_value
+} {
+ listens for the following events:
+} {
+}