Index: openacs-4/packages/workflow/workflow.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/workflow.info,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/workflow/workflow.info	22 Apr 2003 15:54:43 -0000	1.5.2.3
+++ openacs-4/packages/workflow/workflow.info	23 Apr 2003 08:57:37 -0000	1.5.2.4
@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>workflow</auto-mount>
 
-    <version name="1.0d1" url="http://openacs.org/repository/download/apm/workflow-1.0d1.apm">
+    <version name="1.0d2" url="http://openacs.org/repository/download/apm/workflow-1.0d2.apm">
     <database-support>
         <database>oracle</database>
         <database>postgresql</database>
@@ -22,7 +22,7 @@
 &lt;p&gt;
 For more information, see: &lt;a href=&quot;http://www.collaboraid.biz/developer/workflow-spec&quot;&gt;the workflow specification&lt;/a&gt;.</description>
 
-        <provides url="workflow" version="1.0d1"/>
+        <provides url="workflow" version="1.0d2"/>
         <requires url="notifications" version="0.3d"/>
         <requires url="acs-content-repository" version="4.6d1"/>
         <requires url="acs-kernel" version="4.6.2"/>
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.6.2.5 -r1.6.2.6
--- openacs-4/packages/workflow/tcl/case-procs.tcl	22 Apr 2003 14:18:14 -0000	1.6.2.5
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	23 Apr 2003 08:58:31 -0000	1.6.2.6
@@ -264,10 +264,18 @@
 
 ad_proc -private workflow::case::get_activity_html { 
     {-case_id:required}
+    {-action_id ""}
 } {
-    Get the activity log for a case as an HTML chunk
+    Get the activity log for a case as an HTML chunk.
+    If action_id is non-empty, it means that we're in 
+    the progress of executing that action, and the 
+    corresponding line for the current action will be appended.
 
-    @author Lars Pind
+    @param case_id The case for which you want the activity log.
+    @param action_id optional action which is currently being executed.
+    @return Activity log as HTML
+
+    @author Lars Pind (lars@collaboraid.biz)
 } {
     set log_html {}
 
@@ -290,6 +298,20 @@
         append log_html [template::adp_eval code]
     }
 
+    if { ![empty_string_p $action_id] } {
+        set pretty_past_tense [workflow::action::get_element -action_id $action_id -element pretty_past_tense]
+
+        # sets first_names, last_name, email
+        ad_get_user_info
+
+        set now_pretty [clock format [clock seconds] -format "%m/%d/%Y"]
+        # Get rid of leading zeros
+        regsub {^0} $now_pretty {} now_pretty
+        regsub {/0} $now_pretty {/} now_pretty
+        
+        append log_html "<p><b>$now_pretty $pretty_past_tense by $first_names $last_name</b></p>"
+    }
+
     return $log_html
 }