Index: openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl 15 May 2007 20:15:02 -0000 1.6 +++ openacs-4/packages/weblogger-portlet/www/weblogger-portlet.tcl 11 Nov 2008 13:22:32 -0000 1.7 @@ -11,14 +11,20 @@ @author Simon Carstensen (simon@bcuni.net) } { item_id:integer,notnull,optional,multiple + length:integer,optional } -properties { } +# Default value; TODO get from package paramete +if { ![info exists length]} { + set length 100 +} + set user_id [ad_conn user_id] set write_p [ad_permission_p $user_id admin] -array set config $cf +array set config $cf set shaded_p $config(shaded_p) set list_of_package_ids $config(package_id) @@ -40,31 +46,28 @@ item { label "" display_template { - @entries.parent_name@ +
@entries.parent_name@
+