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 -N -r1.12 -r1.13
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl	13 Jan 2005 13:58:18 -0000	1.12
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl	4 Mar 2007 20:17:03 -0000	1.13
@@ -20,6 +20,10 @@
 set list_of_package_ids $config(package_id)
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
+# get the parameter from forums-portlet to set the new-graphic correspondingly
+set package_id [apm_package_id_from_key [forums_portlet::my_package_key]]
+set default_new_period [parameter::get -package_id $package_id -parameter DefaultPeriodNewGraphic -default 2]
+
 set query select_forums
 
 if { [acs_privacy::privacy_control_enabled_p] } {
@@ -30,4 +34,25 @@
 
 set user_id [ad_conn user_id]
 
+template::list::create -name forums -multirow forums -key forum_id -html {width 100%} -pass_properties {
+} -elements {
+    item {
+        label ""
+        display_template {
+        <b>@forums.parent_name@</b><br/>
+          <group column="package_id">
+              <if @forums.new_p@ eq t>
+	        &raquo; <a href="@forums.url@forum-view?forum_id=@forums.forum_id@">@forums.name@</a>
+                <span class="new_flag">
+                  #forums-portlet.resources_acs-subsite_new_gif#<br/>
+                </span>
+              </if>
+              <else>
+	        &raquo; <a href="@forums.url@forum-view?forum_id=@forums.forum_id@">@forums.name@</a><br/>
+	      </else>
+          </group>
+        }
+    }
+}
+
 db_multirow forums $query {}