Index: openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl	11 Sep 2004 00:41:10 -0000	1.5
+++ openacs-4/packages/evaluation-portlet/tcl/apm-callback-procs.tcl	4 Apr 2005 18:23:47 -0000	1.6
@@ -33,3 +33,194 @@
 }
 
 
+ad_proc -private evaluation_assignments_portlet::after_install {} {
+    Create the datasources needed by the evaluation assignments portlet.
+} {
+    
+    db_transaction {
+	set ds_id [portal::datasource::new \
+                   -name "evaluation_assignments_portlet" \
+                   -description "[_ evaluation-portlet.lt_Evaluation_Assignment]"]
+
+	portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key shadeable_p \
+            -value t
+
+	portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key hideable_p \
+            -value t
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key user_editable_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key shaded_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key link_hideable_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p f \
+            -key package_id \
+            -value ""
+
+	register_portal_datasource_impl
+
+    }
+}
+
+ad_proc -private evaluation_evaluations_portlet::after_install {} {
+    Create the datasources needed by the evaluation evaluations portlet.
+} {
+    
+    db_transaction {
+	set ds_id [portal::datasource::new \
+                   -name "evaluation_evaluations_portlet" \
+                   -description "[_ evaluation-portlet.lt_Evaluation_Evaluation]"]
+
+	portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key shadeable_p \
+            -value t
+
+	portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key hideable_p \
+            -value t
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key user_editable_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key shaded_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key link_hideable_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p f \
+            -key package_id \
+            -value ""
+
+	register_portal_datasource_impl
+
+    }
+}
+
+ad_proc -private evaluation_admin_portlet::after_install {} {
+    Create the datasources needed by the evaluation portlet.
+} {
+    
+    db_transaction {
+	set ds_id [portal::datasource::new \
+                   -name "evaluation_admin_portlet" \
+                   -description "[_ evaluation-portlet.lt_Evaluation_Admin_Port]"]
+
+	portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key shadeable_p \
+            -value f
+
+	portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key hideable_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key user_editable_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key shaded_p \
+            -value f
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p t \
+            -key link_hideable_p \
+            -value t
+
+        portal::datasource::set_def_param \
+            -datasource_id $ds_id \
+            -config_required_p t \
+            -configured_p f \
+            -key package_id \
+            -value ""
+
+	register_portal_datasource_impl
+    }
+}
+
+ad_proc -private evaluation_assignments_portlet::uninstall {} {
+    Evaluation Portlet package uninstall proc
+} {
+    unregister_implementations
+    set ds_id [portal::get_datasource_id evaluation_assignments_portlet]
+    db_exec_plsql delete_assignments_ds { *SQL* }
+}
+
+ad_proc -private evaluation_evaluations_portlet::uninstall {} {
+    Evaluation Portlet package uninstall proc
+} {
+    unregister_implementations
+    set ds_id [portal::get_datasource_id evaluation_evaluations_portlet]
+    db_exec_plsql delete_evaluations_ds { *SQL* }
+}
+
+ad_proc -private evaluation_admin_portlet::uninstall {} {
+    Evaluation Portlet package uninstall proc
+} {
+    unregister_implementations
+    set ds_id [portal::get_datasource_id evaluation_admin_portlet]
+    db_exec_plsql delete_admin_ds { *SQL* }
+}
+