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.9 -r1.10
--- openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	27 Jan 2003 16:19:43 -0000	1.9
+++ openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	30 Jan 2003 12:32:09 -0000	1.10
@@ -1,6 +1,8 @@
 ad_page_contract {} {
     {entry_id:integer ""}
     {return_url ""}
+    {title ""}
+    {content:allhtml ""}
 } -properties {
     context_bar
     today_html
@@ -28,6 +30,13 @@
         set entry_id [db_nextval "acs_object_id_seq"]
         element set_properties entry entry_date -value $today
         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]
+            }
+        }
     } else {
         db_1row entry {}