Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.41 -r1.4.2.42
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl 1 May 2005 23:41:23 -0000 1.4.2.41
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl 2 May 2005 18:30:11 -0000 1.4.2.42
@@ -1267,23 +1267,22 @@
}
- set overdue_title "
Overdue Tasks
"
+ set overdue_title "[_ project-manager.Overdue_Tasks]
"
- set overdue_description "consult with people affected, and let them know deadlines are affected"
+ set overdue_description "[_ project-manager.lt_consult_with_people_a]"
- set pressing_title "Pressing Tasks
"
+ set pressing_title "[_ project-manager.Pressing_Tasks]
"
- set pressing_description "you need to start working on these soon to avoid affecting deadlines"
+ set pressing_description "[_ project-manager.lt_you_need_to_start_wor]"
- set longterm_title "Long Term Tasks
"
+ set longterm_title "[_ project-manager.Long_Term_Tasks]
"
- set longterm_description "look over these to plan ahead"
+ set longterm_description "[_ project-manager.lt_look_over_these_to_pl]"
# okay, let's now set up the email body
set description "
-This is a daily reminder of tasks that are assigned to you
-You currently have $task_count($party) tasks assigned to you
+[_ project-manager.lt_This_is_a_daily_remin]
$overdue_title
@@ -1293,12 +1292,12 @@
- Task \# |
- Subject |
- Role |
- Latest start |
- Latest finish |
- Slack |
+ [_ project-manager.Task] \# |
+ [_ project-manager.Subject_1] |
+ [_ project-manager.Role] |
+ [_ project-manager.Latest_start] |
+ [_ project-manager.Latest_finish] |
+ [_ project-manager.Slack_1] |
"
@@ -1317,12 +1316,12 @@
- Task \# |
- Subject |
- Role |
- Latest start |
- Latest finish |
- Slack |
+ [_ project-manager.Task] \# |
+ [_ project-manager.Subject_1] |
+ [_ project-manager.Role] |
+ [_ project-manager.Latest_start] |
+ [_ project-manager.Latest_finish] |
+ [_ project-manager.Slack_1] |
"
@@ -1339,12 +1338,12 @@
- Task \# |
- Subject |
- Role |
- Latest start |
- Latest finish |
- Slack |
+ [_ project-manager.Task] \# |
+ [_ project-manager.Subject_1] |
+ [_ project-manager.Role] |
+ [_ project-manager.Latest_start] |
+ [_ project-manager.Latest_finish] |
+ [_ project-manager.Slack_1] |
"
@@ -1435,8 +1434,8 @@
# EDIT
# ----
- set subject_out "Edited $task_term \#$task_item_id: $subject"
- set intro_text "$mod_username edited this $task_term_lower"
+ set subject_out "[_ project-manager.lt_Edited_task_term_task]"
+ set intro_text "[_ project-manager.lt_mod_username_edited_t]"
} else {
@@ -1445,16 +1444,16 @@
# NEW
# ---
- set subject_out "New $task_term \#$task_item_id: $subject"
- set intro_text "$mod_username assigned you to a new $task_term_lower"
+ set subject_out "[_ project-manager.lt_New_task_term_task_it]"
+ set intro_text "[_ project-manager.lt_mod_username_assigned]"
}
if {[empty_string_p $comment]} {
set comment_text ""
} else {
- set comment_text "Comment:
$comment"
+ set comment_text "[_ project-manager.Comment]
$comment"
}
set url [pm::task::get_url $task_item_id]
@@ -1495,38 +1494,38 @@
set is_lead_p [lindex $ass 2]
set notification_text "${intro_text}${comment_text}
-Task overview
+[_ project-manager.Task_overview]
- Subject: |
+ [_ project-manager.Subject] |
$subject (\#$task_item_id) |
- Project: |
+ [_ project-manager.Project] |
$project_name |
- Your role: |
+ [_ project-manager.Your_role] |
$role |
$process_html
-Description
+[_ project-manager.Description]
-Dates:
+[_ project-manager.Dates_1]
- Latest start: |
+ [_ project-manager.Latest_start_1] |
$latest_start |
- Latest finish |
+ [_ project-manager.Latest_finish] |
$latest_finish |
"
@@ -2330,18 +2329,18 @@
set iso_date_new "$end_date_year_array($tid)-$end_date_month_array($tid)-$end_date_day_array($tid) 00:00:00"
if {[string equal $iso_date_old "-- 00:00:00"]} {
- set date_old "no hard deadline"
+ set date_old "[_ project-manager.no_hard_deadline]"
} else {
set date_old [lc_time_fmt $iso_date_old "%x"]
}
if {[string equal $iso_date_new "-- 00:00:00"]} {
- set date_new "no hard deadline"
+ set date_new "[_ project-manager.no_hard_deadline]"
} else {
set date_new [lc_time_fmt $iso_date_new "%x"]
}
- lappend changes "Hard deadline changed from $date_old to $date_new"
+ lappend changes "[_ project-manager.lt_Hard_deadline_changed]"
}
set old_one_line [ad_get_client_property -- project-manager old_one_line($tid)]
@@ -2364,7 +2363,7 @@
set richtext_list [list $description_array($tid) $description_mime_type_array($tid)]
set new_description_html [template::util::richtext::get_property html_value $richtext_list]
- lappend changes "Description changed"
+ lappend changes "[_ project-manager.Description_changed]"
}
set old_estimated_hours_work [ad_get_client_property -- project-manager old_estimated_hours_work($tid)]
@@ -2379,13 +2378,13 @@
set new [pm::util::days_work -hours_work $estimated_hours_work_min_array($tid)]
if {![string equal $old $new]} {
- lappend changes "Work estimate (min) changed from $old to $new days"
+ lappend changes "[_ project-manager.lt_Work_estimate_min_cha]"
}
set old [pm::util::days_work -hours_work $old_estimated_hours_work_max]
set new [pm::util::days_work -hours_work $estimated_hours_work_max_array($tid)]
if {![string equal $old $new]} {
- lappend changes "Work estimate (max) changed from $old to $new days"
+ lappend changes "[_ project-manager.lt_Work_estimate_max_cha]"
}
} else {
@@ -2394,7 +2393,7 @@
set new [pm::util::days_work -hours_work $estimated_hours_work_array($tid)]
if {![string equal $old $new]} {
- lappend changes "Work estimate changed from $old to $new days"
+ lappend changes "[_ project-manager.lt_Work_estimate_changed]"
}
}
@@ -2405,16 +2404,16 @@
if {[string is true $use_uncertain_completion_times_p]} {
if {![string equal $old_estimated_hours_work_min $estimated_hours_work_min_array($tid)]} {
- lappend changes "Work estimate (min) changed from $old_estimated_hours_work_min to $estimated_hours_work_min_array($tid) hrs"
+ lappend changes "[_ project-manager.lt_Work_estimate_min_cha_1]"
}
if {![string equal $old_estimated_hours_work_max $estimated_hours_work_max_array($tid)]} {
- lappend changes "Work estimate (max) changed from $old_estimated_hours_work_max to $estimated_hours_work_max_array($tid) hrs"
+ lappend changes "[_ project-manager.lt_Work_estimate_max_cha_1]"
}
} else {
if {![string equal $old_estimated_hours_work $estimated_hours_work_array($tid)]} {
- lappend changes "Work estimate changed from $old_estimated_hours_work to $estimated_hours_work_array($tid) hrs"
+ lappend changes "[_ project-manager.lt_Work_estimate_changed_1]"
}
}
@@ -2431,14 +2430,14 @@
foreach new $new_assignees {
if { [lsearch $old_assignees $new] == -1} {
- lappend changes "Added: $new"
+ lappend changes "[_ project-manager.Added_new]"
}
}
# check for assignees that have been removed
foreach old $old_assignees {
if { [lsearch $new_assignees $old] == -1} {
- lappend changes "Removed: $old"
+ lappend changes "[_ project-manager.Removed_old]"
}
}
@@ -2450,7 +2449,7 @@
set old [pm::project::name -project_item_id $old_project_item_id]
- lappend changes "Project changed from $old"
+ lappend changes "[_ project-manager.lt_Project_changed_ifrom]"
}
@@ -2460,20 +2459,20 @@
if {![string equal $old_dependency $dependency_array($tid)]} {
if {[empty_string_p $old_dependency]} {
- set old "Nothing"
+ set old "[_ project-manager.Nothing]"
} else {
set old [pm::task::name \
-task_item_id $old_dependency]
}
if {[empty_string_p $dependency_array($tid)]} {
- set new "Nothing"
+ set new "[_ project-manager.Nothing]"
} else {
set new [pm::task::name \
-task_item_id $dependency_array($tid)]
}
- lappend changes "Dependency changed from $old ($old_dependency) to $new ($dependency_array($tid))"
+ lappend changes "[_ project-manager.lt_Dependency_changed_if]"
}