Index: openacs-4/packages/tasks/tcl/tasks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/tcl/tasks-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/tasks/tcl/tasks-procs.tcl	13 Mar 2006 07:38:41 -0000	1.10
+++ openacs-4/packages/tasks/tcl/tasks-procs.tcl	28 Apr 2006 05:56:59 -0000	1.11
@@ -16,10 +16,17 @@
 
 ad_proc -public tasks::object_url {
     {-object_id}
+    {-package_id ""}
 } {
-    if { [ad_conn package_key] eq "contacts" } {
-	return [contact::url -party_id $object_id]
+    if { $package_id ne "" } {
+        set package_key [apm_package_key_from_id $package_id]
     } else {
+        set package_key [ad_conn package_key]
+        set package_id [ad_conn package_id]
+    }
+    if { $package_key eq "contacts" } {
+	return [contact::url -party_id $object_id -package_id $package_id]
+    } else {
 	return "/o/${object_id}"
     }