Index: openacs-4/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/forums/www/forum-view.tcl	28 Apr 2005 13:32:34 -0000	1.26
+++ openacs-4/packages/forums/www/forum-view.tcl	8 Aug 2006 21:26:53 -0000	1.27
@@ -66,3 +66,8 @@
 
 set page_title "[_ forums.Forum_1] $forum(name)"
 set context [list [ad_quotehtml $forum(name)]]
+
+set type_id [notification::type::get_type_id -short_name forums_forum_notif]
+set notification_count [notification::request::request_count \
+			    -type_id $type_id \
+			    -object_id $forum_id]
\ No newline at end of file