Index: openacs-4/packages/dotlrn-evaluation/dotlrn-evaluation.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/dotlrn-evaluation.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-evaluation/dotlrn-evaluation.info 31 May 2004 23:45:17 -0000 1.1
@@ -0,0 +1,27 @@
+
+
+
+
+ dotLRN Evaluation Applet
+ dotLRN Evaluation Applets
+ f
+ t
+
+
+ Jose Pablo Escobedo Del Cid
+ 2004-05-19
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-evaluation/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-evaluation/tcl/apm-callback-procs.tcl 31 May 2004 23:45:17 -0000 1.1
@@ -0,0 +1,57 @@
+ad_library {
+ Procedures for registering implementations for the
+ dotlrn evaluation package.
+
+ @creation-date May 2003
+ @author jopez@galileo.edu
+ @cvs-id $Id: apm-callback-procs.tcl,v 1.1 2004/05/31 23:45:17 josee Exp $
+}
+
+namespace eval dotlrn_evaluation {}
+
+ad_proc -private dotlrn_evaluation::install {} {
+ dotLRN Evaluation package install proc
+} {
+ register_portal_datasource_impl
+}
+
+ad_proc -private dotlrn_evaluation::uninstall {} {
+ dotLRN Evaluation package uninstall proc
+} {
+ unregister_portal_datasource_impl
+}
+
+ad_proc -private dotlrn_evaluation::register_portal_datasource_impl {} {
+ Register the service contract implementation for the dotlrn_applet service contract
+} {
+ set spec {
+ name "dotlrn_evaluation"
+ contract_name "dotlrn_applet"
+ owner "dotlrn-evaluation"
+ aliases {
+ GetPrettyName dotlrn_evaluation::get_pretty_name
+ AddApplet dotlrn_evaluation::add_applet
+ RemoveApplet dotlrn_evaluation::remove_applet
+ AddAppletToCommunity dotlrn_evaluation::add_applet_to_community
+ RemoveAppletFromCommunity dotlrn_evaluation::remove_applet_from_community
+ AddUser dotlrn_evaluation::add_user
+ RemoveUser dotlrn_evaluation::remove_user
+ AddUserToCommunity dotlrn_evaluation::add_user_to_community
+ RemoveUserFromCommunity dotlrn_evaluation::remove_user_from_community
+ AddPortlet dotlrn_evaluation::add_portlet
+ RemovePortlet dotlrn_evaluation::remove_portlet
+ Clone dotlrn_evaluation::clone
+ ChangeEventHandler dotlrn_evaluation::change_event_handler
+ }
+ }
+
+ acs_sc::impl::new_from_spec -spec $spec
+}
+
+ad_proc -private dotlrn_evaluation::unregister_portal_datasource_impl {} {
+ Unregister service contract implementations
+} {
+ acs_sc::impl::delete \
+ -contract_name "dotlrn_applet" \
+ -impl_name "dotlrn_evaluation"
+}
Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs-postgresql.xql 31 May 2004 23:45:17 -0000 1.1
@@ -0,0 +1,16 @@
+
+
+
+postgresql7.1
+
+
+
+ select evaluation__clone (
+ :old_package_id,
+ :new_package_id
+ );
+
+
+
+
+
Index: openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-evaluation/tcl/dotlrn-evaluation-procs.tcl 31 May 2004 23:45:17 -0000 1.1
@@ -0,0 +1,206 @@
+ad_library {
+
+ Procs to set up the dotLRN evaluation applet
+
+ @author jopez@galileo.edu
+ @cvs_id $Id: dotlrn-evaluation-procs.tcl,v 1.1 2004/05/31 23:45:17 josee Exp $
+}
+
+namespace eval dotlrn_evaluation {}
+
+ad_proc -public dotlrn_evaluation::applet_key {} {
+ What's my applet key?
+} {
+ return dotlrn_evaluation
+}
+
+ad_proc -public dotlrn_evaluation::package_key {} {
+ What package do I deal with?
+} {
+ return "evaluation"
+}
+
+ad_proc -public dotlrn_evaluation::my_package_key {} {
+ What package do I deal with?
+} {
+ return "dotlrn-evaluation"
+}
+
+ad_proc -public dotlrn_evaluation::get_pretty_name {} {
+ returns the pretty name
+} {
+ return "Evaluation"
+}
+
+ad_proc -public dotlrn_evaluation::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_evaluation::remove_applet {} {
+ One time destroy.
+} {
+ dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key]
+}
+
+ad_proc -public dotlrn_evaluation::add_applet_to_community {
+ community_id
+} {
+ Add the evaluation applet to a specifc dotlrn community
+} {
+ set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+
+ # create the evaluation 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
+ ]
+
+ evaluation_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_evaluation::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_evaluation::add_user {
+ user_id
+} {
+ one time user-specifuc init
+} {
+ # noop
+}
+
+ad_proc -public dotlrn_evaluation::remove_user {
+ user_id
+} {
+} {
+ ad_return_complaint 1 "[applet_key] remove_user not implimented!"
+}
+
+ad_proc -public dotlrn_evaluation::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_evaluation::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_evaluation::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_evaluation::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
+} {
+ evaluation_assignments_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]
+
+ evaluation_evaluations_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_evaluation::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)
+} {
+ evaluation_assignments_portlet::remove_self_from_page \
+ -portal_id $portal_id \
+ -package_id [ns_set get $args package_id]
+
+ evaluation_evaluations_portlet::remove_self_from_page \
+ -portal_id $portal_id \
+ -package_id [ns_set get $args package_id]
+}
+
+ad_proc -public dotlrn_evaluation::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_evaluation_clone {}
+ return $new_package_id
+}
+
+ad_proc -public dotlrn_evaluation::change_event_handler {
+ community_id
+ event
+ old_value
+ new_value
+} {
+ listens for the following events:
+} {
+}
+