Index: openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-edit.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	30 Jan 2003 12:32:09 -0000	1.10
+++ openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	2 Feb 2003 13:35:37 -0000	1.11
@@ -32,11 +32,13 @@
         element set_properties entry draft_p -value "t"
 
         # Prefill title and content with supplied values
-        foreach element { content title } {
-            if { [exists_and_not_null $element] } {
-                element set_value entry $element [set $element]
-            }
+        if { [exists_and_not_null title] } {
+            element set_value entry title $title
         }
+        if { [exists_and_not_null content] } {
+            element set_value entry content [template::util::richtext::acquire contents $content]
+        }
+
     } else {
         db_1row entry {}