Index: openacs-4/packages/project-manager/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/install-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/project-manager/tcl/install-procs.tcl	13 Sep 2005 21:50:52 -0000	1.21
+++ openacs-4/packages/project-manager/tcl/install-procs.tcl	5 Oct 2005 17:38:49 -0000	1.22
@@ -183,11 +183,5 @@
 		content::type::attribute::new -content_type {pm_project} -attribute_name {dform} -datatype {string} -pretty_name {[_ project-manager.Dynamic_Form]} -pretty_plural {[_ project-manager.Dynamic_Forms]} -column_spec {varchar(100)}
 		content::type::attribute::new -content_type {pm_task} -attribute_name {dform} -datatype {string} -pretty_name {[_ project-manager.Dynamic_Form]} -pretty_plural {[_ project-manager.Dynamic_Forms]} -column_spec {varchar(100)}
 	    }
-	    3.1d2 3.1d3 {
-		apm_parameter_register "DefaultPortletLayoutP" "The src for the layout to user on project manager portlets master tag" "project-manager" "/packages/project-manager/lib/portlet" "string"
-	    }
-	    3.1d3 3.1d4 {
-		apm_parameter_register "AssignGroupP" "Allows to assign a group instead of a user to projects and tasks. Set it to 1 if you want to allow this functionallity and to 0 if you don't. Default 0" "project-manager" "0" "number" "project-manager"
-	    }
 	}
 }
Index: openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	29 Aug 2005 07:07:08 -0000	1.7
+++ openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	5 Oct 2005 17:38:49 -0000	1.8
@@ -170,3 +170,34 @@
     }
 }
 
+ad_proc -public -callback subsite::url -impl pm_project {
+    {-package_id:required}
+    {-object_id:required}
+    {-type ""}
+} {
+    return the page_url for an object of type pm_project
+} {
+
+    set base_url [apm_package_url_from_id $package_id]
+    if {$type=="edit"} {
+	return [export_vars -base "${base_url}add-edit" -url {{project_id $object_id}}]
+    } else {
+	return [export_vars -base "${base_url}one" -url {{project_id $object_id}}]
+    }
+}
+
+ad_proc -public -callback subsite::url -impl pm_task {
+    {-package_id:required}
+    {-object_id:required}
+    {-type ""}
+} {
+    return the page_url for an object of type pm_task
+} {
+
+    set base_url [apm_package_url_from_id $package_id]
+    if {$type=="edit"} {
+	return [export_vars -base "${base_url}task-add-edit-one" -url {{task_item_id $object_id}}]
+    } else {
+	return [export_vars -base "${base_url}task-one" -url {{task_id $object_id}}]
+    }
+}
\ No newline at end of file