Index: openacs-4/packages/project-manager/tcl/project-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs-oracle.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/project-manager/tcl/project-procs-oracle.xql	28 Nov 2005 16:59:29 -0000	1.4
+++ openacs-4/packages/project-manager/tcl/project-procs-oracle.xql	12 Aug 2007 00:39:36 -0000	1.5
@@ -3,16 +3,8 @@
 <queryset>
   <rdbms><type>oracle</type><version>8.0</version></rdbms>
   
-  <fullquery name="pm::project::get_project_id.get_project_id">
+   <fullquery name="pm::project::get_project_item_id.get_project_item">
     <querytext>
-      SELECT  live_revision
-      FROM    cr_items
-      WHERE   item_id = :project_item_id
-    </querytext>
-  </fullquery>
-
-  <fullquery name="pm::project::get_project_item_id.get_project_item">
-    <querytext>
       SELECT i.item_id
       FROM   cr_items i,
              cr_revisions r
Index: openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql	14 Nov 2006 16:11:10 -0000	1.15
+++ openacs-4/packages/project-manager/tcl/project-procs-postgresql.xql	12 Aug 2007 00:39:36 -0000	1.16
@@ -3,17 +3,6 @@
 <queryset>
   <rdbms><type>postgresql</type><version>7.3</version></rdbms>
   
-  <fullquery name="pm::project::get_project_id.get_project_id">
-    <querytext>
-      SELECT
-      live_revision
-      FROM
-      cr_items
-      WHERE
-      item_id = :project_item_id
-    </querytext>
-  </fullquery>
-
   <fullquery name="pm::project::get_project_item_id.get_project_item">
     <querytext>
       SELECT
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 -N -r1.44 -r1.45
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	19 Feb 2007 15:56:54 -0000	1.44
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	12 Aug 2007 00:39:36 -0000	1.45
@@ -15,7 +15,7 @@
 ad_proc -public pm::project::get_project_id {
     -project_item_id:required
 } {
-    Returns the live project_id when give the project_item_id
+    Returns the best project_id when give the project_item_id
 
     @author Jade Rubick (jader@bread.com)
     @creation-date 2004-02-19
@@ -26,9 +26,7 @@
     
     @error 
 } {
-    set return_val [db_string get_project_id { }]
-
-    return $return_val
+    return [content::item::get_best_revision -item_id $project_item_id]
 }