Index: openacs-4/packages/project-manager/lib/customer-group-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/customer-group-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager/lib/customer-group-list.tcl	5 Oct 2005 18:24:24 -0000	1.1
+++ openacs-4/packages/project-manager/lib/customer-group-list.tcl	2 Aug 2007 11:35:19 -0000	1.2
@@ -140,5 +140,5 @@
 # Create the multirow
 db_multirow -extend { project_name project_url } members get_members { } {
     set project_name [pm::project::name -project_item_id $project_id]
-    set project_url "[site_node::get_url_from_object_id -object_id $object_package_id]one?project_item_id=$project_id"
+    set project_url "[lindex [site_node::get_url_from_object_id -object_id $object_package_id] 0]one?project_item_id=$project_id"
 }
\ No newline at end of file
Index: openacs-4/packages/project-manager/lib/projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/projects.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/project-manager/lib/projects.tcl	25 Jun 2007 07:25:06 -0000	1.41
+++ openacs-4/packages/project-manager/lib/projects.tcl	2 Aug 2007 11:35:19 -0000	1.42
@@ -522,17 +522,19 @@
     set creation_date_lc [lc_time_fmt $creation_date $fmt]
     set start_date_lc [lc_time_fmt $start_date "%x"]
     set planned_end_date_lc [lc_time_fmt $planned_end_date $fmt]
-    set _base_url [site_node::get_url_from_object_id -object_id $package_id]
+    set _base_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
     if {![empty_string_p $_base_url]} {
 	set base_url $_base_url
     }
     
     # Display the subsite
     set subsite_id [site_node::closest_ancestor_package -url $base_url -package_key "acs-subsite"]
-    set subsite_url [site_node::get_url_from_object_id -object_id $subsite_id]
+    set subsite_url [lindex [site_node::get_url_from_object_id -object_id $subsite_id] 0]
     set subsite_name [acs_object_name $subsite_id]
 
     set item_url [export_vars -base "${base_url}one" {project_item_id}]
+
+    ds_comment "$base_url :: $item_url :: $package_id"
     
     # root CR folder
     set root_folder [pm::util::get_root_folder -package_id $package_id]
Index: openacs-4/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	23 Mar 2007 07:53:22 -0000	1.19
+++ openacs-4/packages/project-manager/tcl/project-manager-procs.tcl	2 Aug 2007 11:35:19 -0000	1.20
@@ -317,7 +317,7 @@
     
     @error 
 } {
-    return [site_node::get_url_from_object_id -object_id [lindex [application_link::get_linked -from_package_id [ad_conn package_id] -to_package_key logger] 0]]
+    return [lindex [site_node::get_url_from_object_id -object_id [lindex [application_link::get_linked -from_package_id [ad_conn package_id] -to_package_key logger] 0]] 0]
 }
 
 
@@ -690,7 +690,7 @@
     } else {
         set return_val ""
     }
-    append return_val [site_node::get_url_from_object_id -object_id $package_id]
+    append return_val [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 
     return $return_val
 }
Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	26 Jul 2007 10:35:40 -0000	1.31
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	2 Aug 2007 11:35:19 -0000	1.32
@@ -822,7 +822,7 @@
         set url [site_node_closest_ancestor_package_url -package_key "project-manager"]
     } else {
         set url "[ad_url]"
-        append url [site_node::get_url_from_object_id -object_id $package_id]
+        append url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
     }
 
     set package_url "${url}task-one?task_id=$object_id"
Index: openacs-4/packages/project-manager/templates/project-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-one.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/project-manager/templates/project-one.tcl	6 Feb 2007 11:34:20 -0000	1.7
+++ openacs-4/packages/project-manager/templates/project-one.tcl	2 Aug 2007 11:35:20 -0000	1.8
@@ -58,4 +58,4 @@
 # Reverse the list (as we go up the tree but need it down the tree)
 
 set context [struct::list reverse $context]
-lappend context "$project(project_name)"
+lappend context "$project(project_name)"
\ No newline at end of file