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 -r1.9 -r1.10
--- openacs-4/packages/tasks/tcl/tasks-procs.tcl	1 Mar 2006 13:49:15 -0000	1.9
+++ openacs-4/packages/tasks/tcl/tasks-procs.tcl	13 Mar 2006 07:38:41 -0000	1.10
@@ -14,6 +14,17 @@
 namespace eval tasks::process::task {}
 namespace eval tasks::process::instance {}
 
+ad_proc -public tasks::object_url {
+    {-object_id}
+} {
+    if { [ad_conn package_key] eq "contacts" } {
+	return [contact::url -party_id $object_id]
+    } else {
+	return "/o/${object_id}"
+    }
+
+}
+
 ad_proc -public tasks::require_belong_to_package {
     {-objects ""}
     {-package_id ""}