Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	13 Dec 2003 14:44:34 -0000	1.11
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	13 Dec 2003 15:42:20 -0000	1.12
@@ -2,6 +2,7 @@
     {entry_id:integer ""}
     {return_url ""}
     {title:allhtml ""}
+    {title_url ""}
     {content:allhtml ""}
 }
 
@@ -61,11 +62,14 @@
         element set_properties entry draft_p -value "t"
 
         # Prefill title and content with supplied values
-        foreach element { content title } {
+        foreach element { title title_url } {
             if { [exists_and_not_null $element] } {
                 element set_value entry $element [set $element]
             }
         }
+	if { [exists_and_not_null content] } {
+	    element set_value entry content [template::util::richtext::create $content]
+	}
     } else {
         set insert_or_update update