Index: openacs-4/packages/news-portlet/news-portlet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/news-portlet.info,v
diff -u -r1.12.2.3 -r1.12.2.3.4.1
--- openacs-4/packages/news-portlet/news-portlet.info	3 Apr 2004 04:04:08 -0000	1.12.2.3
+++ openacs-4/packages/news-portlet/news-portlet.info	17 Jun 2004 20:52:55 -0000	1.12.2.3.4.1
@@ -6,7 +6,7 @@
     <pretty-plural>News Portlets</pretty-plural>
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
-
+    
     <version name="2.0.3" url="http://openacs.org/repository/download/apm/news-portlet-2.0.3.apm">
         <owner url="http://opeancs.org">OpenACS</owner>
         <release-date>2004-03-10</release-date>
@@ -16,9 +16,12 @@
         <requires url="new-portal" version="0.1a"/>
         <requires url="news" version="4.6"/>
 
+        <callbacks>
+        </callbacks>
         <parameters>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="news_portlet_pretty_name"  default="#news-portlet.pretty_name#" description="the pretty name"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="news_portlet_force_region"  default="1" description="the portal region to put this portlet into"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="news_portlet_pretty_name"  default="#news-portlet.pretty_name#" description="the pretty name"/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="news_portlet_summary_length"  default="1000" description="The length of the summary to display in the portlet"/>
         </parameters>
 
     </version>
Index: openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl,v
diff -u -r1.21 -r1.21.10.1
--- openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl	9 Aug 2002 18:39:32 -0000	1.21
+++ openacs-4/packages/news-portlet/tcl/news-portlet-procs.tcl	17 Jun 2004 20:52:55 -0000	1.21.10.1
@@ -44,6 +44,14 @@
         ]
     }
 
+    ad_proc -public get_summary_length {
+    } {
+        return [parameter::get_from_package_key \
+                    -package_key [my_package_key] \
+                    -parameter news_portlet_summary_length
+        ]
+    }
+
     ad_proc -public link {
     } {
 	return ""
Index: openacs-4/packages/news-portlet/www/summary.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/summary.adp,v
diff -u -r1.5 -r1.5.6.1
--- openacs-4/packages/news-portlet/www/summary.adp	23 Oct 2003 09:19:34 -0000	1.5
+++ openacs-4/packages/news-portlet/www/summary.adp	17 Jun 2004 20:52:55 -0000	1.5.6.1
@@ -1,5 +1,5 @@
 <% # This is the default template to render news items in admin/. Comments are not shown here %>
-<h3>@publish_title@</h3>
+<h3>@publish_title@ - <small>@publish_date@</small></h3>
 <blockquote>
 @publish_body;noquote@
 @more_link;noquote@
Index: openacs-4/packages/news-portlet/www/summary.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/summary.tcl,v
diff -u -r1.3 -r1.3.6.1
--- openacs-4/packages/news-portlet/www/summary.tcl	23 Oct 2003 09:19:34 -0000	1.3
+++ openacs-4/packages/news-portlet/www/summary.tcl	17 Jun 2004 20:52:55 -0000	1.3.6.1
@@ -72,8 +72,9 @@
 #This is a summary in the portlet we don't want it to be too long.
 
 set more_link ""
-if { [string length $publish_body] > 1000 } {
-    set publish_body [string_truncate -len 1000 -- $publish_body]
+set summary_length [news_portlet::get_summary_length]
+if { [string length $publish_body] > $summary_length } {
+    set publish_body [string_truncate -len $summary_length -- $publish_body]
     set more_link "<br><b>&raquo;</b> <a href=\"$url\">[_ news-portlet.Read_more]</a>"
 }