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.6 -r1.7
--- openacs-4/contrib/packages/project-manager/www/index.tcl	4 Sep 2003 22:45:23 -0000	1.6
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	5 Sep 2003 00:11:35 -0000	1.7
@@ -50,8 +50,46 @@
 # root CR folder
 set root_folder [db_string get_root "select pm_project__get_root_folder (:package_id, 'f')"]
 
-db_multirow projects project_folders {}
+# Projects, using list-builder ---------------------------------
 
-ad_return_template
+template::list::create \
+    -name projects \
+    -multirow projects \
+    -key item_id \
+    -elements {
+        project_name {
+            label "Subject"
+            link_url_col item_url
+            link_html { title "View this project version" }
+        }
+        earliest_finish_date {
+            label "Earliest finish"
+        }
+        estimated_finish_date {
+            label "Estimated Finish"
+        }
+        actual_hours_completed {
+            label "Hours completed"
+            display_template "@projects.actual_hours_completed@/@projects.estimated_hours_total@"
+        }
+    } \
+    -filters {
+        orderby_project {}
+    } \
+    -orderby {
+        project_name {orderby project_name}
+        default_value project_name,desc
+    } \
+    -orderby_name orderby_project \
+    -html {
+        width 100%
+    }
 
+
+db_multirow -extend { item_url } projects project_folders {
+} {
+    set item_url [export_vars -base "one" -override {{project_item_id $item_id}} {project_item_id}]
+}
+
+
 # ------------------------- END OF FILE ------------------------- #