Index: openacs-4/contrib/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/project-manager/www/one.tcl	31 Jul 2003 20:11:41 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	2 Aug 2003 00:26:28 -0000	1.5
@@ -5,6 +5,10 @@
     @creation-date 2003-05-15
     @cvs-id $Id$
 
+    @return context_bar Context bar.
+    @return versions a multirow holding versions of the project
+    @return live_revision the project_id of the live_revision
+
     @param project_name
     @param project_code
     @param project_folder_id
@@ -17,14 +21,15 @@
 
 } {
 
-    item_id:integer
+    item_id:integer,optional
     project_id:integer
 
 } -properties {
     context_bar:onevalue
     project_name:onevalue
     project_code:onevalue
     project_id:onevalue
+    live_revision:onevalue
     goal:onevalue
     description:onevalue
     deadline_scheduling:onevalue
@@ -34,6 +39,13 @@
     tasks:multirow
     write_p:onevalue
     create_p:onevalue
+    versions:multirow   
+} -validate {
+    item_id_exists {
+        if {![info exists item_id]} {
+            set item_id [db_string get_item_id { }]
+        }
+    }
 }
 
 # --------------------------------------------------------------- #
@@ -55,6 +67,7 @@
 db_multirow tasks project_tasks_query { }
 
 db_1row project_query {	}
+db_multirow versions project_versions { }
 
 ad_return_template