Index: openacs-4/packages/news/www/admin/revision-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add-3.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/news/www/admin/revision-add-3.tcl	8 Aug 2006 21:27:05 -0000	1.7
+++ openacs-4/packages/news/www/admin/revision-add-3.tcl	22 Dec 2009 22:24:02 -0000	1.8
@@ -13,14 +13,17 @@
     item_id:integer
     publish_title:notnull
     publish_lead
-    publish_body:notnull,allhtml,trim
-    html_p:notnull
+    publish_body:notnull,html,trim
+    publish_body.format:notnull
     revision_log:notnull
     publish_date_ansi:notnull
     archive_date_ansi:notnull
     permanent_p:notnull
 }
 
+# Avoid any driver/bindvar nonsense regarding "." in a variable name
+set mime_type ${publish_body.format}
+
 if {[string equal $permanent_p "t"] } {
     set archive_date_ansi [db_null]
 } 
@@ -35,13 +38,6 @@
 set creation_ip [ad_conn "peeraddr"]
 set creation_user [ad_conn "user_id"]
 
-# set mime_type
-if {[string match $html_p t]} {
-    set mime_type "text/html"
-} else {
-    set mime_type "text/plain"
-}
-
 # make new revision the active revision
 set active_revision_p "t"
 
@@ -86,9 +82,3 @@
     ad_returnredirect "item?item_id=$item_id"
 	
 }    
-
-
-
-
-
-