Index: openacs-4/packages/tasks-portlet/tcl/tasks-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks-portlet/tcl/tasks-portlet-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/tasks-portlet/tcl/tasks-portlet-procs.tcl	30 Nov 2005 16:09:46 -0000	1.1.2.2
@@ -0,0 +1,116 @@
+#  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 {
+
+    Procedures to support the Tasks Package
+    
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+
+}
+
+namespace eval tasks_portlet {
+
+    ad_proc -private my_package_key {
+    } {
+        return "tasks-portlet"
+    }
+
+    ad_proc -private get_my_name {
+    } {
+        return "tasks_portlet"
+    }
+
+    ad_proc -public get_pretty_name {
+    } {
+        return "#tasks-portlet.pretty_name#"
+    }
+
+    ad_proc -public link {
+    } {
+	return ""
+    }
+
+    ad_proc -public add_self_to_page {
+	{-portal_id:required}
+	{-package_id:required}
+        {-page_name ""}
+        {-pretty_name ""}
+        {-force_region ""}
+	{-scoped_p ""}
+	{-param_action "overwrite"}
+    } {
+	Adds the Tasks Portlet to the given page.
+
+	@param portal_id The page to add self to
+
+	@return element_id The new element's id
+    } {
+        
+        # allow overrides of pretty_name and force_region
+
+        if {[empty_string_p $pretty_name]} {
+            set pretty_name [get_pretty_name]
+        }
+
+        if {[empty_string_p $force_region]} {
+            set force_region [parameter::get_from_package_key \
+                                  -package_key [my_package_key] \
+                                  -parameter "force_region"
+            ]
+        }
+
+        set extra_params ""
+        
+        return [portal::add_element_parameters \
+                    -portal_id $portal_id \
+                    -page_name $page_name \
+                    -portlet_name [get_my_name] \
+                    -value $package_id \
+                    -pretty_name $pretty_name \
+                    -force_region $force_region \
+		    -param_action $param_action]
+    }
+
+
+
+
+    ad_proc -public remove_self_from_page {
+	{-portal_id:required}
+        {-package_id:required}
+    } {
+        Removes a Task from the given page.
+
+	  @param portal_id The page to remove self from
+	  @param package_id
+    } {
+        portal::remove_element_parameters \
+            -portal_id $portal_id \
+            -portlet_name [get_my_name] \
+            -value $package_id
+    }
+
+    ad_proc -public show {
+	 cf
+    } {
+    } {
+
+	
+        portal::show_proc_helper \
+            -package_key [my_package_key] \
+            -config_list $cf
+	
+    }
+
+}