Index: openacs-4/contrib/packages/project-manager/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/project-manager/www/index.tcl 21 May 2003 22:43:35 -0000 1.1 +++ openacs-4/contrib/packages/project-manager/www/index.tcl 15 Jun 2003 13:07:28 -0000 1.2 @@ -1,30 +1,31 @@ ad_page_contract { + Main view page for projects. - @author jader@bread.com + @author jader@bread.com, ncarroll@ee.usyd.edu.au @creation-date 2003-05-15 @cvs-id $Id$ - @param orderby indicates when the user clicks on a column to order by that \column - @return table_html preformatting html table constructed by querying the sam\plenotes table + @return title Page title. + @return context Context bar. + @return projects Multirow data set of projects. -} { - {orderby:optional {title}} } -properties { - table_html + + title:onevalue + context:onevalue + projects:multirow + } -# define the columns in the table -set table_def { - {edit "" {} {Edit}} - {view "" {} {View}} - {project_name "Name"} - {project_code "Project code"} - {parent_project_id "Parent project"} - {goal "Goal"} - {description "Description"} - {planned_start_date "Start date (planned)"} - {planned_end_date "End date (planned)"} - {ongoing_p "Ongoing?"} -} -# construct an html table from the samplenotes database table -set table_html [ad_table -Torderby $orderby project_query {} $table_def] \ No newline at end of file +# --------------------------------------------------------------- # + +set title "Project Repository" +set context [list] +set indent_pattern " " +set indent_factor [parameter::get -parameter IndentationFactor -default 5] + +db_multirow projects project_folders {} + +ad_return_template + +# ------------------------- END OF FILE ------------------------- #