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 @@ - - - - - - + + + + + + " @@ -1317,12 +1316,12 @@
Task \#SubjectRoleLatest startLatest finishSlack[_ 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 \#SubjectRoleLatest startLatest finishSlack[_ 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]

Task \#SubjectRoleLatest startLatest finishSlack[_ project-manager.Task] \#[_ project-manager.Subject_1][_ project-manager.Role][_ project-manager.Latest_start][_ project-manager.Latest_finish][_ project-manager.Slack_1]
- + - + - +
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]

$description_out
-

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]" }