openacs-4/.../project-manager/tcl/task-procs.tcl (+15 -12)
2321 2321         set old_description [ad_get_client_property -- project-manager old_description($tid)]
2322 2322         set old_description_mime_type [ad_get_client_property -- project-manager old_description_mime_type($tid)]
2323 2323
2324 2324         # description
2325 2325         if { \
2326 2326                  ![string equal $old_description $description_array($tid)] || \
2327 2327                  ![string equal $old_description_mime_type $description_mime_type_array($tid)]} {
2328 2328
2329 2329             set richtext_list [list $old_description $old_description_mime_type]
2330 2330             set old_description_html [template::util::richtext::get_property html_value $richtext_list]
2331 2331             set richtext_list [list $description_array($tid) $description_mime_type_array($tid)]
2332 2332             set new_description_html [template::util::richtext::get_property html_value $richtext_list]
2333 2333
2334 2334             lappend changes "Description changed"
2335 2335         }
2336 2336
2337 2337         set old_estimated_hours_work [ad_get_client_property -- project-manager old_estimated_hours_work($tid)]
2338 2338         set old_estimated_hours_work_min [ad_get_client_property -- project-manager old_estimated_hours_work_min($tid)]
2339 2339         set old_estimated_hours_work_max [ad_get_client_property -- project-manager old_estimated_hours_work_max($tid)]
2340 2340
2341           # estimated_hours_work
  2341         # estimated_hours_work or days work
2342 2342         if {[string is true $use_days_p]} {
2343 2343             if {[string is true $use_uncertain_completion_times_p]} {
2344 2344                
2345                   if {![string equal $old_estimated_hours_work_min $estimated_hours_work_min_array($tid)]} {
2346 2345                 set old [pm::util::days_work -hours_work $old_estimated_hours_work_min]
2347 2346                 set new [pm::util::days_work -hours_work $estimated_hours_work_min_array($tid)]
  2347
  2348                 if {![string equal $old $new]} {
2348 2349                     lappend changes "Work estimate (min) changed <i>from</i> $old <i>to</i> $new days"
2349 2350                 }
2350 2351                
2351                   if {![string equal $old_estimated_hours_work_max $estimated_hours_work_max_array($tid)]} {
2352 2352                 set old [pm::util::days_work -hours_work $old_estimated_hours_work_max]
2353 2353                 set new [pm::util::days_work -hours_work $estimated_hours_work_max_array($tid)]
  2354                 if {![string equal $old $new]} {
2354 2355                     lappend changes "Work estimate (max) changed <i>from</i> $old <i>to</i> $new days"
2355 2356                 }
  2357
2356 2358             } else {
2357 2359
2358                   if {![string equal $old_estimated_hours_work $estimated_hours_work_array($tid)]} {
2359 2360                 set old [pm::util::days_work -hours_work $old_estimated_hours_work]
2360 2361                 set new [pm::util::days_work -hours_work $estimated_hours_work_array($tid)]
  2362
  2363                 if {![string equal $old $new]} {
2361 2364                     lappend changes "Work estimate changed <i>from</i> $old <i>to</i> $new days"
2362 2365                 }
2363 2366                
2364 2367             }
2365 2368
2366 2369         } else {
2367 2370
2368 2371             # estimated_hours_work - hours
2369 2372             if {[string is true $use_uncertain_completion_times_p]} {
2370 2373                
2371 2374                 if {![string equal $old_estimated_hours_work_min $estimated_hours_work_min_array($tid)]} {
2372 2375                     lappend changes "Work estimate (min) changed <i>from</i> $old_estimated_hours_work_min <i>to</i> $estimated_hours_work_min_array($tid) hrs"
2373 2376                 }
2374 2377                
2375 2378                 if {![string equal $old_estimated_hours_work_max $estimated_hours_work_max_array($tid)]} {
2376 2379                     lappend changes "Work estimate (max) changed <i>from</i> $old_estimated_hours_work_max <i>to</i> $estimated_hours_work_max_array($tid) hrs"
2377 2380                 }
2378 2381             } else {
2379 2382                
2380 2383                 if {![string equal $old_estimated_hours_work $estimated_hours_work_array($tid)]} {