Index: openacs-4/packages/edit-this-page/www/etp-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-edit.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/edit-this-page/www/etp-edit.tcl	2 Oct 2003 14:22:17 -0000	1.8
+++ openacs-4/packages/edit-this-page/www/etp-edit.tcl	16 Oct 2003 16:18:05 -0000	1.9
@@ -118,9 +118,11 @@
 	set date_format [etp::get_application_param date_format]
 	set value $date_string
     } else {
-	set value [template::util::richtext get_property contents [set $element]]
-	set mime_type [template::util::richtext get_property format [set $element]]
-	set extra_sql " , mime_type=:mime_type"
+	if {[string equal $widget "(richtext)"]} {
+	    set value [template::util::richtext get_property contents [set $element]]
+	    set mime_type [template::util::richtext get_property format [set $element]]
+	    set extra_sql " , mime_type=:mime_type"
+	}
     }
 
     db_exec_plsql create_new_revision ""