Index: openacs-4/packages/workflow/tcl/case-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v diff -u -r1.29.2.2 -r1.29.2.3 --- openacs-4/packages/workflow/tcl/case-procs.tcl 18 Mar 2004 13:44:12 -0000 1.29.2.2 +++ openacs-4/packages/workflow/tcl/case-procs.tcl 9 Dec 2004 17:58:49 -0000 1.29.2.3 @@ -580,7 +580,10 @@ -contract_name $contract_name] # First, we build up a multirow so we have all the data in memory, which lets us peek ahead at the contents - db_multirow -extend {comment} -local entries select_log {} { set comment $comment_string } + db_multirow -extend {comment} -local entries select_log {} { + set comment $comment_string + set action_pretty_past_tense [lang::util::localize $action_pretty_past_tense] + } set rowcount [template::multirow -local size entries]