Index: openacs-4/contrib/packages/project-manager/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.adp,v
diff -u -r1.13 -r1.14
--- openacs-4/contrib/packages/project-manager/www/index.adp 4 Sep 2003 22:45:23 -0000 1.13
+++ openacs-4/contrib/packages/project-manager/www/index.adp 5 Sep 2003 00:11:35 -0000 1.14
@@ -9,53 +9,9 @@
-
-
- Project |
- Project Code |
- Status |
- Start |
- Deadline |
-
-
-
-
-
-
-
-
-
-
- @projects.project_name@
-
- |
-
- @projects.project_code@
- |
-
- @projects.actual_hours_completed@ of
- @projects.estimated_hours_total@ hrs
- |
+Add Project
+
-
- Ongoing |
-
-
-
- @projects.planned_start_date@
- |
-
- @projects.planned_end_date@
- |
-
-
-
-
-
- (no projects) |
-
-
-
- Add Project |
-
-
+
+
+
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 ------------------------- #