Index: openacs-4/packages/dotlrn-datamanager/dotlrn-datamanager.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/dotlrn-datamanager.info,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/dotlrn-datamanager.info 5 Jul 2005 08:51:05 -0000 1.1.2.1
@@ -0,0 +1,21 @@
+
+
+
+
+ dotLRN Datamanager Applet
+ dotLRN Datamanager Applets
+ f
+ t
+
+
+ OpenACS
+ 2005-05-10
+ OpenACS
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.ca_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.ca_ES.ISO-8859-1.xml,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.ca_ES.ISO-8859-1.xml 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,5 @@
+
+
+
+ Datamanager
+
Index: openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.en_US.ISO-8859-1.xml,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.en_US.ISO-8859-1.xml 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,5 @@
+
+
+
+ Datamanager
+
Index: openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.es_ES.ISO-8859-1.xml,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/catalog/dotlrn-datamanager.es_ES.ISO-8859-1.xml 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,5 @@
+
+
+
+ Cuota
+
Index: openacs-4/packages/dotlrn-datamanager/sql/postgresql/dotlrn-datamanager-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/sql/postgresql/dotlrn-datamanager-create.sql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/sql/postgresql/dotlrn-datamanager-create.sql 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,152 @@
+--
+-- Copyright (C) 2004 University XYZ
+--
+-- 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.
+--
+--
+-- Procedures to support the dotlrn datamanager
+--
+-- @author YYY ZZZ (YYY.ZZZ@xx.yy)
+-- @creation-date 2004-10-10
+-- @version $Id: dotlrn-datamanager-create.sql,v 0.1 2004/10/10
+
+-- create the implementation
+select acs_sc_impl__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'dotlrn_datamanager'
+);
+
+-- add all the hooks
+
+-- GetPrettyName
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'GetPrettyName',
+ 'dotlrn_datamanager::get_pretty_name',
+ 'TCL'
+);
+
+-- AddApplet
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddApplet',
+ 'dotlrn_datamanager::add_applet',
+ 'TCL'
+);
+
+-- RemoveApplet
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveApplet',
+ 'dotlrn_datamanager::remove_applet',
+ 'TCL'
+);
+
+-- AddAppletToCommunity
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddAppletToCommunity',
+ 'dotlrn_datamanager::add_applet_to_community',
+ 'TCL'
+);
+
+-- RemoveAppletFromCommunity
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveAppletFromCommunity',
+ 'dotlrn_datamanager::remove_applet_from_community',
+ 'TCL'
+);
+
+-- AddUser
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddUser',
+ 'dotlrn_datamanager::add_user',
+ 'TCL'
+);
+
+-- RemoveUser
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveUser',
+ 'dotlrn_datamanager::remove_user',
+ 'TCL'
+);
+
+-- AddUserToCommunity
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddUserToCommunity',
+ 'dotlrn_datamanager::add_user_to_community',
+ 'TCL'
+);
+
+-- RemoveUserFromCommunity
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveUserFromCommunity',
+ 'dotlrn_datamanager::remove_user_from_community',
+ 'TCL'
+);
+
+-- AddPortlet
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddPortlet',
+ 'dotlrn_datamanager::add_portlet',
+ 'TCL'
+ );
+
+-- RemovePortlet
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemovePortlet',
+ 'dotlrn_datamanager::remove_portlet',
+ 'TCL'
+);
+
+-- Clone
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'Clone',
+ 'dotlrn_datamanager::clone',
+ 'TCL'
+);
+
+select acs_sc_impl_alias__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'ChangeEventHandler',
+ 'dotlrn_datamanager::change_event_handler',
+ 'TCL'
+);
+
+-- Add the binding
+select acs_sc_binding__new (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager'
+);
Index: openacs-4/packages/dotlrn-datamanager/sql/postgresql/dotlrn-datamanager-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/sql/postgresql/dotlrn-datamanager-drop.sql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/sql/postgresql/dotlrn-datamanager-drop.sql 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,120 @@
+--
+-- Copyright (C) 2004 University XYZ
+--
+-- 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.
+--
+--
+-- Procedures to support the dotlrn datamanager
+--
+-- @author YYY ZZZ (YYY.ZZZ@xx.yy)
+-- @creation-date 2004-10-10
+-- @version $Id: dotlrn-datamanager-drop.sql,v 0.1 2004/10/10
+
+select acs_sc_impl__delete(
+ 'dotlrn_applet', -- impl_contract_name
+ 'dotlrn_datamanager' -- impl_name
+);
+
+
+-- add all the hooks
+
+-- GetPrettyName
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'GetPrettyName'
+);
+
+-- AddApplet
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddApplet'
+);
+
+-- RemoveApplet
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveApplet'
+);
+
+-- AddAppletToCommunity
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddAppletToCommunity'
+);
+
+-- RemoveAppletFromCommunity
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveAppletFromCommunity'
+);
+
+-- AddUser
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddUser'
+);
+
+-- RemoveUser
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveUser'
+);
+
+-- AddUserToCommunity
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddUserToCommunity'
+);
+
+-- RemoveUserFromCommunity
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemoveUserFromCommunity'
+);
+
+-- AddPortlet
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'AddPortlet'
+ );
+
+-- RemovePortlet
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'RemovePortlet'
+);
+
+-- Clone
+select acs_sc_impl_alias__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager',
+ 'Clone'
+);
+
+
+-- Add the binding
+select acs_sc_binding__delete (
+ 'dotlrn_applet',
+ 'dotlrn_datamanager'
+);
Index: openacs-4/packages/dotlrn-datamanager/tcl/dotlrn-datamanager-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/tcl/dotlrn-datamanager-procs-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/tcl/dotlrn-datamanager-procs-postgresql.xql 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,16 @@
+
+
+
+postgresql7.1
+
+
+
+ select dataman__clone (
+ :old_package_id,
+ :new_package_id
+ );
+
+
+
+
+
Index: openacs-4/packages/dotlrn-datamanager/tcl/dotlrn-datamanager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-datamanager/tcl/dotlrn-datamanager-procs.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-datamanager/tcl/dotlrn-datamanager-procs.tcl 5 Jul 2005 08:51:06 -0000 1.1.2.1
@@ -0,0 +1,255 @@
+#
+# Copyright (C) 2004 University XYZ
+#
+# 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.
+#
+
+ad_library {
+
+ Procs to set up the dotLRN datamanager applet
+
+ @author YYY ZZZ (YYY.ZZZ@xx.yy)
+ @creation-date 2004-10-10
+ @version $Id: dotlrn-datamanager-procs.tcl,v 0.1 2004/10/10
+
+}
+
+namespace eval dotlrn_datamanager {
+
+ ad_proc -public applet_key {
+ } {
+ What's my applet key?
+ } {
+ return dotlrn_datamanager
+ }
+
+ ad_proc -public package_key {
+ } {
+ What package do I deal with?
+ } {
+ return datamanager
+ }
+
+ ad_proc -public my_package_key {
+ } {
+ What package do I deal with?
+ } {
+ return "dotlrn-datamanager"
+ }
+
+ ad_proc -public get_pretty_name {
+ } {
+ returns the pretty name
+ } {
+ return "[_ dotlrn-datamanager.pretty_name]"
+ }
+
+ ad_proc -public 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 remove_applet {
+ } {
+ One time destroy.
+ } {
+ dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key]
+ }
+
+ ad_proc -public add_applet_to_community {
+ community_id
+ } {
+ Add the datamanager applet to a specifc dotlrn community
+ } {
+ set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+
+ # create the datamanager package instance (all in one, I've mounted it)
+ 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
+ ]
+
+ datamanager_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 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 add_user {
+ user_id
+ } {
+ one time user-specifuc init
+ } {
+ # noop
+ }
+
+ ad_proc -public remove_user {
+ user_id
+ } {
+ } {
+ # noop
+ }
+
+ ad_proc -public 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
+
+ #For do not appears on user personal page
+ #add_portlet_helper $portal_id $args
+ }
+
+ ad_proc -public 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 add_portletOLD {
+ 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 add_portlet {
+ portal_id
+ } {
+ A helper proc to add the underlying portlet to the given portal.
+
+ @param portal_id
+ } {
+ set args [ns_set create]
+ ns_set put $args package_id 0
+ set type [dotlrn::get_type_from_portal_id -portal_id $portal_id]
+
+ #select type from dotlrn_portal_types_map;
+ # type
+ #-----------------------
+ # user
+ # dotlrn_community
+ # dotlrn_class_instance
+ # dotlrn_club
+ #(4 rows)
+
+ ns_log Notice [format "Class 1 TYPE=%s" $type]
+
+ if {[string equal $type "dotlrn_class_instance"] == 1} {
+ add_portlet_helper $portal_id $args
+ } else {
+ # not to any of the other types
+ return
+ }
+
+ }
+
+ ad_proc -public 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
+ } {
+## datamanager_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 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)
+ } {
+# datamanager_portlet::remove_self_from_page \
+# -portal_id $portal_id \
+# -package_id [ns_set get $args package_id]
+ }
+
+ ad_proc -public 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_datamanager_clone {}
+ return $new_package_id
+ }
+
+ ad_proc -public change_event_handler {
+ community_id
+ event
+ old_value
+ new_value
+ } {
+ listens for the following events:
+ } {
+ }
+
+}