Index: openacs-4/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	10 Aug 2005 17:42:57 -0000	1.13
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	23 Aug 2005 16:22:38 -0000	1.14
@@ -1579,8 +1579,11 @@
 
 
 ad_proc -public pm::project::get_list_of_open {
+    {-object_package_id ""}
 } {
     Returns a list of lists, of all open project ids and their names.
+    If object_package_id is provided then it returns all open projects
+    with the same object_package_id value.
 
     We should util_memoize this. It will dramatically improve the
     speed of the task edits.
@@ -1592,9 +1595,12 @@
     
     @error 
 } {
-
-    set return_val [db_list_of_lists get_vals { }]
-
+    set extra_query ""
+    if { ![empty_string_p $object_package_id] } {
+	set extra_query "p.object_package_id = :object_package_id and"
+    }
+    set return_val [db_list_of_lists get_vals " "]
+    
     return $return_val
 }