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@ + #weblogger-portlet.Add_entry# + + \#weblogger-portlet.FullView\# +

+ } } - actions { - label "" - display_template { - #weblogger-portlet.Add_entry# - | - \#weblogger-portlet.FullView\# - } - } } db_multirow -extend { view_url add_url } entries entries {} { if { !$package_read_p($package_id) } { continue } - set content [string_truncate -len 100 -- $content] + set content [string_truncate -len $length -- $content] set view_url "${base_url}one-entry?[export_vars { entry_id }]" if { $package_create_p($package_id) } { set add_url "${base_url}entry-edit"