Index: openacs-4/packages/news-includelet/lib/summary.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/summary.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/news-includelet/lib/summary.tcl	13 Aug 2008 23:15:12 -0000	1.1
+++ openacs-4/packages/news-includelet/lib/summary.tcl	29 Dec 2009 00:59:57 -0000	1.2
@@ -3,7 +3,8 @@
 select item_id,
        live_revision,
        publish_title,
-       html_p,
+       publish_body,
+       publish_format,
        publish_date,
        creation_user,
        item_creator
@@ -14,18 +15,6 @@
 
 if { $item_exist_p } {
 
-    # workaround to get blobs with >4000 chars into a var, content.blob_to_string fails! 
-    # when this'll work, you get publish_body by selecting 'publish_body' directly from above view
-    #
-    # RAL: publish_body is already snagged in the 1st query above for postgres.
-    # CERM: This work around is not used here, so this may not work for postgres.
-    #
-
-	set publish_body [db_string get_content "select  content
-	from    cr_revisions
-	where   revision_id = :live_revision"]
-
-
 #currently not using comments in the summary but someone might want to change the template so they are available.    
     if { [ad_parameter SolicitCommentsP "news" 0] &&
          [ad_permission_p $item_id general_comments_create] } {
@@ -51,5 +40,5 @@
     set more_link "<br><b>&raquo;</b> <a href=\"$url\">[_ news-includelet.Read_more]</a>"
 }
 
-set publish_body [ad_convert_to_html  -html_p $html_p $publish_body]
+set publish_body [ad_html_text_convert -from $publish_format -to text/html -- $publish_body]