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 -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 {
+ @forums.parent_name@
+
+
+ » @forums.name@
+
+ #forums-portlet.resources_acs-subsite_new_gif#
+
+
+
+ » @forums.name@
+
+
+ }
+ }
+}
+
db_multirow forums $query {}