Index: openacs-4/packages/forums-portlet/tcl/forums-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/tcl/forums-portlet-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums-portlet/tcl/forums-portlet-procs.tcl	30 May 2002 06:27:32 -0000	1.1
+++ openacs-4/packages/forums-portlet/tcl/forums-portlet-procs.tcl	6 Jun 2002 00:51:17 -0000	1.2
@@ -33,7 +33,7 @@
 
     ad_proc -public get_pretty_name {
     } {
-	return "Forums"
+	return "Bulletin Boards"
     }
 
     ad_proc -private my_package_key {
Index: openacs-4/packages/forums-portlet/www/forums-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/forums-portlet/www/forums-portlet.adp	4 Jun 2002 17:10:13 -0000	1.6
+++ openacs-4/packages/forums-portlet/www/forums-portlet.adp	6 Jun 2002 00:51:17 -0000	1.7
@@ -44,6 +44,7 @@
 
     <li>
       <a href="@forums.url@forum-view?forum_id=@forums.forum_id@">@forums.name@</a>
+<if @forums.new_p@ eq t><b><small>(new postings!)</small></b></if>
     </li>
 
 <%
Index: openacs-4/packages/forums-portlet/www/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums-portlet/www/forums-portlet.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	5 Jun 2002 19:11:29 -0000	1.4
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	6 Jun 2002 00:51:17 -0000	1.5
@@ -28,9 +28,12 @@
             from site_nodes
             where site_nodes.object_id = forums_forums.package_id) as url,
            forums_forums.forum_id,
-           forums_forums.name
-    from forums_forums_enabled forums_forums
-    where forums_forums.package_id in ([join $list_of_package_ids ,])
+           forums_forums.name,
+case when last_modified > (sysdate - 1) then 't' else 'f' end as new_p
+    from forums_forums_enabled forums_forums,
+    acs_objects
+    where acs_objects.object_id = forums_forums.forum_id and 
+    forums_forums.package_id in ([join $list_of_package_ids ,])
     order by parent_name,
              forums_forums.name
 "