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: +} { +} +