- prepared tasks for "overdue" red forum display

sql/common/intranet-forum-common.sql

@@ -165,7 +165,11 @@ extra_select, extra_where, sort_order, visible_for) values (4004,40,NULL,'Subjec
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4006,40,NULL,'Due',
-'$due_date','','',8,'');
+'[if {$overdue > 0} {
+        set t "<font color=red>$due_date</font>"
+} else {
+        set t "$due_date"
+}]','','',8,'');
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4010,40,NULL,
@@ -197,7 +201,11 @@ extra_select, extra_where, sort_order, visible_for) values (4104,41,NULL,'Subjec
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4106,41,NULL,'Due',
-'$due_date','','',8,'');
+'[if {$overdue > 0} {
+        set t "<font color=red>$due_date</font>"
+} else {
+        set t "$due_date"
+}]','','',8,'');
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4107,41,NULL,'Own',
@@ -244,7 +252,12 @@ extra_select, extra_where, sort_order, visible_for) values (4204,42,NULL,'Subjec
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4206,42,NULL,'Due',
-'$due_date','','',8,'');
+'[if {$overdue > 0} {
+        set t "<font color=red>$due_date</font>"
+} else {
+        set t "$due_date"
+}]','','',8,'');
+
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4207,42,NULL,'Own',
@@ -297,7 +310,11 @@ extra_select, extra_where, sort_order, visible_for) values (4404,44,NULL,'Subjec
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4406,44,NULL,'Due',
-'$due_date','','',8,'');
+'[if {$overdue > 0} {
+        set t "<font color=red>$due_date</font>"
+} else {
+        set t "$due_date"
+}]','','',8,'');
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4407,44,NULL,'Own',
@@ -338,7 +355,11 @@ extra_select, extra_where, sort_order, visible_for) values (4504,45,NULL,'Subjec
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4506,45,NULL,'Due',
-'$due_date','','',8,'');
+'[if {$overdue > 0} {
+        set t "<font color=red>$due_date</font>"
+} else {
+        set t "$due_date"
+}]','','',8,'');
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4507,45,NULL,'Own',
@@ -379,7 +400,11 @@ extra_select, extra_where, sort_order, visible_for) values (4604,46,NULL,'Subjec
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4606,46,NULL,'Due',
-'$due_date','','',8,'');
+'[if {$overdue > 0} {
+        set t "<font color=red>$due_date</font>"
+} else {
+        set t "$due_date"
+}]','','',8,'');
 
 insert into im_view_columns (column_id, view_id, group_id, column_name, column_render_tcl,
 extra_select, extra_where, sort_order, visible_for) values (4607,46,NULL,'Own',

tcl/intranet-forum-procs-postgresql.xql

@@ -30,6 +30,10 @@ select
 	t.message,
 	t.priority,
 	to_char(t.due_date, :date_format) as due_date,
+	CASE 	WHEN due_date < now() and t.topic_type_id in (1102, 1104)
+		THEN 1 
+		ELSE 0 
+	END as overdue,
 	t.asignee_id,
 	acs_object__name(t.object_id) as object_name,
 	m.read_p,

tcl/intranet-forum-procs.tcl

@@ -1025,6 +1025,7 @@ ad_proc -public im_forum_component {
 	    	set asignee_id "" 
 	    	set asignee_initials "" 
 	    }
+
 	
     	    # insert intermediate headers for every project
     	    if {[string equal "Project" $forum_order_by]} {