Index: openacs-4/packages/news/www/admin/revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/news/www/admin/revision.tcl	9 Nov 2008 23:29:28 -0000	1.8
+++ openacs-4/packages/news/www/admin/revision.tcl	22 Dec 2009 22:24:02 -0000	1.9
@@ -21,6 +21,7 @@
     publish_title:onevalue
     publish_lead:onevalue
     publish_body:onevalue
+    publish_format:onevalue
     html_p:onevalue
     creator_link:onevalue
 }
@@ -34,24 +35,7 @@
 
 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
-    #
-    set get_content [db_map get_content]
-    if { $get_content ne "" } {
-        set publish_body [db_string get_content {}]
-    }
-    
-    # text-only body
-    #
-    # replaced this with code from /packages/news/www/item.tcl
-    #
-    #if {[info exists html_p] && ![string equal $html_p "t"]} {
-    #    set publish_body "[ad_quotehtml $publish_body]"
-    #}
-    if { !$html_p } {
-    	set publish_body [ad_text_to_html -- $publish_body]
-    }
+    set publish_body [ad_html_text_convert -from $publish_format -to text/html -- $publish_body]
 
     set title [_ news.Revision]
     set context [list [list "item?[export_vars -url item_id]" [_ news.One_Item]] $title]