Index: openacs-4/packages/news/www/admin/revision-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/news/www/admin/revision-add.tcl	9 Nov 2008 23:29:28 -0000	1.7
+++ openacs-4/packages/news/www/admin/revision-add.tcl	22 Dec 2009 22:24:02 -0000	1.8
@@ -37,15 +37,6 @@
 # get active revision of news item
 db_1row item {}
 
-# 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 {}]
-}
-
 set lc_format [lc_get formbuilder_date_format]
 
 set action "[_ news.Revision]"
@@ -68,23 +59,14 @@
         {html {cols 60 rows 3}}
         {value $publish_lead}
     }
-    {publish_body:text(textarea),optional
+    {publish_body:text(richtext),optional
         {label "[_ news.Body]"}
         {html {cols 60 rows 20}}
-        {value $publish_body}
+        {value "[list $publish_body $publish_format]"}
     }
     {text_file:file(file),optional
         {label "[_ news.or_upload_text_file]"}
     }
-    {html_p:text(radio)
-        {label "[_ news.The_text_is_formatted_as]"}
-        {options {{"#news.Plain_text#" f} {"#news.HTML#" t}}}
-        {value $html_p}
-    }
-    {news_image:text(inform)
-        {label "[_ news.Image]"}
-        {value "[_ news.use_preview_to_revise_image]\n$image_html"}
-    }
     {publish_date:date,optional
         {label "[_ news.Release_Date]"}
         {value "[split $publish_date -]"}