Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.39 -r1.4.2.40
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	29 Apr 2005 17:02:31 -0000	1.4.2.39
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	30 Apr 2005 06:53:09 -0000	1.4.2.40
@@ -799,8 +799,12 @@
 ad_proc -public pm::task::get_url {
     object_id
 } {
-    set url [pm::util::url]
+    
+    set package_id [db_string pm_package_id "select package_id from cr_folders cf, cr_items ci1, cr_items ci2 where cf.folder_id = ci1.parent_id and ci1.item_id = ci2.parent_id and ci2.item_id = :object_id"]
 
+    set url "[ad_url]"
+    append url [site_node::get_url_from_object_id -object_id $package_id]
+
     set package_url "${url}task-one?task_id=$object_id"
 
     return $package_url