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.12.2.2 -r1.12.2.3
--- openacs-4/packages/forums-portlet/www/forums-portlet.tcl 2 Aug 2006 01:03:12 -0000 1.12.2.2
+++ openacs-4/packages/forums-portlet/www/forums-portlet.tcl 20 Nov 2006 20:00:26 -0000 1.12.2.3
@@ -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 -pass_properties {
+} -elements {
+ item {
+ label ""
+ display_template {
+ @forums.parent_name@
+
+
+ » @forums.name@
+
+ #forums-portlet.resources_acs-subsite_new_gif#
+
+
+
+ » @forums.name@
+
+
+ }
+ }
+}
+
db_multirow forums $query {}