Index: openacs-4/packages/tasks/tcl/tasks-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/tcl/tasks-callback-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/tasks/tcl/tasks-callback-procs.tcl	1 Jun 2006 15:32:50 -0000	1.9
+++ openacs-4/packages/tasks/tcl/tasks-callback-procs.tcl	21 Aug 2007 03:33:50 -0000	1.10
@@ -15,46 +15,36 @@
 namespace eval tasks::workflow::impl {}
 namespace eval tasks::workflow::impl::action_side_effect {}
 
+
 ad_proc -public -callback contact::history -impl tasks {
     {-party_id:required}
     {-multirow:required}
     {-trunacte_len ""}
 } {
     Add task history to this party. Return as list
 } {
-    set project_id "26798"
     set tasks [list]
     db_foreach get_tasks {
-        select pt.task_id,
-               tasks__completion_date(ci.item_id) as completion_date,
-               tasks__completion_user(ci.item_id) as completion_user,
-               cr.title,
-               cr.description as content
-          from cr_items ci,
-               pm_tasks_revisions ptr,
-               pm_tasks pt left join pm_process_instance ppi on (pt.process_instance = ppi.instance_id ),
-               cr_revisions cr,
+        select t.task_id,
+               t.completed_date as completion_date,
+               ao.modifying_user as completion_user,
+               t.title,
+               t.description as content
+          from t_tasks t,
                acs_objects ao
-         where ci.parent_id = :project_id
-           and ci.item_id = pt.task_id
-           and ci.latest_revision = ptr.task_revision_id
-           and ci.live_revision = ptr.task_revision_id
-           and ptr.task_revision_id = cr.revision_id
-           and cr.revision_id = ao.object_id
-           and pt.status = '2'
-           and pt.deleted_p = 'f'
-           and task_id in ( select task_id from pm_task_assignment where party_id = :party_id and role_id = '1' )
+         where t.task_id = ao.object_id
+           and t.object_id = :party_id
+	   and t.status_id = '2'
     } {
 	if { [exists_and_not_null truncate_len] } {
-	    set content_html [ad_html_text_convert -truncate_len $truncate_len -from "text/plain" -to "text/html" $content]
+	    set content_html [ad_html_text_convert -truncate_len $truncate_len -from "text/textile" -to "text/html" $content]
 	} else {
-	    set content_html [ad_html_text_convert -from "text/plain" -to "text/html" $content]
+	    set content_html [ad_html_text_convert -from "text/textile" -to "text/html" $content]
 	}
 	::template::multirow append $multirow $completion_date $task_id $completion_user [list $title $content_html] "/packages/tasks/lib/task-chunk"
     }
 }
 
-
 ad_proc -public -callback contacts::bulk_actions -impl tasks {
     {-multirow:required}
 } {