Index: openacs-4/packages/forums/lib/forums/forums-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/forums-chunk.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/forums/lib/forums/forums-chunk.tcl	12 Jun 2007 07:18:10 -0000	1.9
+++ openacs-4/packages/forums/lib/forums/forums-chunk.tcl	15 Jun 2007 11:59:55 -0000	1.10
@@ -20,16 +20,9 @@
 
 set useReadingInfo [forum::use_ReadingInfo_p]
 if { $useReadingInfo } {
-    set unread_or_new_query {
-	approved_thread_count-COALESCE(
-				       (SELECT forums_reading_info_user.threads_read 
-					FROM forums_reading_info_user, forums_forums_enabled
-					WHERE forums_reading_info_user.forum_id=forums_forums_enabled.forum_id 
-					AND forums_reading_info_user.user_id=:user_id),0)
-	as count_unread
-    }
+    set unread_or_new_query_clause [db_map unread_or_new_query]
 } else {
-    set unread_or_new_query {
+    set unread_or_new_query_clause {
 	case when last_post > (current_date - interval '1' day) then 't' else 'f' end as new_p
     }
 }