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.6 -r1.7
--- openacs-4/packages/news/www/admin/revision.tcl	23 Aug 2003 22:25:11 -0000	1.6
+++ openacs-4/packages/news/www/admin/revision.tcl	24 Feb 2005 18:03:05 -0000	1.7
@@ -19,6 +19,7 @@
     news_admin_p:onevalue
     item_exist_p:onevalue
     publish_title:onevalue
+    publish_lead:onevalue
     publish_body:onevalue
     html_p:onevalue
     creator_link:onevalue
@@ -34,6 +35,7 @@
            revision_id,
            content_revision.get_number(:revision_id) as revision_no,
            publish_title,
+           publish_lead,
            html_p,
            publish_date,
            archive_date,
@@ -57,10 +59,17 @@
     }
     
     # text-only body
-    if {[info exists html_p] && ![string equal $html_p "t"]} {
-	set publish_body "<pre>[ad_quotehtml $publish_body]</pre>"
+    #
+    # 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 {[info exists html_p] && [string equal $html_p "f"]} {
+    	set publish_body [ad_text_to_html -- $publish_body]
     }
-    set title "[_ news.One_Revision]"
+
+    set title "Revision"
     set context [list [list "item?[export_vars -url item_id]" [_ news.One_Item]] $title]
     
 } else {