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 -N -r1.13.2.12 -r1.13.2.13
--- openacs-4/contrib/packages/project-manager/www/index.tcl	30 Apr 2005 06:53:09 -0000	1.13.2.12
+++ openacs-4/contrib/packages/project-manager/www/index.tcl	2 May 2005 18:30:11 -0000	1.13.2.13
@@ -62,7 +62,7 @@
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
 # root CR folder
-set root_folder [db_string get_root "select pm_project__get_root_folder (:package_id, 'f')"]
+set root_folder [pm::util::get_root_folder -package_id $package_id]
 
 # Projects, using list-builder ---------------------------------
 
@@ -126,49 +126,49 @@
     -key project_item_id \
     -elements {
         project_name {
-            label "Project name"
+            label "[_ project-manager.Project_name]"
             link_url_col item_url
-            link_html { title "View this project version" }
+            link_html { title "[_ project-manager.lt_View_this_project_ver]" }
         }
         customer_name {
-            label "Customer"
+            label "[_ project-manager.Customer]"
             display_template "
 <if @projects.customer_id@ not nil>$organization_column</if><else>@projects.customer_name@</else>
 "
         }
         earliest_finish_date {
-            label "Earliest finish"
+            label "[_ project-manager.Earliest_finish]"
             display_template "<if @projects.days_to_earliest_finish@ gt 1>@projects.earliest_finish_date@</if><else><font color=\"green\">@projects.earliest_finish_date@</font></else>"
         }
         latest_finish_date {
-            label "Latest Finish"
+            label "[_ project-manager.Latest_Finish]"
             display_template "<if @projects.days_to_latest_finish@ gt 1>@projects.latest_finish_date@</if><else><font color=\"red\">@projects.latest_finish_date@</font></else>"
         }
         actual_hours_completed {
-            label "Hours completed"
+            label "[_ project-manager.Hours_completed]"
             display_template "@projects.actual_hours_completed@/@projects.estimated_hours_total@"
         }
         category_id {
             display_template "<group column=\"project_item_id\"></group>"
         }
     } \
-    -actions [list "Add project" "add-edit" "Add project" "Customers" "[site_node::get_package_url -package_key organizations]" "View customers"] \
-    -bulk_actions [list "Close" "bulk-close" "Close project"] \
+    -actions [list "[_ project-manager.Add_project]" "add-edit" "[_ project-manager.Add_project]" "[_ project-manager.Customers]" "[site_node::get_package_url -package_key organizations]" "[_ project-manager.View_customers]"] \
+    -bulk_actions [list "[_ project-manager.Close]" "bulk-close" "[_ project-manager.Close_project]"] \
     -sub_class {
         narrow
     } \
     -filters {
         searchterm {
-            label "Search"
+            label "[_ project-manager.Search_1]"
             where_clause {$search_term_where}
         }
         status_id {
-            label "Status" 
+            label "[_ project-manager.Status_1]" 
             values {[pm::status::project_status_select]}
             where_clause {s.status_id = :status_id}
         }
         assignee_id {
-            label "Assignee"
+            label "[_ project-manager.Assignee]"
             values {$assignees_filter}
             where_clause {pa.party_id = :assignee_id}
         }
@@ -180,45 +180,45 @@
     -orderby {
         default_value $default_orderby
         project_name {
-            label "Project name"
+            label "[_ project-manager.Project_name]"
             orderby_desc "upper(p.title) desc"
             orderby_asc "upper(p.title) asc"
             default_direction asc
         }
         customer_name {
-            label "Customer Name"
+            label "[_ project-manager.Customer_Name]"
             orderby_desc "upper(o.name) desc, earliest_finish_date desc"
             orderby_asc "upper(o.name) asc, earliest_finish_date asc"
             default_direction asc
         }
         category_id {
-            label "Categories"
+            label "[_ project-manager.Categories]"
             orderby_desc "c.category_name desc"
             orderby_asc "c.category_name asc"
             default_direction asc
         }
         earliest_finish_date {
-            label "Earliest finish"
+            label "[_ project-manager.Earliest_finish]"
             orderby_desc "p.earliest_finish_date desc"
             orderby_asc "p.earliest_finish_date asc"
             default_direction asc
         }
         latest_finish_date {
-            label "Latest finish"
+            label "[_ project-manager.Latest_finish]"
             orderby_desc "p.latest_finish_date desc"
             orderby_asc "p.latest_finish_date asc"
             default_direction asc
         }
         actual_hours_completed {
-            label "Hours completed"
+            label "[_ project-manager.Hours_completed]"
             orderby_desc "p.actual_hours_completed desc"
             orderby_asc "p.actual_hours_completed asc"
             default_direction asc
         }
     } \
     -formats {
         normal {
-            label "Table"
+            label "[_ project-manager.Table]"
             layout table
             row {
                 project_name {}
@@ -230,7 +230,7 @@
             }
         } 
         csv {
-            label "CSV"
+            label "[_ project-manager.CSV]"
             output csv
             page_size 0
             row {