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.4 -r1.6.2.5
--- openacs-4/packages/workflow/tcl/case-procs.tcl	22 Apr 2003 13:35:42 -0000	1.6.2.4
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	22 Apr 2003 14:18:14 -0000	1.6.2.5
@@ -485,7 +485,9 @@
     {-case_id ""}
     {-return_url ""}
 } {
-
+    Returns a multirow with columns url, label, title, 
+    of the possible workflow notification types. Use this to present the user with a list of 
+    subscription links.
 } {
     array set pretty {
         workflow_assignee {my actions}
@@ -516,10 +518,61 @@
     }
 }
 
+ad_proc workflow::case::add_log_data {
+    {-entry_id:required}
+    {-key:required}
+    {-value:required}
+} {
+    Adds extra data information to a log entry, which can later
+    be retrieved using workflow::case::get_log_data_by_key.
+    Data are stored as simple key/value pairs.
+    
+    @param entry_id The ID of the log entry to which you want to attach data.
+    @param key The data key.
+    @param value The data value
+    
+    @see workflow::case::get_log_data_by_key
+    @see workflow::case::get_log_data
+    @author Lars Pind (lars@collaboraid.biz)
+} {
+    db_dml insert_log_data {}
+}
 
+ad_proc workflow::case::get_log_data_by_key {
+    {-entry_id:required}
+    {-key:required}
+} {
+    Retrieve extra data for a workflow log entry, previously stored using workflow::case::add_log_data.
 
+    @param entry_id The ID of the log entry to which the data you want are attached.
+    @param key The key of the data you're looking for.
+    @return The value, or the empty string if no such key exists for this entry.
 
+    @see workflow::case::add_log_data
+    @see workflow::case::get_log_data
+    @author Lars Pind (lars@collaboraid.biz)
+} {
+    db_string select_log_data {} -default {}
+}
 
+ad_proc workflow::case::get_log_data {
+    {-entry_id:required}
+} {
+    Retrieve extra data for a workflow log entry, previously stored using workflow::case::add_log_data.
+
+    @param entry_id The ID of the log entry to which the data you want are attached.
+    @return A tcl list of key/value pairs in array-list format, i.e. { key1 value1 key2 value2 ... }.
+
+    @see workflow::case::add_log_data
+    @see workflow::case::get_log_data_by_key
+    @author Lars Pind (lars@collaboraid.biz)
+} {
+    db_string select_log_data {} -default {}
+}
+
+
+
+
 #####
 #
 # workflow::case::role namespace
Index: openacs-4/packages/workflow/tcl/case-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.xql,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/workflow/tcl/case-procs.xql	7 Mar 2003 12:23:25 -0000	1.6.2.1
+++ openacs-4/packages/workflow/tcl/case-procs.xql	22 Apr 2003 14:18:24 -0000	1.6.2.2
@@ -84,6 +84,33 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::case::add_log_data.insert_log_data">
+    <querytext>
+      insert into workflow_case_log_data
+        (entry_id, key, value)
+      values
+        (:entry_id, :key, :value)
+    </querytext>
+  </fullquery>
+
+  <fullquery name="workflow::case::get_log_data_by_key.select_log_data">
+    <querytext>
+      select value
+      from   workflow_case_log_data
+      where  entry_id = :entry_id
+      and    key = :key
+    </querytext>
+  </fullquery>
+
+  <fullquery name="workflow::case::get_log_data.select_log_data">
+    <querytext>
+      select key, value
+      from   workflow_case_log_data
+      where  entry_id = :entry_id
+      order  by key
+    </querytext>
+  </fullquery>
+
   <fullquery name="workflow::case::role::get_callbacks.select_callbacks">
     <querytext>
       select impl.impl_name