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.12 -r1.13
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	30 Jul 2005 00:26:33 -0000	1.12
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	10 Aug 2005 17:42:57 -0000	1.13
@@ -1982,7 +1982,8 @@
 
 
 ad_proc -public pm::project::name {
-    -project_item_id:required
+    -project_item_id
+    -project_id
 } {
     Returns the name for a project
     
@@ -1995,18 +1996,30 @@
     
     @error 
 } {
-    return [db_string get_name {
-        SELECT
-        title
-        FROM
-        cr_revisions p,
-        cr_items i
-        WHERE
-        i.live_revision = p.revision_id
-        and i.item_id = :project_item_id
-    } -default ""]
-}
 
+    if {[exists_and_not_null project_item_id]} {
+        return [db_string get_name {
+            SELECT
+            title
+            FROM
+            cr_revisions p,
+            cr_items i
+            WHERE
+            i.live_revision = p.revision_id
+            and i.item_id = :project_item_id
+        } -default ""]
+    } else {
+        return [db_string get_name {
+            SELECT
+            title
+            FROM
+            pm_projectsx
+            WHERE
+            project_id = :project_id
+        } -default ""]
+    }
+}        
+    
 
 ad_proc -public pm::project::url {
     -project_item_id:required